| Revision: | 12 |
| Committed: | 2003-11-06T23:43:01-08:00 (21 years, 7 months ago) by Douglas Thrift |
| Content type: | text/x-perl |
| File size: | 421 byte(s) |
| Log Message: | The universe is going to hell! I'm in love! |
| # | 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->get("http://douglaspc/cgi-bin/hostupdate.exe?host=" |
| 19 | . $nodename); |
| 20 | my $content = $response->content; |
| 21 | |
| 22 | print "$content |
| 23 | "; |
| Name | Value |
|---|---|
| svn:eol-style | native |
| svn:executable | * |
| svn:keywords | Id |