#!/usr/bin/perl

print "Content-type: text/html\n\n";
$| = 1;
$buffer = $ENV{'QUERY_STRING'};
@pairs = split( /&/, $buffer );

foreach $pair( @pairs ){
  ( $name, $value ) = split( /=/, $pair );
  $value =~ tr/+/ /;
  $value =~ s/%(..)/pack( "C", hex($1) )/eg;
  $FORM{$name} = $value;
}

# $inum=$ARGV[0];
$inum=$FORM{$uptime};

if ($inum eq ""){
  open(PROF, "/proc/uptime");
  $inum=<PROF>;
  close(PROF);
  $inum =~ s/([0-9]+).([0-9]+) ([0-9]+).([0-9]+)/$1/e;
}

if ($inum !~ /^[0-9][0-9]*$/) {
  print "Input only a number.\n";
  exit;
}

$utsec=0;
$utmin=0;
$uthour=0;
$utdate=0;

if ($inum > (24*60*60)){
  $utdate=int($inum/(24*60*60));
  $inum = $inum - ($utdate*24*60*60);
}
if (($inum > (60*60)) && ($inum != 0)){
  $uthour=int($inum/(60*60));
  $inum = $inum - ($uthour*60*60);
}
if (($inum > 60) && ($inum != 0)){
  $utmin=int($inum/60);
  $inum = $inum - ($utmin*60);
}
$utsec=$inum;
print "$utdate day $uthour hour $utmin min $utsec sec\n";