""

plugins/XAMP.pl

@@ -12,13 +12,15 @@ my $last_text = "";
 # Some rather kludgy OS-specific code follows
 #
 
+my $code;
 
 if($^O =~ /Win32/)
 {
-    eval '
+
+    $code = <<'END';
     package XAMP;
 
-        use Win32::GuiText qw(FindWindowLike GetWindowText);
+    use Win32::GuiTest qw(FindWindowLike GetWindowText);
 
         sub get_text
 {
@@ -28,13 +30,18 @@ if($^O =~ /Win32/)
     my $song = GetWindowText($win) if $win;
             
     $song = $song x 2 unless($song =~ m/\d*\. (.*)- Winamp/);
+    
+    $song =~ s/ - Winamp//g;
+    $song =~ s/\d*\.\s*//g;
+    $commit = 1 if $song ne $last_text;
     return $song;
 }
-    ';
+1;
+END
 }
 else
 {
-    eval '
+    $code = '
 package XAMP;
 use Xmms::Remote;
 
@@ -46,9 +53,13 @@ else
     $commit = 1 if $text ne $last_text;
     return $text;
 }
-    ' or die $@;
+1;
+    ';
 }
 
+# $code =~ s/\n|\r//g;
+eval $code or die "$! $@ $^E";
+
 sub get_title
 {
     my $text = get_text();
@@ -70,6 +81,7 @@ sub update
     $last_text = $text;
 
     my ($artist, $title) = (get_artist(), get_title());
+    print "artist = $artist; song = $title;\n";
     hook('protocol_mod_prof', -name => '%a', -value => $artist);
     hook('protocol_mod_prof', -name => '%s', -value => $title);
     
@@ -89,8 +101,4 @@ register_hook("signed_in", sub {
     
 });
 
-
-
-
-
-	    
+1;