Ticket #4111: patch-nrg-discover-tcp.in.diff
File patch-nrg-discover-tcp.in.diff, 909 bytes (added by dports@…, 19 years ago) |
---|
-
discoverers/nrg-discover-tcp.in
old new 5 5 6 6 @all_modes = qw(ftp http imap pop smtp ssh); 7 7 %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", 10 10 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" 14 14 ); 15 15 16 16 $html_print_template = '@prefix@/templates/discover-tcp.tm'; 17 $tcpresponse = '@prefix@/bin/nrg-tcpresponse ';17 $tcpresponse = '@prefix@/bin/nrg-tcpresponse -t 5'; 18 18 19 19 foreach $i ( 0 .. $#ARGV ) { 20 20 if ( $ARGV[$i] =~ /^-d|^--d|^--debug/ ) {