Mercurial > bottledash
comparison doc/connect_with_mon/bottledash.alert @ 31:a43fa30655e9
better alignment of the top-bar
| author | sean |
|---|---|
| date | Tue, 18 Aug 2015 13:05:55 +0200 |
| parents | 140c9023df7a |
| children | a957a56bb694 |
comparison
equal
deleted
inserted
replaced
| 30:accefaf00c6a | 31:a43fa30655e9 |
|---|---|
| 28 use Getopt::Std; | 28 use Getopt::Std; |
| 29 | 29 |
| 30 getopts ("S:s:g:h:t:l:f:u"); | 30 getopts ("S:s:g:h:t:l:f:u"); |
| 31 | 31 |
| 32 $ALERT = $opt_u ? "UPALERT" : "ALERT"; | 32 $ALERT = $opt_u ? "UPALERT" : "ALERT"; |
| 33 $SERVICE = @ARGV; | |
| 34 | 33 |
| 35 my $server_endpoint = "http://localhost:8000/updown"; | 34 my $server_endpoint = "http://localhost:8000/updown"; |
| 36 my $ua = LWP::UserAgent->new; | 35 my $ua = LWP::UserAgent->new; |
| 37 my $req = HTTP::Request->new(POST => $server_endpoint); | 36 my $req = HTTP::Request->new(POST => $server_endpoint); |
| 38 $req->header('content-type' => 'x-www-form-urlencoded'); | 37 $req->header('content-type' => 'x-www-form-urlencoded'); |
| 39 my $post_data = "service=$SERVICE&status=$ALERT"; | 38 my $post_data = "service=@ARGV&status=$ALERT"; |
| 40 $req->content($post_data); | 39 $req->content($post_data); |
| 41 my $resp = $ua->request($req); | 40 my $resp = $ua->request($req); |