Subversion Repositories DevTools

Rev

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

Rev 6177 Rev 6198
Line 20... Line 20...
20 
use ReadBuildConfig qw(:All);
 20 
use ReadBuildConfig qw(:All);
21 
use JatsMakeConfig;
 21 
use JatsMakeConfig;
22 
 
 22 
 
23 
our $CommonVersion          = "1.03";
 23 
our $CommonVersion          = "1.03";
24 
 
 24 
 
25 
our $ScmWho                 = "";
 - 
 
26 
our $ScmDebug               = 0;
 - 
 
27 
our $ScmVerbose             = 0;
 - 
 
28 
 
 - 
 
29 
our $CurrentYear            = "";
 25 
our $CurrentYear            = "";
30 
our $CurrentTime            = "";
 26 
our $CurrentTime            = "";
31 
our $CurrentDate            = "";
 27 
our $CurrentDate            = "";
32 
our $All;
 28 
our $All;
33 
 
 29 
 
Line 49... Line 45...
49 
# Returns         : Nothing
 45 
# Returns         : Nothing
50 
#
 46 
#
51 
sub CommonInit
 47 
sub CommonInit
52 
{
 48 
{
53 
    my( $who ) = @_;
 49 
    my( $who ) = @_;
54 
 
 - 
 
55 
#.. Import diagnostic levels
 - 
 
56 
#
 - 
 
57 
    $::ScmWho = $who;
 - 
 
58 
    $::ScmDebug = $ENV{ "GBE_DEBUG" }       if ( exists( $ENV{ "GBE_DEBUG" } ) );
 - 
 
59 
    $::ScmVerbose = $ENV{ "GBE_VERBOSE" }   if ( exists( $ENV{ "GBE_VERBOSE" } ) );
 - 
 
60 
 
 - 
 
61 
    ErrorConfig( 'name'    => $::ScmWho,
 50 
    ErrorConfig( 'name' => $who );
62 
                 'debug'   => $::ScmDebug,
 - 
 
63 
                 'verbose' => $::ScmVerbose );
 - 
 
64 
 
 - 
 
65 
    SystemConfig ('UseShell' => 1 );
 51 
    SystemConfig ('UseShell' => 1 );
66 
 
 52 
 
67 
    Debug( "Common ($::ScmWho)" );
 53 
    Debug( "Common ($who)" );
68 
    Debug( "version:   $::CommonVersion" );
 54 
    Debug( "version:   $::CommonVersion" );
69 
    Debug( "Debug:     $::ScmDebug" );
 55 
    Debug( "Debug:     $::ScmDebug" );
70 
    Debug( "Verbose:   $::ScmVerbose" );
 56 
    Debug( "Verbose:   $::ScmVerbose" );
71 
 
 57 
 
72 
    #   Envars used by this module
 58 
    #   Envars used by this module
Line 79... Line 65...
79 
    InitFileUtils();
 65 
    InitFileUtils();
80 
 
 66 
 
81 
    #
 67 
    #
82 
    #   Init global time variables
 68 
    #   Init global time variables
83 
    #
 69 
    #
- 
 
 70 
    $::ComonInitDone = 1;
84 
    $::CurrentTime = localtime;
 71 
    $::CurrentTime = localtime;
85 
 
 72 
 
86 
    my ($sec, $min, $hour, $mday, $mon, $year) = localtime();
 73 
    my ($sec, $min, $hour, $mday, $mon, $year) = localtime();
87 
    $::CurrentYear = 1900 + $year;
 74 
    $::CurrentYear = 1900 + $year;
88 
    $::CurrentDate                              # eg. 13/10/86
 75 
    $::CurrentDate                              # eg. 13/10/86