Index Page

#!/usr/bin/perl use strict; use CGI qw /:standard/; use DBI; use POSIX; print header; my %Form; my $db; my $q; my $Q; my $pidFile = "/var/run/dial-in.pid"; my $timeFile = "/var/run/dial-in.stime"; my $pid; my $time; my $dial = "/usr/bin/dial-in"; my $kill = "/bin/kill"; { # Getting data from form my $D; my @Formularfelder; my $Feld; if($ENV{'REQUEST_METHOD'} eq 'GET') { $D = $ENV{'QUERY_STRING'} } else { read(STDIN, $D, $ENV{'CONTENT_LENGTH'}); } @Formularfelder = split(/&/, $D); foreach $Feld (@Formularfelder) { my ($name, $value) = split(/=/, $Feld); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $Form{$name} = $value; } } my $action = $Form{"action"}; # Connecting to DB $db = DBI->connect('DBI:mysql:ppp', 'root', ''); open PID, $pidFile or $pid = -1; unless($pid == -1) { $pid = } close PID; open TIME, $timeFile or $time = -1; unless($time == -1) { $time = ; } close TIME; if($action eq "dial") { system("$dial &") or die; } elsif($Form{"action"} eq "hangUp" && $pid>0) { system("$kill -s HUP $pid"); } print "\n"; print "\n"; unless($time == -1) { print "\n"; } print "\n"; print "Index Page\n"; print "\n"; print "\n"; print "\t\n"; # Reload Button print "\t\n"; # Print current status print "\t\n"; # Links print "\t\n"; print "\n"; $q = "SELECT time, duration, sent, recived from times"; $Q = $db->prepare($q); $Q->execute(); print "\t\n"; $Q->finish(); print "

\n"; # Dial In Button print "\t\n"; # Hang Up Button print "\t\n"; print "\t

\n"; print "\t

\n"; print "\tStatus:
\n"; if($pid==-1){ print "\tDisconnected
\n"; } else { print "\tConnected
\n"; } unless($time == -1) { print "\t\n"; } print "\t

\n"; print "\tSelfHTML
\n"; print "\tPHP Documentation & Language reference
\n"; print "\tCollection of Books from SUSE DVD
\n"; print "\tHowTo's in English
\n"; print "\t

\n"; print "\t\n"; print "\t\t\n"; while(my ($time, $duration, $sent, $recived) = $Q->fetchrow_array()){ print "\t\t"; my $dur; if($duration>60) { $dur = floor($duration/60)."h ".floor(($duration%60)+1)."m"; } else { $dur = floor($duration+.9)."m"; } print ""; my $sForm = "B"; my $s = $sent; if($sent>=1024 && $sent<1048576) { $s/=1024; $sForm = "kB"; } elsif ($sent>=1048576) { $s/=1048576; $sForm = "MB"; } my $sRed = ($sent*0xFF) / (1048576/1.75); $sRed = 0xFF if($sRed > 0xFF); my $sGreen = (($sent-(1048576*1.5))*0xFF) / (1048576); $sGreen = 0x00 if($sGreen<0); $sGreen = 0xFF if($sGreen>0xFF); my $sCol = floor($sRed)*0x100 + floor(0xFF - $sGreen); printf("",$sCol, $s, $sForm); my $rForm = "B"; my $r = $recived; if($recived>=1024 && $recived<1048576) { $recived/=1024; $rForm = "kB"; } elsif ($recived>=1048576) { $recived/=1048576; $rForm = "MB"; } my $rRed = ($r*0xFF) / (1048576*6); $rRed = 0xFF if($rRed > 0xFF); my $rGreen = (($r-(1048576*15))*0xFF) / (1048576*25); $rGreen = 0x00 if($rGreen<0); $rGreen = 0xFF if($rGreen>0xFF); my $rCol = floor($rRed)*0x100 + floor(0xFF - $rGreen); printf("\n", $rCol, $recived, $rForm); } print "\t

Time	Duration	Sent	Recived
$time	$dur	`%.2f %s`	`%.2f %s`

\n"; print "\t

\n"; print "\n";