//iso;
$DOC =~ s/src=\"include/src=\"http:\/\/$SERVER\/$CACTI_URI\/include/g;
$DOC =~ s/src=\"images/src=\"http:\/\/$SERVER\/$CACTI_URI\/images/g;
$DOC =~ s/| //iso;
$DOC =~ s/var cURLBase = \"graph.php/var cURLBase = \"http:\/\/$CALLING_SERVER$SCRIPT_NAME\?cacti_instance=$CACTI_INSTANCE\&function=graph.php/g;
print "$DOC";
exit;
}
else
{
print "Content-type: text/html\n\n";
# Now it is a little bit tricky. The calendar function. All submission of parameters
# is done by get. Unfortuntely using the calendar a part is being send using post.
# Therefore some paramters are available in $QUERY_PARMS but cannot be splitted up by
# ReadParse and must be splitted up manually below.
$HOST = $QUERY_PARMS;
$HOST =~ s/^host=//;
$HOST =~ s/&.*$//;
$CACTI_INSTANCE = $QUERY_PARMS;
$CACTI_INSTANCE =~ s/^.*cacti_instance=//;
# And another phenomenon I haven't solved. Although these vars have
# been defined as global in the beginning they are not set here.
# Therefore I had to set them seperately here. Bullhsit.
$DBHOST = $DBHOST{$CACTI_INSTANCE};
$SERVER = $URL_PART1{$CACTI_INSTANCE};
$DBLOGIN = $DBLOGIN{$CACTI_INSTANCE};
$DBPASS = $DBPASS{$CACTI_INSTANCE};
$DATABASE = $DATABASE{$CACTI_INSTANCE};
$DBPORT = $DBPORT{$CACTI_INSTANCE};
get_host_id();
$DATE_FROM = $formParameter{'date1'};
$DATE_TO = $formParameter{'date2'};
$DATE_FROM_EPOCH = conv_date($DATE_FROM);
$DATE_TO_EPOCH = conv_date($DATE_TO);
$URL2FETCH = "http://$SERVER/$CACTI_URI/graph_view.php?action=preview&host_id=$ID&graph_template_id=0&filter=";
$DOC = LWP::Simple::get $URL2FETCH;
die "Couldn't get it!" unless defined $DOC;
# Removing all unwanted scrap, rewriting URL/URI and so on using som regular expressions
$DOC =~ s/style=\'background-color: #f5f5f5; border: 1px solid #bbbbbb;\'//iso;
$DOC =~ s/href=\'graph.php\?/href=\'nagios=2\&cacti_instance=$CACTI_INSTANCE\&function=graph.php\&/g;
$DOC =~ s/href=\'nagios=2\&cacti_instance=$CACTI_INSTANCE\&function=graph.php\&action=zoom/href=\'cacti_instance=$CACTI_INSTANCE\&function=graph.php\&action=zoom/g;
$DOC =~ s///isog;
$DOC =~ s///isog;
$DOC =~ s/href=\'/href=\'http:\/\/$CALLING_SERVER$SCRIPT_NAME\?/g;
$DOC =~ s///isog;
$DOC =~ s/src=\'/src=\'http:\/\/$SERVER\/$CACTI_URI\//g;
$DOC =~ s/ | .*?<\/td>//iso;
$DOC =~ s/ | .*?<\/td>//iso;
$DOC =~ s/ | .*?<\/td>//iso;
$DOC =~ s/.*?<\/table>//iso;
$DOC =~ s/ |