Subversion Repositories DevTools

Rev

Rev 1684 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1684 Rev 1686
Line 47... Line 47...
47 
use strict;
 47 
use strict;
48 
use warnings;
 48 
use warnings;
49 
 
 49 
 
50 
use Pod::Usage;
 50 
use Pod::Usage;
51 
use Getopt::Long;
 51 
use Getopt::Long;
52 
use File::Path qw(make_path remove_tree);
 52 
use File::Path;
53 
 
 53 
 
54 
use JatsError;
 54 
use JatsError;
55 
use FileUtils;
 55 
use FileUtils;
56 
use JatsSystem;
 56 
use JatsSystem;
57 
 
 57 
 
Line 144... Line 144...
144 
#   Delete every thingwe create
 144 
#   Delete every thingwe create
145 
#
 145 
#
146 
if ( $opt_clean )
 146 
if ( $opt_clean )
147 
{
 147 
{
148 
    Message ("Cleaning: $workfile, $logfile");
 148 
    Message ("Cleaning: $workfile, $logfile");
149 
    remove_tree(  $workfile, $logfile );
 149 
    RmDirTree( $workfile );
- 
 
 150 
    RmDirTree( $logfile );
150 
    Message ("Cleaning: $outpath");
 151 
    Message ("Cleaning: $outpath");
151 
    remove_tree( $outpath );
 152 
    RmDirTree( $outpath );
152 
    exit 0;
 153 
    exit 0;
153 
}
 154 
}
154 
 
 155 
 
155 
#
 156 
#
156 
#   Not cleaning
 157 
#   Not cleaning
Line 290... Line 291...
290 
 
 291 
 
291 
#
 292 
#
292 
#   Create the target directory
 293 
#   Create the target directory
293 
#
 294 
#
294 
Verbose2("Create packing path: $outpath");
 295 
Verbose2("Create packing path: $outpath");
295 
make_path ( $outpath );
 296 
mkpath ( $outpath );
296 
remove_tree( $logfile );
 297 
RmDirTree( $logfile );
297 
 
 298 
 
298 
#
 299 
#
299 
#   Run the required program
 300 
#   Run the required program
300 
#
 301 
#
301 
my $rv = System ('--NoExit','--Shell' ,$guardengine_path, '--xml-file', $workfile, "2>$logfile" );
 302 
my $rv = System ('--NoExit','--Shell' ,$guardengine_path, '--xml-file', $workfile, "2>$logfile" );