[xiph-cvs] cvs commit: BlueberryArmageddon blueberry_armageddon

[Monty]

xiphmont    02/04/01 12:32:28

  Modified:    .        blueberry_armageddon
  Log:
  allow ripping of seekrit track zero.

Revision  Changes    Path
1.3       +22 -3     BlueberryArmageddon/blueberry_armageddon

Index: blueberry_armageddon
===================================================================
RCS file: /usr/local/cvsroot/BlueberryArmageddon/blueberry_armageddon,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- blueberry_armageddon	2002/04/01 19:46:49	1.2
+++ blueberry_armageddon	2002/04/01 20:32:27	1.3
@@ -171,6 +171,7 @@
 $y+=$window_artist_label->reqheight()+5;
 $infoy=$y;
 
+$seekrit=0;
 $tracks=0;
 for(my$i=1;$i<=99;$i++){
     my$text="track$i: ";
@@ -302,6 +303,9 @@
 
             my$track=$ripstatus;
             my$title=$trackname[$track];
+
+	    $track=0 if($track==$tracks && $seekrit);
+
             $wavfile="/tmp/$$.wav";
             my$glob;
             eval "\$glob=\"$rip\"";
@@ -329,7 +333,8 @@
 sub Track_Path{
     my($tracknum)=@_;
     $trackpad=$tracknum;
-    $trackpad="0$tracknum" if($tracknum<10);
+    $trackpad=0 if($trackpad==$tracks && $seekrit);
+    $trackpad="0$trackpad" if($trackpad<10);
     "$trackbase/$artist/$album/$artist - $album - $trackpad - $trackname[$tracknum]$suffix";
 }
 
@@ -357,6 +362,7 @@
             $tracks=$1 if ($1>$tracks);
             $leadout=$2+$3+150;
             push @toc,"$1 $m $s $f";
+	    $initial=$3 if($1==1);
         }
     } 
 
@@ -376,7 +382,7 @@
         Status("Query failed");
         Alert("Could not query cdrom; drive empty?",$output);
     }else{
-	for(my$i=1;$i<=$tracks;$i++){
+	for(my$i=1;$i<=99;$i++){
             $trackrip[$i]=1;
         } 
             
@@ -422,6 +428,12 @@
                 }
                 $artist="";
                 $album="";
+		$seekrit=0;
+		if($initial>100){
+		    $tracks++;
+		    $trackname[$tracks]="Hidden Track Zero";
+		    $seekrit=1;
+		}
 
                 $cddb->DESTROY();
                 
@@ -444,7 +456,14 @@
             $trackname[$i+1]=$disc_info->{"ttitles"}[$i];
                 $trackname[$i+1]=~s/\//:/g;
         }
-	
+
+	$seekrit=0;
+	if($initial>100){
+	    $tracks++;
+	    $trackname[$tracks]="Hidden Track Zero";
+	    $seekrit=1;
+	}
+
         Recheck();
         Status("Album Loaded");
         $cddb->DESTROY();

<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.