#!/usr/bin/perl -wT

use strict;
use DBI;
use CGI;

BEGIN { push(@INC,'/prod/stat2web/lib'); };
use graf;
use TagParser;

$ENV{'PATH'} = '/bin';

my $genopt;

my $Stat2web_dbh = DBI->connect("DBI:mysql:stat2web","routers","KLONK");
&TagParser::Init($Stat2web_dbh);

my $q = new CGI;
my ($login,$firma,$logingrp,$allowsu) = ('unimlo','Olsson Dot Net','any','unimlo');

#### OPTIONS ***SKAL*** TAINES!!! ####
my $graflist = $q->param('GRAFLIST') || '';
$graflist = ($graflist =~ /^([0-9\,]+)$/) ? $1 : undef;
my $overview = $q->param('OVERVIEW') || '';
$overview = ($overview =~ /^([0-9a-zA-Z\_\-\.]+)$/) ? $1 : undef;
my $periode = $q->param('PERIODE') || '';
$periode = ($periode =~ /^([0-9]+)$/) ? $1 : undef;
my $zoom = $q->param('ZOOM') || '';
$zoom = ($zoom =~ /^([0-9]+)$/) ? $1 : undef;
my $fratil = $q->param('FRATIL') || '';
$fratil = ($fratil =~ /^([0-9]+\-[0-9]+)$/) ? $1 : undef;

my $login = 'WEATHER' if $ENV{'REQUEST_URI'} =~ /^\/weather/;
$overview = 'VEJR' unless (defined($overview) || ($login ne 'WEATHER'));

#### Find ydelse ####
if (defined($graflist))
 {
  my $ifspeed_sth = $Stat2web_dbh->prepare(<<SQL);
   SELECT sum(ifSpeed) as SPEED
     FROM stat2web.grafer as G
LEFT JOIN routers.descriptions as D ON (D.CustumLine = G.kredsnr)
LEFT JOIN routers.interfaces as I USING (CustumID)
LEFT JOIN routers.routers as R ON (rName = Name)
    WHERE grafnummer IN ($graflist)
      AND R.Class in ('Backbone','Serverpark')
SQL
  if (int($ifspeed_sth->execute() == 1))
   {
    my $data = $ifspeed_sth->fetchrow_hashref;
    $data->{'SPEED'} ||= 0;
    $genopt->{'total_if_speed_bps'} = $data->{'SPEED'};
    $genopt->{'total_if_speed_bpu'} = int($data->{'SPEED'}*3600*24*7/8);
   }
  else
   {
    $genopt->{'total_if_speed'} = 1;
   };
 };

$genopt->{'SLA_KLASSE'} ||= 'Alle';
$genopt->{'LOGIN'} = $login;
$genopt->{'GROUP'} = $logingrp;
$genopt->{'FIRMA'} = $firma;
$genopt->{'ALLOWSU'} = $allowsu;
$genopt->{'OVERVIEW'} = $overview || 'MENU';
$genopt->{'GRAFLIST'} = $graflist;
$genopt->{'ZOOM'} = $zoom;
$genopt->{'HTMLURL'} = 'http://' . $ENV{'HTTP_HOST'} . $ENV{'SCRIPT_NAME'} . '?' . $ENV{'QUERY_STRING'};
$genopt->{'PERIODE'} = $periode;
$genopt->{'FRATIL'} = $fratil;
$genopt->{'BRAND'} = 'isp';
$genopt->{'templet'} = 'isp.html';
$genopt->{'templet'} = 'export.html' if $overview =~ /^EXPORT/;

&TagParser::ShowPage($genopt);