Changeset 120


Ignore:
Timestamp:
12/13/05 08:22:27 (18 years ago)
Author:
thauvin
Message:
  • s/loging/logging/ as suggest by rafael
Location:
trunk/soft/ObsData
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/soft/ObsData/ObsData.pm

    • Property cvs2svn:cvs-rev changed from 1.38 to 1.39
    r119 r120  
    8282    if (!open($self->{loghandle}, ">> $self->{logfile}")) { 
    8383        $self->{loghandle} = undef; 
    84         $self->loging(5, "Can't open log file %s, exiting", "$self->{logfile}"); 
     84        $self->logging(5, "Can't open log file %s, exiting", "$self->{logfile}"); 
    8585        return 0; 
    8686    } 
    … …  
    8989} 
    9090 
    91 =head2 loging($level, $message, ...) 
    92  
    93 Pass a message into the loging process. 
     91=head2 logging($level, $message, ...) 
     92 
     93Pass a message into the logging process. 
    9494 
    9595   $level is the level of message 
    … …  
    9898=cut 
    9999 
    100 sub loging { 
     100sub logging { 
    101101    my ($self, $level, $fmt, @val) = @_; 
    102102    my $msg = sprintf($fmt, @val); 
    … …  
    152152            eval { qr/$regexp/ }; # Many thanks Rafael 
    153153            if ($@) { 
    154                 $self->loging(4, "error in regexp: '%s': %s", 
     154                $self->logging(4, "error in regexp: '%s': %s", 
    155155                    $regexp, 
    156156                    $@, 
    … …  
    354354    my $dir = $self->getvalue($obs, ($datatype ? "datadir/$datatype" : "datadir")); 
    355355    if (!$dir) { 
    356         $self->loging(4, 
     356        $self->logging(4, 
    357357            "Can't find data directory for %s, type: %s", 
    358358            $obs, $datatype || '(none)' 
    … …  
    370370    ); 
    371371    if (!defined($or)) { 
    372         $self->loging(4, "Can't parse %s, check directory exists", $dir); 
     372        $self->logging(4, "Can't parse %s, check directory exists", $dir); 
    373373        return undef; 
    374374    } 
    … …  
    386386    my ($self, $obs) = @_; 
    387387    my %datadir = $self->list_obsdatadir($obs); 
    388     $self->loging(0, "Starting %s() for %s", (caller(0))[3], $obs); 
     388    $self->logging(0, "Starting %s() for %s", (caller(0))[3], $obs); 
    389389     
    390390    foreach my $datatype (keys %datadir) { 

  • trunk/soft/ObsData/ObsData/Repository.pm

    • Property cvs2svn:cvs-rev changed from 1.42 to 1.43
    r116 r120  
    5555sub DESTROY { 
    5656    my ($self) = @_; 
    57     $self->loging(0, "Destroy ObsData::Repository for %s", ref($self)); 
     57    $self->logging(0, "Destroy ObsData::Repository for %s", ref($self)); 
    5858    $self->save_status; 
    5959} 
    … …  
    7878} 
    7979 
    80 =head3 loging($level, $msg, ...) 
    81  
    82 Pass a message for loging to ObsData Object. See L<ObsData> 
    83  
    84 =cut 
    85  
    86 sub loging { 
     80=head3 logging($level, $msg, ...) 
     81 
     82Pass a message for logging to ObsData Object. See L<ObsData> 
     83 
     84=cut 
     85 
     86sub logging { 
    8787    my $self = shift; 
    88     $self->{obsdata}->loging(@_); 
     88    $self->{obsdata}->logging(@_); 
    8989} 
    9090 
    … …  
    122122 
    123123    if (!-d $self->{dir}) { 
    124         $self->loging(3, 
     124        $self->logging(3, 
    125125            "directory %s does not exists", 
    126126            $self->{dir}, 
    … …  
    150150sub process { 
    151151    my ($self) = @_; 
    152     $self->loging(0, "%s() start for %s", (caller(0))[3], $self->{dir}); 
     152    $self->logging(0, "%s() start for %s", (caller(0))[3], $self->{dir}); 
    153153 
    154154    foreach my $file ($self->findfile) { 
    … …  
    158158        ); 
    159159        if(!$orda->do_continue('do_archive')) { 
    160             $self->loging(0, 
     160            $self->logging(0, 
    161161                "Archive %s/%s allready parsed, skipping", 
    162162                $self->{dir}, 
    … …  
    193193    $or->{_cache_checks} = {}; 
    194194     
    195     $or->loging(0, 
     195    $or->logging(0, 
    196196        "Preparing to parse %s/%s", 
    197197         $or->{dir}, 
    … …  
    215215        $self->{Oarchive} = ObsData::Archive->new("$self->{dir}/$self->{archivefile}"); 
    216216        if ($self->{Oarchive}) { 
    217             $self->loging(0, 
     217            $self->logging(0, 
    218218                "Archive %s/%s properly load", 
    219219                $self->{dir}, $self->{archivefile} 
    … …  
    221221            return 1; 
    222222        } else { 
    223             $self->loging(4,  
     223            $self->logging(4,  
    224224                "Can't handle archive %s/%s: %s, skipping", 
    225225                $self->{dir}, $self->{archivefile}, 
    … …  
    296296        return( 
    297297            $res,  
    298             $self->loging(0, 
     298            $self->logging(0, 
    299299                "%s/%s is%s new archive", 
    300300                $self->{dir}, 
    … …  
    311311            defined(my $size = (stat("$self->{dir}/$self->{archivefile}"))[7])) { 
    312312            my $res = $size <=> $oldsize; 
    313             return $res, $self->loging(0, 
     313            return $res, $self->logging(0, 
    314314                "Size for %s/%s %s", 
    315315                $self->{dir}, 
    … …  
    328328            defined(my $mtime = (stat("$self->{dir}/$self->{archivefile}"))[9])) { 
    329329            my $res = $mtime <=> $oldmtime; 
    330             return $res, $self->loging(0, 
     330            return $res, $self->logging(0, 
    331331                "Mtime for %s/%s %s", 
    332332                $self->{dir}, 
    … …  
    352352        my $last_process = $self->gat_data_val($datafile, 'processtime'); 
    353353        if ($last_process) { 
    354             $self->loging(0, "%s/%s has been already processed at %s", 
     354            $self->logging(0, "%s/%s has been already processed at %s", 
    355355                $self->{archivefile}, 
    356356                $datafile, 
    … …  
    364364#sub DESTROY { 
    365365#    my ($self) = @_; 
    366 #    $self->loging(0, "Destroy ObsData::Repository::archive for %s", ref($self)); 
     366#    $self->logging(0, "Destroy ObsData::Repository::archive for %s", ref($self)); 
    367367#    $self->SUPER::DESTROY(); 
    368368#} 
    … …  
    378378     
    379379    if (!$checks->{$check}) { 
    380         die $self->loging(5, 
     380        die $self->logging(5, 
    381381            "check %s does not exists, exiting now", 
    382382            $check 
    … …  
    401401        ($code, $text) = $self->do_check('archive_size'); 
    402402        if ($code) { 
    403             $self->loging(3, $text); 
     403            $self->logging(3, $text); 
    404404        } 
    405405 
    406406        ($code, $text) = $self->do_check('archive_mtime'); 
    407407        if ($code) { 
    408             $self->loging(3, $text); 
     408            $self->logging(3, $text); 
    409409        } 
    410410         
    411411        ($code, $text) = $self->do_check('archive_exists'); 
    412412        if ($code != 0) { 
    413             $self->loging(0, "%s => skiping", $text); 
     413            $self->logging(0, "%s => skiping", $text); 
    414414            return 0; 
    415415        } 
    … …  
    491491        $self->{datatype} 
    492492    ); 
    493     $self->loging(0, "%s/%s file, datatype %s, destination %s", 
     493    $self->logging(0, "%s/%s file, datatype %s, destination %s", 
    494494        $self->{archivefile}, 
    495495        $datafile, 
    … …  
    536536    
    537537    if (!$destfile) { 
    538         $self->loging(3, 
     538        $self->logging(3, 
    539539            "%s/%s has no destination", 
    540540            $self->{archivefile}, $datafile, 
    … …  
    544544     
    545545    if(!$self->do_continue('overwrite', $datafile, $destfile)) { 
    546         $self->loging(3, 
     546        $self->logging(3, 
    547547            "%s extracted from %s/%s already exists, I won't overwrite it", 
    548548            $destfile, 
    … …  
    552552    } 
    553553     
    554     $self->loging(0, 
     554    $self->logging(0, 
    555555        "Trying to extract %s from %s/%s", 
    556556        $destfile, 
    … …  
    561561     
    562562    if ($dirname && ! -d $dirname) { 
    563         $self->loging(0, "Creating directory %s", $dirname); 
     563        $self->logging(0, "Creating directory %s", $dirname); 
    564564        if( ! File::Path::mkpath($dirname)) {  
    565             $self->loging( 
     565            $self->logging( 
    566566                4, "Can't create directory %s",  
    567567                $dirname 
    … …  
    573573    if ($self->{Oarchive}->extract($datafile, $destfile)) { 
    574574        $self->set_data_value($datafile, 'dest', $destfile); 
    575         $self->loging( 
     575        $self->logging( 
    576576            1, "Extraction of %s/%s done as %s", 
    577577            $self->{archivefile}, 
    … …  
    581581             
    582582    } else { 
    583         $self->loging( 
     583        $self->logging( 
    584584            4, "Can't extract %s/%s to %s: %s", 
    585585            $self->{archivefile}, $datafile, $destfile, 
    … …  
    603603    foreach my $data ($self->list_archive) { 
    604604        if (!$self->do_continue('do_data', $data)) { 
    605             $self->loging(0, 
     605            $self->logging(0, 
    606606                "%s/%s has allready processed, skipping", 
    607607                $self->{archivefile}, 

  • trunk/soft/ObsData/t/O-02.t

    • Property cvs2svn:cvs-rev changed from 1.16 to 1.17
    r119 r120  
    1414ok($o->loglevel(0) eq "DEBUG", "Can get loglevel"); 
    1515ok($o->loglevel(10) eq "?????", "Can get wrong loglevel"); 
    16 ok($o->loging(0, "FOO%s", "FOO") eq "FOOFOO", "loging properly return the message"); 
     16ok($o->logging(0, "FOO%s", "FOO") eq "FOOFOO", "logging properly return the message"); 
    1717 
    1818ok($o->load, "can load repository"); 

  • trunk/soft/ObsData/t/OR-02.t

    • Property cvs2svn:cvs-rev changed from 1.7 to 1.8
    r111 r120  
    1717isa_ok($or, "ObsData::Repository"); 
    1818 
    19 ok($or->loging(0, "FOO%s", "FOO") eq "FOOFOO", "loging return the message properly"); 
     19ok($or->logging(0, "FOO%s", "FOO") eq "FOOFOO", "logging return the message properly"); 

  • trunk/soft/ObsData/t/OR-03.t

    • Property cvs2svn:cvs-rev changed from 1.8 to 1.9
    r115 r120  
    1818 
    1919    isa_ok($or, "ObsData::Repository::dir"); 
    20     ok($or->loging(0, "FOO%s", "FOO") eq "FOOFOO", "loging return the message properly"); 
     20    ok($or->logging(0, "FOO%s", "FOO") eq "FOOFOO", "logging return the message properly"); 
    2121    ok($or->findfile, "can find file"); 
    2222} 
Note: See TracChangeset for help on using the changeset viewer.