Subversion Repositories DevTools

Rev

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

Rev 6504 Rev 7326
Line 57... Line 57...
57
    # set the version for version checking
57
    # set the version for version checking
58
    $VERSION     = 1.00;
58
    $VERSION     = 1.00;
59
 
59
 
60
    @EXPORT      = qw(ErrorConfig ErrorReConfig ErrorDoExit
60
    @EXPORT      = qw(ErrorConfig ErrorReConfig ErrorDoExit
61
                      ReportError Fatal Error Warning
61
                      ReportError Fatal Error Warning
-
 
62
                      WarnError
62
                      Message Message1
63
                      Message Message1
63
                      Information Information1
64
                      Information Information1
64
                      Question
65
                      Question
65
                      Verbose0 Verbose Verbose2 Verbose3
66
                      Verbose0 Verbose Verbose2 Verbose3
66
                      Debug0 Debug Debug2 Debug3
67
                      Debug0 Debug Debug2 Debug3
Line 356... Line 357...
356
#-------------------------------------------------------------------------------
357
#-------------------------------------------------------------------------------
357
# Function        : Information
358
# Function        : Information
358
#                   Message
359
#                   Message
359
#                   Question
360
#                   Question
360
#                   Warning
361
#                   Warning
-
 
362
#                   WarnError
361
#                   Error
363
#                   Error
362
#                   Verbose
364
#                   Verbose
363
#                   Debug
365
#                   Debug
364
#                   _Message ( Internal use only )
366
#                   _Message ( Internal use only )
365
#
367
#
Line 478... Line 480...
478
{
480
{
479
    _Message '(W)', @_ unless ( $::ScmQuiet > 2);
481
    _Message '(W)', @_ unless ( $::ScmQuiet > 2);
480
}
482
}
481
 
483
 
482
#-------------------------------------------------------------------------------
484
#-------------------------------------------------------------------------------
-
 
485
# Function        : WarnError 
-
 
486
#
-
 
487
# Description     : Display a warning or an error based on the first argument
-
 
488
#
-
 
489
# Inputs          : Mode    - True. Error, False warn
-
 
490
#                   ...     - Fed to warn or error
-
 
491
#
-
 
492
# Returns         : May not return 
-
 
493
#
-
 
494
sub WarnError
-
 
495
{
-
 
496
    my $mode = shift;
-
 
497
    if ($mode) {
-
 
498
        Error (@_);
-
 
499
    }
-
 
500
    Warning(@_);
-
 
501
}
-
 
502
 
-
 
503
#-------------------------------------------------------------------------------
483
# Function        : Question
504
# Function        : Question
484
#
505
#
485
# Description     : Display a Question message
506
# Description     : Display a Question message
486
#                   These cannot be disabled
507
#                   These cannot be disabled
487
#
508
#