#!/usr/bin/perl

use CGI ':standard';
use HTTP::Request;
use LWP::Simple qw/get/;
#use LWP::UserAgent;
print header();
print start_html();


$a=param('$selected_rows.Location');

$a =~ s/\D//g;
$a =~ s/^[0]+//g;
$url = "http://operationalintelligence/Site/sitevisit.php?site=$a&type=a&days=90";
#$url = 'https://10.204.16.17:16316/ibm/console/login.do?action=secure';
my $data=get($url);
print end_html();