Ticket #4111: patch-nrg-discover-tcp.in.diff

File patch-nrg-discover-tcp.in.diff, 909 bytes (added by dports@…, 19 years ago)

Patch for discoverers/nrg-discover-tcp.in

  • discoverers/nrg-discover-tcp.in

    old new  
    55
    66@all_modes = qw(ftp http imap pop smtp ssh);
    77%tests = (
    8   ftp   => "21 220 \"USER anonymous\" 331",
    9   http  => "80 \"\" \"GET / HTTP/1.0\\n\" HTTP",
     8  ftp   => "21 220",
     9  http  => "80 \"\" \"GET / HTTP/1.\\n\" HTTP",
    1010  imap  => "143 \"\\* OK\" \"CMD NOOP\" \"CMD OK\"",
    11   pop   => "110 \"\\+OK\" \"USER nrg\" \"\\+OK\"",
    12   smtp  => "25 220 \"HELO nrg\" 250",
    13   ssh   => "22 SSH NRG_PROBE \"Protocol mismatch\""
     11  pop   => "110 \"\\+OK\"",
     12  smtp  => "25 220",
     13  ssh   => "22 SSH"
    1414);
    1515
    1616$html_print_template = '@prefix@/templates/discover-tcp.tm';
    17 $tcpresponse = '@prefix@/bin/nrg-tcpresponse';
     17$tcpresponse = '@prefix@/bin/nrg-tcpresponse -t 5';
    1818
    1919foreach $i ( 0 .. $#ARGV ) {
    2020  if ( $ARGV[$i] =~ /^-d|^--d|^--debug/ ) {