#!/usr/bin/perl

use XML::Twig;
use LWP::UserAgent;
use Thread;

$userAgent = new LWP::UserAgent;
$userAgent->timeout($connectTimeout);

while (1)
{
        my $thread = threads->new(\&querySystem);
        $thread->join;
        sleep 5;
}

sub querySystem
{
        my $statusCallback = queryStatus();
        my $statusTwig = new XML::Twig(twig_roots => {'Result/Status' => $statusCallback }, ProtocolEncoding=>"x-sjis-unicode");
              my $result = $statusTwig->safe_parsefile("xmlfile.xml");
}


sub queryStatus
{
        my $newfunc = sub {
                my($twig, $element) = @_;

                my $mmsVersion = $element->first_child('MMSVersion')->text;
                my $partVersion = $element->first_child('ParticipantVersion')->text;
                print "mmsVersion: $mmsVersion, partVersion: $partVersion\n";
        };
        return $newfunc;
}

##</code><code>##

<?xml version="1.0" encoding="shift-jis"?>
<!DOCTYPE AdminRequest SYSTEM "AdminAPI.dtd">
<AdminRequest>
	<Header>
		<ReturnCode>0</ReturnCode>
		<ReturnString>�¬Œ÷</ReturnString>
	</Header>
	
	<Results>
		
		<Result Id="123455">
			<Action>query_status</Action>
			<ReturnCode>0</ReturnCode>
			<ReturnString>�¬Œ÷</ReturnString>
			
			
			
			<Status>
				<MMSVersion>2.1.74G</MMSVersion>
<ParticipantVersion>4.8.1565B</ParticipantVersion> 
				<MMSMajorVersion>5.1 jp</MMSMajorVersion>				
			</Status>
			
		</Result>
		
	</Results>
	
</AdminRequest>