| # | Line 32 | Line 32 | use vars qw ( | |
|---|---|---|
| 32 | $tcp_port | |
| 33 | $filter_addr | |
| 34 | $file_list | |
| 35 | + | $fqdn |
| 36 | ); | |
| 37 | ||
| 38 | if (@ARGV != 2) { | |
| # | Line 118 | Line 119 | sub tcp_configure() { | |
| 119 | $file_list = $response; | |
| 120 | ||
| 121 | print "File list obtained: $file_list\n"; | |
| 122 | + | |
| 123 | + | print $sock "FQDN\n"; |
| 124 | + | $response = <$sock>; |
| 125 | + | chop $response; |
| 126 | + | $fqdn = $response; |
| 127 | + | |
| 128 | + | print "FQDN returned: $fqdn\n"; |
| 129 | ||
| 130 | print $sock "UDPUpdateTime\n"; | |
| 131 | $response = <$sock>; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |