Subversion Repositories DevTools

Rev

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

Rev 7319 Rev 7320
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 357... Line 358...
357 
#-------------------------------------------------------------------------------
 358 
#-------------------------------------------------------------------------------
358 
# Function        : Information
 359 
# Function        : Information
359 
#                   Message
 360 
#                   Message
360 
#                   Question
 361 
#                   Question
361 
#                   Warning
 362 
#                   Warning
- 
 
 363 
#                   WarnError
362 
#                   Error
 364 
#                   Error
363 
#                   Verbose
 365 
#                   Verbose
364 
#                   Debug
 366 
#                   Debug
365 
#                   _Message ( Internal use only )
 367 
#                   _Message ( Internal use only )
366 
#
 368 
#
Line 479... Line 481...
479 
{
 481 
{
480 
    _Message '(W)', @_ unless ( $::ScmQuiet > 2);
 482 
    _Message '(W)', @_ unless ( $::ScmQuiet > 2);
481 
}
 483 
}
482 
 
 484 
 
483 
#-------------------------------------------------------------------------------
 485 
#-------------------------------------------------------------------------------
- 
 
 486 
# Function        : WarnError
- 
 
 487 
#
- 
 
 488 
# Description     : Display a warnign or an error based onthe first argument
- 
 
 489 
#
- 
 
 490 
# Inputs          : Mode    - True. Error, False warn
- 
 
 491 
#                   ...     - Fed to warn or error
- 
 
 492 
#
- 
 
 493 
# Returns         : May not return
- 
 
 494 
#
- 
 
 495 
sub WarnError
- 
 
 496 
{
- 
 
 497 
    my $mode = shift;
- 
 
 498 
    if ($mode) {
- 
 
 499 
        Error (@_);
- 
 
 500 
    }
- 
 
 501 
    Warning(@_);
- 
 
 502 
}
- 
 
 503 
 
- 
 
 504 
 
- 
 
 505 
#-------------------------------------------------------------------------------
484 
# Function        : Question
 506 
# Function        : Question
485 
#
 507 
#
486 
# Description     : Display a Question message
 508 
# Description     : Display a Question message
487 
#                   These cannot be disabled
 509 
#                   These cannot be disabled
488 
#
 510 
#
Line 556... Line 578...
556 
        $ScmExitCode = $1 || 1;
 578 
        $ScmExitCode = $1 || 1;
557 
        shift @_;
 579 
        shift @_;
558 
    }
 580 
    }
559 
    _Message '(E)', @_;
 581 
    _Message '(E)', @_;
560 
    $ScmErrorCount++;
 582 
    $ScmErrorCount++;
561 
#    DebugTraceBack();
 583 
    #DebugTraceBack();
562 
    ErrorDoExit() unless ( $ScmDelayExit );
 584 
    ErrorDoExit() unless ( $ScmDelayExit );
563 
}
 585 
}
564 
 
 586 
 
565 
#-------------------------------------------------------------------------------
 587 
#-------------------------------------------------------------------------------
566 
# Function        : ReportError
 588 
# Function        : ReportError