# | Line 15 | Line 15 | my ($sysname, $nodename, $release, $vers | |
---|---|---|
15 | ||
16 | $agent->agent("Host Update/1.0 ($sysname $release $machine) "); | |
17 | ||
18 | < | my $response = $agent->post("http://douglaspc/cgi-bin/hostupdate.exe", |
19 | < | [host => $nodename]); |
18 | > | my $response = $agent->get("http://douglaspc/cgi-bin/hostupdate.exe?host=" |
19 | > | . $nodename); |
20 | my $content = $response->content; | |
21 | ||
22 | print "$content |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |