Subversion Repositories DevTools

Rev

Rev 1532 | Rev 1538 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1532 Rev 1534
Line 31... Line 31...
31 
 
 31 
 
32 
require 5.8.6;
 32 
require 5.8.6;
33 
use strict;
 33 
use strict;
34 
use warnings;
 34 
use warnings;
35 
use JatsError;                              # Error reporting
 35 
use JatsError;                              # Error reporting
- 
 
 36 
use JatsSystem;                             # System interface
36 
use Win32::OLE;                             # load the Win32::OLE module
 37 
use Win32::OLE;                             # load the Win32::OLE module
37 
use Pod::Usage;                             # required for help support
 38 
use Pod::Usage;                             # required for help support
38 
use Getopt::Long;                           # Parse input options
 39 
use Getopt::Long;                           # Parse input options
39 
use Cwd;                                    # Where am I
 40 
use Cwd;                                    # Where am I
40 
use File::Copy;                             # Transfer files
 41 
use File::Copy;                             # Transfer files
Line 495... Line 496...
495 
            File::Copy::copy($item, $tpath) || Error("Copying: $tpath");
 496 
            File::Copy::copy($item, $tpath) || Error("Copying: $tpath");
496 
        }
 497 
        }
497 
    }
 498 
    }
498 
}
 499 
}
499 
 
 500 
 
500 
 
 - 
 
501 
########################################################################
 - 
 
502 
# System( command ) ---
 - 
 
503 
#       Exec the specified command ...
 - 
 
504 
#       Note: Command list is preserved, helps with spaces in arguments
 - 
 
505 
#
 - 
 
506 
sub System
 - 
 
507 
{
 - 
 
508 
    my( @cmd ) = @_;
 - 
 
509 
    my( $rv );
 - 
 
510 
 
 - 
 
511 
    Verbose2 "System:" , join ',', map ( "\"$_\"" , @cmd) if ($::ScmVerbose >= 2);
 - 
 
512 
    $rv = system( @cmd );
 - 
 
513 
    Verbose2 "Result Code: $rv";
 - 
 
514 
    $rv = $rv / 256;
 - 
 
515 
    return $rv;
 - 
 
516 
}
 - 
 
517 
 
 - 
 
518 
 
 - 
 
519 
#-------------------------------------------------------------------------------
 501 
#-------------------------------------------------------------------------------
520 
#   Documentation
 502 
#   Documentation
521 
#
 503 
#
522 
 
 504 
 
523 
=pod
 505 
=pod