[xiph-cvs] cvs commit: BlueberryArmageddon blueberry_armageddon

Monty xiphmont at xiph.org
Wed Apr 10 23:29:39 PDT 2002



xiphmont    02/04/10 23:29:38

  Modified:    .        blueberry_armageddon
  Log:
  escaping fix

Revision  Changes    Path
1.4       +8 -5      BlueberryArmageddon/blueberry_armageddon

Index: blueberry_armageddon
===================================================================
RCS file: /usr/local/cvsroot/BlueberryArmageddon/blueberry_armageddon,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- blueberry_armageddon	2002/04/01 20:32:27	1.3
+++ blueberry_armageddon	2002/04/11 06:29:38	1.4
@@ -626,13 +626,12 @@
             print STDERR "moving $outfile to $trackname\n";
             unlink $wavfile;
 
-	    $trackname=~s/\"/\\\"/g;
-	    die "could not move file!: $!" if `mv "$outfile" "$trackname"`;
-
             # add to unfiled list
-	    $trackname.='\n';
-	    `echo "$trackname" >> $unfiled;`;
+	    `echo "$trackname\n" >> $unfiled;`;
 
+	    $trackname=~s/([\"\$\`\\])/\\$1/g;
+	    die "could not move file!: $!" if `mv "$outfile" "$trackname"`;
+
             # unclick the rip button
             Recheck();
 
@@ -655,6 +654,10 @@
             $metaalbum=$album;
             $wavfile="/tmp/$$.wav";
             $outfile="/tmp/$$.ogg";
+
+	    $metatitle=~s/([\"\$\`\\])/\\$1/g;
+	    $metaartist=~s/([\"\$\`\\])/\\$1/g;
+	    $metaalbum=~s/([\"\$\`\\])/\\$1/g;
 
             $metatitle=~s/\"/\\\"/g;
             $metaartist=~s/\"/\\\"/g;

<p><p><p>--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.



More information about the commits mailing list