equal
deleted
inserted
replaced
37 print "where OPTIONS are:\n"; |
37 print "where OPTIONS are:\n"; |
38 print "\t--basedir=DIR Generate output under DIR (defaults to current dir)\n"; |
38 print "\t--basedir=DIR Generate output under DIR (defaults to current dir)\n"; |
39 exit(0); |
39 exit(0); |
40 } |
40 } |
41 |
41 |
|
42 my $releaseablesdir = "$::basedir/releaseables"; |
|
43 $releaseablesdir =~ s,/,\\,g; # this is because rmdir doens't cope correctly with the forward slashes |
|
44 system("rmdir /S /Q $releaseablesdir") if (-d "$releaseablesdir"); |
|
45 mkdir("$releaseablesdir"); |
|
46 |
42 my $saxhandler = RaptorSAXHandler->new(); |
47 my $saxhandler = RaptorSAXHandler->new(); |
43 $saxhandler->add_observer('releaseables', $releaseables::reset_status); |
48 $saxhandler->add_observer('releaseables', $releaseables::reset_status); |
44 |
49 |
45 my $parser = XML::SAX::ParserFactory->parser(Handler=>$saxhandler); |
50 my $parser = XML::SAX::ParserFactory->parser(Handler=>$saxhandler); |
46 for (@logfiles) |
51 for (@logfiles) |