Attachment 155489 Details for Bug 237356 – new SetupLog perl module

new SetupLog perl module

SetupLog.pm (text/plain), 3.33 KB, created by Rich Megginson on 2007-05-25 22:49:45 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Rich Megginson

Created: 2007-05-25 22:49:45 UTC

Size: 3.33 KB

patch

obsolete

># BEGIN COPYRIGHT BLOCK
># This Program is free software; you can redistribute it and/or modify it under
># the terms of the GNU General Public License as published by the Free Software
># Foundation; version 2 of the License.
># 
># This Program is distributed in the hope that it will be useful, but WITHOUT
># ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
># FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
># 
># You should have received a copy of the GNU General Public License along with
># this Program; if not, write to the Free Software Foundation, Inc., 59 Temple
># Place, Suite 330, Boston, MA 02111-1307 USA.
># 
># In addition, as a special exception, Red Hat, Inc. gives You the additional
># right to link the code of this Program with code not covered under the GNU
># General Public License ("Non-GPL Code") and to distribute linked combinations
># including the two, subject to the limitations in this paragraph. Non-GPL Code
># permitted under this exception must only link to the code of this Program
># through those well defined interfaces identified in the file named EXCEPTION
># found in the source code files (the "Approved Interfaces"). The files of
># Non-GPL Code may instantiate templates or use macros or inline functions from
># the Approved Interfaces without causing the resulting work to be covered by
># the GNU General Public License. Only Red Hat, Inc. may make changes or
># additions to the list of Approved Interfaces. You must obey the GNU General
># Public License in all respects for all of the Program code and other code used
># in conjunction with the Program except the Non-GPL Code covered by this
># exception. If you modify this file, you may extend this exception to your
># version of the file, but you are not obligated to do so. If you do not wish to
># provide this exception without modification, you must delete this exception
># statement from your version and license this file solely under the GPL without
># exception. 
># 
># 
># Copyright (C) 2007 Red Hat, Inc.
># All rights reserved.
># END COPYRIGHT BLOCK
>#
># This implements SetupLog from setuputil InstallLog in perl
>#
>package SetupLog;
>
># tempfiles
>use File::Temp qw(tempfile tempdir);
>
>require    Exporter;
>@ISA       = qw(Exporter);
>@EXPORT    = qw(FATAL START SUCCESS WARN INFO);
>
>my $FATAL    = "Fatal";
>my $START    = "Start";
>my $SUCCESS  = "Success";
>my $WARN     = "Warning";
>my $INFO     = "Info";
>my $DEBUG    = "Debug";
>
>sub new {
>    my $type = shift;
>    my $filename = shift;
>    my $self = {};
>    my $fh;
>
>    if (!$filename) {
>        ($fh, $filename) = tempfile("installXXXXXX", UNLINK => 0, SUFFIX => ".log");
>    } else {
>        open LOGFILE, ">$filename" or die "Error: could not open logfile $filename: $!";
>        $fh = \*LOGFILE;
>    }
>    $self->{fh} = $fh;
>    $self->{filename} = $filename;
>    $self = bless $self, $type;
>
>    return $self;
>}
>
>sub logMessage {
>    my ($self, $level, $who, $msg, @rest) = @_;
>    if (!$self->{fh}) {
>        return;
>    }
>
>    my $string = strftime "[%y/%m/%d:%H:%M:%S] - ", localtime;
>    $string .= "[$who] $level ";
>    $string .= sprintf $msg, @rest;
>    print $self->{fh} $string;
>}
>
>sub levels {
>    my $self = shift;
>    return ($FATAL, $START, $SUCCESS, $WARN, $INFO);
>}
>
>#############################################################################
># Mandatory TRUE return value.
>#
>1;

Actions: View

Attachments on bug 237356: 153230 | 153562 | 153667 | 153668 | 153674 | 153675 | 153677 | 153678 | 155103 | 155105 | 155406 | 155407 | 155408 | 155409 | 155410 | 155411 | 155412 | 155413 | 155414 | 155483 | 155484 | 155485 | 155486 | 155487 | 155488 | 155489 | 155490 | 156389 | 156510 | 156525 | 156539 | 156540 | 156541 | 156612 | 156613 | 156614 | 156626 | 156633 | 156634 | 156741 | 156829 | 156834 | 156839 | 156840 | 156895 | 157043 | 157044 | 157133 | 157159 | 157160 | 157164 | 157165 | 157167 | 157298 | 157378 | 157381 | 157388 | 157390 | 157400 | 157401 | 157407 | 157408 | 157429 | 157431 | 157469 | 157471 | 157479 | 157480 | 160762