#!%PERL%

#    =====================================================================
#    |                   SPALEWARE LICENSE (Revision 0.1)                |
#    |-------------------------------------------------------------------|
#    | This file is part of a package called "GenEthic" and is           |
#    | licensed under SPALEWARE. You may freely modify and distribute    |
#    | this package or parts of it. But you MUST keep the SPALWARE       |
#    | license in it!                                                    |
#    |                                                                   |
#    =====================================================================

open(DATA,"%PATH%/var/genethic.log");
while(<DATA>) {
	chop;
	($name,$value)=split(/:/);
	if ( $ARGV[0] eq "USERMOVE" && $name =~ /USERS_MORE|USERS_LESS/ ) {
		print "$value\n";
	}
} close(DATA);
print "\n\n";