#!C:/Perl/bin/perl

use strict;
use Win32;
use XML::Simple;

my ($uptime, $xml, $lastupdate);

while (1)
{
	$uptime = Win32::GetTickCount();
	$xml = XMLin("reg.xml", 'searchpath' => ['C:/Programme/Apache Group/Apache/cgi-bin/uptime'], 'noattr' => 1);
	$xml->{'uptime'} = $uptime;
	if ($uptime > $xml->{'record'})
	{
		$xml->{'record'} = $uptime;
	}
	$lastupdate = time();
	$xml->{'lastupdate'} = $lastupdate;
	XMLout($xml, 'outputfile' => 'C:/Programme/Apache Group/Apache/cgi-bin/uptime/reg.xml', 'noattr' => 1);
	sleep(600);
}

exit;