| Revision: | 3 |
| Committed: | 2003-11-05T18:37:16-08:00 (21 years, 7 months ago) by Douglas Thrift |
| Content type: | text/x-perl |
| File size: | 422 byte(s) |
| Log Message: | Did more stuff! |
| # | Content |
|---|---|
| 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 | "; |
| Name | Value |
|---|---|
| svn:eol-style | native |
| svn:executable | * |
| svn:keywords | Id |