#!/usr/bin/perl # # by Steve Poirier - steve@inet-technologies.com # to use with RT2 / MySQL use DBI; use CGI qw(:all); use Text::Template; # definition of variables $db="inet_stat"; $host="localhost"; $user="inet"; $password="allo"; print header; $actualon = param('actualon'); $mainton = param('mainton'); my $dbh = DBI->connect ("DBI:mysql:database=$db:host=$host", $user, $password) or die "Can't connect to database: $DBI::errstr\n"; my $sth = $dbh->prepare( " select id,description,received,expected from problems where status=0;"); $sth->execute( ); @row = $sth->fetchrow_array( ); $id = $row[0]; $description = $row[1]; $received = $row[2]; $expected = $row[3]; if ($id eq "") { $actual = "aucun problèmes n'est reporté présentement.

" } else { $actual = $actual."Identification: NST-#$id
"; $actual = $actual."Date de création: $received
"; $actual = $actual."Temps estimé: $expected
"; $actual = $actual."Description: $description

"; while ( my @row = $sth->fetchrow_array( ) ) { $id = $row[0]; $description = $row[1]; $received = $row[2]; $expected = $row[3]; $actual = $actual."Identification: NST-#$id
"; $actual = $actual."Date de création: $received
"; $actual = $actual."Description: $description
"; $actual = $actual."Temps estimé: $expected

"; } } if ($actualon ne "") { $actual = $actual."Archive:

"; my $sth = $dbh->prepare( " select id,description,received,expected,resolved from problems where status=1;"); $sth->execute( ); while ( my @row = $sth->fetchrow_array( ) ) { $id = $row[0]; $description = $row[1]; $received = $row[2]; $expected = $row[3]; $resolved = $row[4]; $actual = $actual."Identification: NST-#$id (résolu)
"; $actual = $actual."Date de création: $received
"; $actual = $actual."Date de résolution:: $resolved
"; $actual = $actual."Description: $description

"; } } my $sth = $dbh->prepare( " select id,description,received,expected from maint where completed=0;"); $sth->execute( ); @row = $sth->fetchrow_array( ); $id = $row[0]; $description = $row[1]; $received = $row[2]; $expected = $row[3]; if ($id eq "") { $scheduled = "aucune maintenance de prévu à présent.

" } else { $scheduled = $scheduled."Identification: MAT-#$id
"; $scheduled = $scheduled."Date prévue: $received
"; $scheduled = $scheduled."Temps estimé: $expected
"; $scheduled = $scheduled."Description: $description

"; while ( my @row = $sth->fetchrow_array( ) ) { $id = $row[0]; $description = $row[1]; $received = $row[2]; $expected = $row[3]; $scheduled = $scheduled."Identification: MAT-#$id
"; $scheduled = $scheduled."Date prévue: $received
"; $scheduled = $scheduled."Temps estimé: $expected
"; $scheduled = $scheduled."Description: $description

"; } } if ($mainton ne "") { $scheduled = $scheduled."Archive:

"; my $sth = $dbh->prepare( " select id,description,received,expected from maint where completed=1;"); $sth->execute( ); while ( my @row = $sth->fetchrow_array( ) ) { $id = $row[0]; $description = $row[1]; $received = $row[2]; $expected = $row[3]; $resolved = $row[4]; $scheduled = $scheduled."Identification: MAT-#$id (résolu)
"; $scheduled = $scheduled."Date: $received
"; $scheduled = $scheduled."Temps estimé: $expected
"; $scheduled = $scheduled."Description: $description

"; } } %vars = (actual => $actual, scheduled => $scheduled, type => $type, ); &template('netstatus.html'); exit; sub template { # Send a template with a specified file name local($tmpl,@tmpl_fields) = @_; # $tmpl = "/usr/local/apache/www/www2/cgi-bin/netstatus/$tmpl"; $tmpl = "$tmpl"; # my $template =new Text::Template(TYPE=>'FILE',SOURCE=>$tmpl); my $template =new Text::Template(TYPE=>'FILE',SOURCE=>$tmpl,DELIMITERS=>['##-','-##']); $template -> fill_in (OUTPUT =>\*STDOUT, HASH=>\%vars); #system("/bin/echo >/www/funio-demo.com/test.txt \"$template\""); }