From acd02af8616b1e67ff43fcd31663ba5eec5a4a0e Mon Sep 17 00:00:00 2001 From: fukachan Date: Sun, 19 Feb 2012 09:56:52 +0000 Subject: remove Log::ErrLogger, which is not used. --- cpan/dist/Log-ErrLogger/ErrLogger.pm | 750 ----------------------------------- cpan/dist/Log-ErrLogger/MANIFEST | 5 - cpan/dist/Log-ErrLogger/Makefile.PL | 8 - cpan/dist/Log-ErrLogger/README | 224 ----------- cpan/dist/Log-ErrLogger/test.pl | 109 ----- cpan/lib/Log/ErrLogger.pm | 750 ----------------------------------- 6 files changed, 1846 deletions(-) delete mode 100644 cpan/dist/Log-ErrLogger/ErrLogger.pm delete mode 100644 cpan/dist/Log-ErrLogger/MANIFEST delete mode 100644 cpan/dist/Log-ErrLogger/Makefile.PL delete mode 100644 cpan/dist/Log-ErrLogger/README delete mode 100644 cpan/dist/Log-ErrLogger/test.pl delete mode 100644 cpan/lib/Log/ErrLogger.pm diff --git a/cpan/dist/Log-ErrLogger/ErrLogger.pm b/cpan/dist/Log-ErrLogger/ErrLogger.pm deleted file mode 100644 index ae72be37..00000000 --- a/cpan/dist/Log-ErrLogger/ErrLogger.pm +++ /dev/null @@ -1,750 +0,0 @@ -#!perl5 - -use strict; - -package Log::ErrLogger; - -=head1 NAME - -Log::ErrLogger - Log errors and error-like events - -=head1 SYNOPSIS - - use Log::ErrLogger; - - # Send e-mail for ERROR or worse - my $mail_logger = new Log::ErrLogger::Mail( - SENSITIVITY => Log::ErrLogger::ERROR, - HEADERS => { To => "who@where.com", - Subject => "Errors occurred while running $0" }); - - # Log INFORMATIONAL or worse to a file - my $file_logger = new Log::ErrLogger::File( - FILE => "/home/who/what.err", - SENSITIVITY => Log::ErrLogger::INFORMATIONAL ); - - # Print a nice HTML error message - my $sub_logger = new Log::ErrLogger::Sub ( - SENSITIVITY => FATAL, - SUB => sub { print STDOUT "Oops!Please try again later.\n"; - exit(0); } ); - - # Capture all output to STDERR as an UNEXPECTED error - my $stderr_logger = Log::ErrLogger::tie( Log::ErrLogger::UNEXPECTED ); - - # But don't actually print to STDERR - $stderr_logger->close; - - # Log a warning - log_error( WARNING, "Danger, %s!", "Will Robinson" ); - -=head1 DESCRIPTION - -Log::ErrLogger provides a means of logging errors and error-like events (such -as warnings and unexpected situations) when printing to STDERR just will not do. - -Error-like events are classified by a severity (see L below). -Programs instantiate error logging objects which can respond differently to -events. The objects have a sensitivity -- they will respond to any event at -least as severe as their sensitivity, and will ignore any events that are less -severe. - -This module instantiates new __DIE__ and __WARN__ handlers that call -log_error( FATAL, die-message) and log_error( WARNING, warn-message), respectively. - -=head1 HISTORY - -$Id: ErrLogger.pm,v 1.6 1999/09/23 21:37:24 dcw Exp $ - -$Log: ErrLogger.pm,v $ -Revision 1.6 1999/09/23 21:37:24 dcw -Incorporated Tim Ayers suggestions - -Revision 1.5 1999/09/13 17:59:48 dcw -Copyright - -Revision 1.4 1999/09/13 16:37:17 dcw -Documentation - -Revision 1.3 1999/09/01 14:28:28 dcw -Backup file, export, autoflush - -Revision 1.2 1999/08/31 17:18:39 dcw -Log::ErrLogger::Sub - -Revision 1.1 1999/08/30 21:28:43 dcw -Initial - -=head1 AUTHOR - -David C. Worenklein - -=head1 COPYRIGHT - -Copyright 1999 Greenwich Capital Markets - -This library is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. - -=head1 ERROR SEVERITIES - -The predefined severities are - -=over 4 - -=item DEBUGGING - -=item INFORMATIONAL - -=item UNEXPECTED - -=item WARNING - -=item ERROR - -=item FATAL - -=back - -They have numerical values from 1 to 6. - -=cut - -use vars qw{@Errors}; -BEGIN { - @Errors = qw{ - ALL - DEBUGGING - INFORMATIONAL - UNEXPECTED - WARNING - ERROR - FATAL - NONE - }; -} - - - -################################# -# Typical object-oriented stuff # -################################# - -use Exporter; - -use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS $VERSION }; - -@ISA = qw{ Exporter }; -@EXPORT_OK = (@Errors, "log_error", "tie", "LogError", "Tie"); -%EXPORT_TAGS = (ErrorLevels => [@Errors]); -($VERSION) = ( qw$Revision: 1.6 $ )[1]; - -use IO::Handle; - - - -############## -# Prototypes # -############## - -sub log_error( $$;@ ); -sub tie( ;$ ); -sub new( $;% ); - -# Prototypes don't do much for methods, but they make the code more readable. -sub sensitivity( $ ); -sub set_sensitivity( $$ ); -sub file_handle( $ ); -sub set_file_handle( $$ ); -sub log( $$$ ); -sub close( $ ); - - - -############################### -# Set up the error severities # -############################### - -for(my $i=0; $i $i "; -} - - - -########################### -# Commandeer DIE and WARN # -########################### - -$SIG{__DIE__} = sub { if (defined($^S)) { Log::ErrLogger::log_error( &Log::ErrLogger::FATAL, "%s", @_ ); } else { die @_; } }; -$SIG{__WARN__} = sub { if (defined($^S)) { Log::ErrLogger::log_error( &Log::ErrLogger::WARNING, "%s", @_ ); } else { warn @_; } }; - - - -########################################## -# Here are the logging methods specified # -########################################## - -my @LogMethods; - - - - -=head1 NON-METHOD SUBROUTINES - - -=over 4 - -=item log_error( SEVERITY, FORMAT [,LIST] ) - -Log an error of the specified severity. The text of the message is the output of -sprintf FORMAT, ARGS. A carriage-return (\n) will be appended if one is not -supplied. - -=cut - -sub log_error( $$;@ ) { - my ($severity, $format, @args) = @_; - - my $message = sprintf $format, @args; - # Add \n if needed - $message .= "\n" unless substr($message, -1) eq "\n"; - - my $fatal; - - foreach my $logger (@LogMethods) { - if ($logger->sensitivity <= $severity) { - - # An error logger can attempt to die - eval { $logger->log( $severity, $message ) }; - $fatal ||= $@; - } - } - - # Did we hit a dieing error logger? - die $fatal if $fatal; -} - -*LogError = \&log_error; - - -############################################################################### - - -=item my $stderr_logger = tie( [SEVERITY] ); - -Tie the STDERR handle to the Log::ErrLogger module, so that any output to -STDERR will call log_error( $severity, output ). - -If $severity is not specified, it will default to INFORMATIONAL. - -=cut - -my $stderr_handler; - -sub tie( ;$ ) { - my ($severity) = @_; - - $severity = &INFORMATIONAL unless defined($severity); - - my $handler = new Log::ErrLogger SENSITIVITY => $severity; - - # Copy off what STDERR was - open(OLD_STDERR, ">&STDERR"); - - $handler->set_file_handle(*OLD_STDERR); - - $stderr_handler = tie *STDERR, ref($handler), $severity; - - return $handler; -} - -*Tie = \&tie; - -sub TIEHANDLE( $ ) { - my ($class, $severity) = @_; - return bless \$severity, $class; -} - -sub PRINT( $$ ) { - my ($self, $message) = @_; - Log::ErrLogger::log_error( $$self, "%s", $message ); -} - -sub PRINTF( $$;@ ) { - my ($self, $format, @args) = @_; - Log::ErrLogger::log_error( $$self, $format, @args ); -} - - -############################################################################### - - -=back - -=head1 METHODS - -=over 4 - -=item my $sensitivity = $logger->sensitivity; - -Returns the sensitivty of an error logger object. Objects respond to -events that are at least as severe as their sensitivity. There are -two special sensitivities. Objects with a sensitivity of NONE do not -respond to any events. Objects with a sensitivity of ALL respond -to all events. - -=cut - -sub sensitivity( $ ) { - - my ($self) = @_; - - return $self->{SENSITIVITY}; -} - - -############################################################################### - - -=item my $old_sensitivity = $logger->sensitivity( SENSITIVITY ); - -Sets the sensitivty of an error logger object. Objects respond to events -that are at least as severe as their sensitivity. - -Returns what the sensitivity of the object used to be. - -=cut - -sub set_sensitivity( $$ ) { - - my ($self, $sensitivity) = @_; - - my $old_sensitivity = $self->{SENSITIVITY}; - $self->{SENSITIVITY} = $sensitivity; - - return $old_sensitivity; -} - - - -############################################################################### - -=item my $fh = $logger->file_handle; - -Returns the IO::Handle associated with the error logger object. Not all -error loggers will have a file handle, but most will. - -=cut - -sub file_handle( $ ) { - my ($self) = @_; - - return $self->{FILEHANDLE}; -} - - -############################################################################### - -=item $logger->set_file_handle( HANDLE ); - -Associates the error logger object with the given (opened) IO::Handle, and -closes the old file handle that used to be associated with the object (if -there was one.) - -The handle is set to autoflush, since buffering is usually a bad idea on -error loggers. - -=cut - -sub set_file_handle( $$ ) { - my ($self, $handle) = @_; - - if (defined($self->file_handle)) { - $self->file_handle->close; - } - - $self->{FILEHANDLE} = $handle; - $self->{FILEHANDLE}->autoflush(1); -} - - -############################################################################### - -=item $logger->close; - -Decommission the error logging object. L will no longer invoke -this object. - -Note that this does NOT close the associated file handle. However, if the -error logging object has the only reference to the file handle, and the -program does not have any references to the error logging object, the handle -will have no references left and will be destroyed. - -=cut - -sub close( $ ) { - my ($self) = @_; - - @LogMethods = grep { $_ != $self } @LogMethods; -} - - - - -############################################################################### - -=item $logger->log( SEVERITY, MESSAGE ); - -This is the method called by L, above. It prints - -