1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/suo-pelmen-record.pl	Wed Oct 24 11:32:58 2012 +0400
     1.3 @@ -0,0 +1,30 @@
     1.4 +#!/usr/bin/perl -w
     1.5 + 
     1.6 +use strict;
     1.7 +use DateTime;
     1.8 +use LWP::UserAgent;
     1.9 +
    1.10 +$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
    1.11 +
    1.12 +my $date = DateTime->now;
    1.13 +$date->set_time_zone('Europe/Moscow');
    1.14 +
    1.15 +# Create a user agent object
    1.16 +my $ua = LWP::UserAgent->new;
    1.17 +#$ua->agent("MyApp/0.1 ");
    1.18 +
    1.19 +# Create a request
    1.20 +my $req = HTTP::Request->new(GET => 'https://office.alphatech.ru/suo-pelmen/subscribe');
    1.21 +$req->content_type('application/x-www-form-urlencoded');
    1.22 +$req->content('users=52');
    1.23 +
    1.24 +# Pass request to the user agent and get a response back
    1.25 +my $res = $ua->request($req);
    1.26 +
    1.27 +# Check the outcome of the response
    1.28 +if ($res->is_success) {
    1.29 +	print $date, " SUCCESS:\n", $res->content, "\n\n";
    1.30 +}
    1.31 +else {
    1.32 +	print $date, " FAIL:\n", $res->status_line, "\n\n";
    1.33 +}