print "\n";
for ($i=0; $i <= $XSAs; $i++) {
my $j=0;
+ my $i_correct = $i+1;
my $xen=0;
my $qemuu=0;
my $qemut=0;
+
+ if ($DEBUG != 0) {
+ mkdir $debug."/".$XSA[$i]."[".$i_correct."]";
+ }
if ($SMART == 0)
{
printf("\n");
my $LAST_XSA = $XSA[0];
for ($i=0; $i <= $XSAs; $i++) {
+
+ my $i_correct = $i+1;
+
if ($LAST_XSA != $XSA[$i]) {
printf('<hr>');
printf("\n");
} else {
printf('<em>%s</em> ', $XSA_ID[$i]);
}
+ if ($DEBUG != 0) {
+ printf(' ... <a href="File://%s">DEBUG</a> ', $debug."/".$XSA[$i]."[".$i_correct."]");
+ mkdir $;
+ }
printf('</li>');
printf("\n");
}
# DEBUG FILE
my $i_correct = $i +1;
- my $debugbase = $debug."/".$XSA[$i]."[".$i_correct."]-".$type;
+ my $debugbase = $debug."/".$XSA[$i]."[".$i_correct."]/".$type;
my $debuglog = $debugbase."---log.txt";
my $debugstring = "";