#!/usr/bin/perl
use strict;
my $logFile = 'gbluesTracker.log';
# my $intervalSecond = 120;
my $intervalSecond = 600;
main();
sub main
{
my $r = open(LOG, ">>$logFile");
if($r && !$ENV{inside})
#if(1)
{
print LOG dumpDate(time()), "\n";
for(sort keys %ENV)
{
print LOG "$_ = $ENV{$_}\n";
}
print LOG "====\n";
}
close(LOG);
print <<__HTML__;
Refresh: $intervalSecond
Content-Type: text/html
__HTML__
}
sub dumpDate
{
my $t = shift;
my @d = localtime($t);
sprintf("%04d-%02d-%02d %02d:%02d:%02d",
$d[5] + 1900,
$d[4] + 1,
$d[3],
$d[2],
$d[1],
$d[0]
);
}