#!/usr/bin/perl
# Stats.plx

use warnings;
use strict;
use WWW::Mechanize;
use File::Basename;
use DBI;
use Date::Manip;
use Template::Extract;
use Data::Dumper;

my $agent;

$agent = WWW::Mechanize->new( autocheck => 1 );

$agent->get("http://www.abc.com/ChooseZone.aspx?type=A");

print "Making HTTP Post Request....\n";

$agent->get("http://www.abc.com/ChooseZone.aspx?type=A &__EVENTTARGET=rdlZone_0 &__EVENTARGUMENT= &__VIEWSTATE='dDw0NzUyOTE0NzQ7dDw7bDxpPDE+Oz47bDx0PDtsPGk8MT47aTwzPjs+O2w8dDw7bDxpPDA+Oz47bDx0PDtsPGk8MD47PjtsPHQ8O2w8aTwwPjtpPDE+Oz47bDx0PDtsPGk8MT47PjtsPHQ8cDxwPGw8VGV4dDs+O2w8UGxlYXNlIFNlbGVjdCB0aGUgQ29uc3VsYXIgRGlzdHJpY3QgdGhhdCBjb3ZlcnMgeW91ciBSZXNpZGVuY2U7Pj47Pjs7Pjs+Pjt0PDtsPGk8MT47PjtsPHQ8cDxwPGw8VGV4dDs+O2w8VFQgU2VydmljZXMgLSBXZWIgQXBwbGljYXRpb247Pj47Pjs7Pjs+Pjs+Pjs+Pjs+Pjt0PHQ8O3A8bDxpPDA+O2k8MT47aTwyPjs+O2w8cDxcPC90ZFw+XDx0ZCB3aWR0aD0nMjUlJ2NsYXNzPSdCb2R5VGV4dCdcPlw8Ylw+VVMgQ29uc3VsYXRlIENoZW5uYWkgKE1hZHJhcylcPC9iXD5cPC90ZFw+XDx0ZCBjbGFzcz0nQm9keVRleHQnXD4gQ292ZXJzIHJlc2lkZW50cyBvZiB0aGUgc291dGhlcm4gc3RhdGVzIG9mIEFuZGhyYSBQcmFkZXNoLCBLZXJhbGEsIFRhbWlsIE5hZHUsIEthcm5hdGFrYSwgTGFrc2hhZHdlZXAgSXNsYW5kcyBhbmQgUG9uZGljaGVycnkuXDwvdGRcPlw8dGRcPjsxPjtwPFw8L3RkXD5cPFREIHdpZHRoPScyNSUnY2xhc3M9J0JvZHlUZXh0J1w+XDxiXD5VUyBFbWJhc3N5IE5ldyBEZWxoaVw8L2JcPlw8L1REXD5cPFREIGNsYXNzPSdCb2R5VGV4dCdcPiBDb3ZlcnMgcmVzaWRlbnRzIG9mIERlbGhpIGFuZCB0aGUgbm9ydGggSW5kaWFuIHN0YXRlcyBvZiBIYXJ5YW5hLCBIaW1hY2hhbCBQcmFkZXNoLCBKYW1tdSAmIEthc2htaXIsIFB1bmphYiwgUmFqYXN0aGFuLCBVdHRhciBQcmFkZXNoIGFuZCBVdHRhcmFuY2hhbC5cPC9URFw+XDxURFw+OzI+O3A8XDwvVERcPlw8VEQgd2lkdGg9JzI1JSdjbGFzcz0nQm9keVRleHQnXD5cPGJcPlVTIENvbnN1bGF0ZSBDYWxjdXR0YSAoS29sa2F0YSlcPC9iXD5cPC9URFw+XDxURCBjbGFzcz0nQm9keVRleHQnXD4gQ292ZXJzIHJlc2lkZW50cyBvZiBBc3NhbSwgTWFuaXB1ciwgTWVnaGFsYXlhLCBOYWdhbGFuZCwgVHJpcHVyYSwgQmloYXIsIE9yaXNzYSwgV2VzdCBCZW5nYWwsIEFydW5hY2hhbCBQcmFkZXNoLCBTaWtraW0sIE1pem9yYW0sIEpoYXJraGFuZCwgQW5kYW1hbiBhbmQgTmljb2JhciBJc2xhbmRzIFw8L1REXD5cPFREXD47Mz47Pj47Pjs7Pjs+Pjs+Pjs+ES4L3Lspgy7Nq0zptOk6nJmcTfM=' &rdlZone = 1");

$agent->get("http://www.abc.com/CalendarDisp.aspx",":content_file" => "cal.html" );