| Revision: | 16 |
| Committed: | 2003-11-09T17:13:41-08:00 (21 years, 7 months ago) by Douglas Thrift |
| Content type: | text/x-perl |
| File size: | 427 byte(s) |
| Log Message: | Ooh, Top Secret! |
| # | Content |
|---|---|
| 1 | #!/usr/bin/perl |
| 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://douglasthrift.net/topsecret/hostupdate.cgi", |
| 19 | [host => $nodename]); |
| 20 | my $content = $response->content; |
| 21 | |
| 22 | print "$content"; |
| Name | Value |
|---|---|
| svn:eol-style | native |
| svn:executable | * |
| svn:keywords | Id |