| Revision: | 1 |
| Committed: | 2003-11-05T17:58:20-08:00 (21 years, 7 months ago) by Douglas Thrift |
| Content type: | text/x-perl |
| File size: | 445 byte(s) |
| Log Message: | I like cheese! |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | Douglas Thrift | 1 | #!D:/Perl/bin/perl.exe |
| 2 | # | ||
| 3 | # Host Update | ||
| 4 | # | ||
| 5 | # Douglas Thrift | ||
| 6 | # | ||
| 7 | # $Id$ | ||
| 8 | |||
| 9 | use strict; | ||
| 10 | use LWP::UserAgent; | ||
| 11 | use POSIX; | ||
| 12 | |||
| 13 | my $agent = LWP::UserAgent->new; | ||
| 14 | my ($sysname, $nodename, $release, $version, $machine) = uname(); | ||
| 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]); | ||
| 20 | my $content = $response->content; | ||
| 21 | |||
| 22 | print "$content | ||
| 23 | "; |