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" );