# | 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/printenv.pl", [host => |
19 | < | $nodename]); |
18 | > | my $response = $agent->post("http://www.douglasthrift.net/cgi-bin/hostupdate", |
19 | > | [host => $nodename]); |
20 | my $content = $response->content; | |
21 | ||
22 | print "$content |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |