X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;h=69c63c1ef702423bd4a1d2df1aca0f8443dad531;hb=6462efdcfd799f0b0c032565f19eea085ca0dba9;hp=2e74da7be3005c48fd22b4cf2ed43121ec801436;hpb=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;p=spider.git

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 2e74da7b..69c63c1e 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -44,6 +44,12 @@ $ypolltime = 10 unless defined $ypolltime;
 $hpolltime = 300 unless defined $hpolltime;
 %circuit = ();
 
+use vars qw($VERSION $BRANCH);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
 sub init
 {
 	return unless $enable;
@@ -293,7 +299,7 @@ sub _decode
 			my @lines = split /\cM/, $d;
 			
 			for (@lines) {
-				s/([\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg; 
+#				s/([\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg; 
 				dbg("AGW Monitor port: $port \"$_\"") if isdbg('agw');
 			}
 		} elsif ($sort eq 'C') {