equal
deleted
inserted
replaced
53 $raptorbitsdir = "$basedir/raptorbits"; |
53 $raptorbitsdir = "$basedir/raptorbits"; |
54 $outputdir = "$basedir/html"; |
54 $outputdir = "$basedir/html"; |
55 } |
55 } |
56 mkdir($basedir) if (!-d$basedir); |
56 mkdir($basedir) if (!-d$basedir); |
57 |
57 |
|
58 $raptorbitsdir =~ s,/,\\,g; # this is because rmdir doens't cope correctly with the forward slashes |
|
59 |
58 system("rmdir /S /Q $raptorbitsdir") if (-d $raptorbitsdir); |
60 system("rmdir /S /Q $raptorbitsdir") if (-d $raptorbitsdir); |
59 mkdir($raptorbitsdir); |
61 mkdir($raptorbitsdir); |
60 #print "Created dir $raptorbitsdir.\n"; |
62 #print "Created dir $raptorbitsdir.\n"; |
61 |
63 |
62 # create empty summary file anyway |
64 # create empty summary file anyway |