IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 24313


Ignore:
Timestamp:
Jun 3, 2009, 10:54:16 AM (17 years ago)
Author:
jhoblitt
Message:

tracing changes/enhancements

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Nebulous-Server/lib/Nebulous/Server.pm

    r24311 r24313  
    5353    my $log = Log::Log4perl::get_logger( "Nebulous::Server" );
    5454    $log->level($config->trace);
     55    $log->debug( "entered - @_" );
    5556
    5657    my $sql = Nebulous::Server::SQL->new;
    57 
    58     $log->debug( "entered - @_" );
    5958
    6059    my $self = bless {}, ref $class || $class;
    … …  
    7473    my ($self, $key) = @_;
    7574
     75    my $log     = $self->log;
     76    $log->debug( "entered - @_" );
     77
    7678    my $config  = $self->config;
    7779
    … …  
    8789    $db_index = unpack("h8", sha1_hex($path)) % $config->n_db;
    8890
     91    $log->debug("index is $db_index");
     92    $log->debug("leaving");
     93
    8994    return $db_index;
    9095}
    … …  
    95100
    96101    my $log     = $self->log;
     102    $log->debug( "entered - @_" );
     103
    97104    my $sql     = $self->sql;
    98105    my $config  = $self->config;
    … …  
    143150    $self->{dbs}[$db_index] = $dbh;
    144151
     152    $log->debug("leaving");
     153
    145154    return $dbh;
    146155}
    … …  
    164173
    165174    my $dbh = $self->_db_for_index($db_index);
     175
    166176    return $dbh;
    167177}
    … …  
    170180{
    171181    my $self = shift;
     182
     183    my $log = $self->log;
     184    $log->debug( "entered - @_" );
    172185
    173186    my ($key, $vol_name) = validate_pos(@_,
    … …  
    188201    );
    189202
    190     my $log = $self->log;
    191203    my $sql = $self->sql;
    192204
    … …  
    199211
    200212    my $db  = $self->db($key);
    201 
    202     $log->debug( "entered - @_" );
    203213
    204214    # the key's volume can't be validiated on input for this method so we have
    … …  
    307317    my $self = shift;
    308318
     319    my $log = $self->log;
     320    $log->debug( "entered - @_" );
     321
    309322    my %p = validate(@_,
    310323        {
    … …  
    328341    my $key = $p{key};
    329342
    330     my $log = $self->log;
    331343    my $sql = $self->sql;
    332344    my $db  = $self->db($key);
    333 
    334     $log->debug( "entered - @_" );
    335345
    336346    # no path means '/', which has a dir_id & parent_id of 1
    … …  
    428438    my $self = shift;
    429439
     440    my $log = $self->log;
     441    $log->debug("entered - @_");
     442
    430443    my ($key, $newkey) = validate_pos(@_,
    431444        {
    … …  
    444457    );
    445458
    446     my $log = $self->log;
    447459    my $sql = $self->sql;
    448460
    … …  
    458470
    459471    my $db  = $self->db($key);
    460 
    461     $log->debug("entered - @_");
    462472
    463473    # XXX this may require database migration in the future
    … …  
    504514    my $self = shift;
    505515
     516    my $log = $self->log;
     517    $log->debug("entered - @_");
     518
    506519    my ($key1, $key2) = validate_pos(@_,
    507520        {
    … …  
    519532    );
    520533
    521     my $log = $self->log;
    522534    my $sql = $self->sql;
    523535
    … …  
    539551    my $dbh2 = $self->_db_for_index($dbidx2);
    540552    die "different db handles for the same db?" unless ($dbh1 == $dbh2);
    541 
    542     $log->debug("entered - @_");
    543553
    544554    # order of operations for the swap with a single db is:
    … …  
    631641    my $self = shift;
    632642
     643    my $log = $self->log;
     644    $log->debug("entered - @_");
     645
    633646    my ($key, $vol_name) = validate_pos(@_,
    634647        {
    … …  
    652665    );
    653666
    654     my $log = $self->log;
    655667    my $sql = $self->sql;
    656668
    … …  
    671683
    672684    my $db  = $self->db($key);
    673 
    674     $log->debug("entered - @_");
    675685
    676686    if (defined $vol_name
    … …  
    785795    my $self = shift;
    786796
     797    my $log = $self->log;
     798    $log->debug( "entered - @_" );
     799
    787800    my ( $key, $type ) = validate_pos( @_,
    788801        {
    … …  
    800813    );
    801814
    802     my $log = $self->log;
    803815    my $sql = $self->sql;
    804816
    … …  
    810822
    811823    my $db  = $self->db($key);
    812 
    813     $log->debug( "entered - @_" );
    814824
    815825    my $so_id;
    … …  
    899909    my $self = shift;
    900910
     911    my $log = $self->log;
     912    $log->debug( "entered - @_" );
     913
    901914    my ( $key, $type ) = validate_pos( @_,
    902915        {
    … …  
    914927    );
    915928
    916     my $log = $self->log;
    917929    my $sql = $self->sql;
    918930
    … …  
    924936
    925937    my $db  = $self->db($key);
    926 
    927     $log->debug( "entered - @_" );
    928938
    929939    my $so_id;
    … …  
    10161026    my $self = shift;
    10171027
     1028    my $log = $self->log;
     1029    $log->debug("entered - @_");
     1030
    10181031    my ($key, $name, $value, $flags) = validate_pos(@_,
    10191032        {
    … …  
    10411054    );
    10421055
    1043     my $log = $self->log;
    10441056    my $sql = $self->sql;
    10451057
    … …  
    10511063
    10521064    my $db  = $self->db($key);
    1053 
    1054     $log->debug("entered - @_");
    10551065
    10561066TRANS: while (1) {
    … …  
    11071117    my $self = shift;
    11081118
     1119    my $log = $self->log;
     1120    $log->debug("entered - @_");
     1121
    11091122    my ($key, $name) = validate_pos(@_,
    11101123        {
    … …  
    11231136    );
    11241137
    1125     my $log = $self->log;
    11261138    my $sql = $self->sql;
    11271139
    … …  
    11331145
    11341146    my $db  = $self->db($key);
    1135 
    1136     $log->debug("entered - @_");
    11371147
    11381148    my $value;
    … …  
    11711181    my $self = shift;
    11721182
     1183    my $log = $self->log;
     1184    $log->debug("entered - @_");
     1185
    11731186    my ($key) = validate_pos(@_,
    11741187        {
    … …  
    11801193    );
    11811194
    1182     my $log = $self->log;
    11831195    my $sql = $self->sql;
    11841196
    … …  
    11901202
    11911203    my $db  = $self->db($key);
    1192 
    1193     $log->debug("entered - @_");
    11941204
    11951205    my @xattrs;
    … …  
    12151225    my $self = shift;
    12161226
     1227    my $log = $self->log;
     1228    $log->debug("entered - @_");
     1229
    12171230    my ($key, $name) = validate_pos(@_,
    12181231        {
    … …  
    12311244    );
    12321245
    1233     my $log = $self->log;
    12341246    my $sql = $self->sql;
    12351247
    … …  
    12411253
    12421254    my $db  = $self->db($key);
    1243 
    1244     $log->debug("entered - @_");
    12451255
    12461256TRANS: while (1) {
    … …  
    12861296    my $self = shift;
    12871297
     1298    my $log = $self->log;
     1299    $log->debug( "entered - @_" );
     1300
    12881301    my ($pattern) = validate_pos( @_,
    12891302        {
    … …  
    12931306    );
    12941307
    1295     my $log = $self->log;
    12961308
    12971309    eval {
    … …  
    12991311    };
    13001312    $log->logdie("$@") if $@;
    1301 
    1302     $log->debug( "entered - @_" );
    13031313
    13041314    unless (defined $pattern) {
    … …  
    13251335
    13261336    my $self    = shift;
     1337
     1338    my $log = $self->log;
     1339    $log->debug( "entered - @_" );
     1340
    13271341    my $index   = shift;
    13281342    my $key     = shift;
    13291343
    1330     my $log = $self->log;
    13311344    my $sql = $self->sql;
    13321345    my $db  = $self->_db_for_index($index);
    13331346
    1334     $log->debug( "entered - @_" );
    13351347
    13361348    # first check to see if the key is an exact match
    … …  
    13901402    my $self = shift;
    13911403
     1404    my $log = $self->log;
     1405    $log->debug("entered - @_");
     1406
    13921407    my ($key, $vol_name) = validate_pos(@_,
    13931408        {
    … …  
    14101425    );
    14111426
    1412     my $log = $self->log;
    14131427    my $sql = $self->sql;
    14141428
    … …  
    14211435
    14221436    my $db  = $self->db($key);
    1423 
    1424     $log->debug("entered - @_");
    14251437
    14261438    # the key's volume can't be validiated on input for this method so we have
    … …  
    14871499    my $self = shift;
    14881500
     1501    my $log = $self->log;
     1502    $log->debug( "entered - @_" );
     1503
    14891504    my ($key, $uri) = validate_pos( @_,
    14901505        {
    … …  
    14991514    );
    15001515
    1501     my $log = $self->log;
    15021516    my $sql = $self->sql;
    15031517
    … …  
    15091523
    15101524    my $db  = $self->db($key);
    1511 
    1512     $log->debug( "entered - @_" );
    15131525
    15141526TRANS: while (1) {
    … …  
    15911603    my $self = shift;
    15921604
     1605    my $log = $self->log;
     1606    $log->debug("entered - @_");
     1607
    15931608    my ( $key ) = validate_pos( @_,
    15941609        {
    … …  
    16001615    );
    16011616
    1602     my $log = $self->log;
    16031617    my $sql = $self->sql;
    16041618
    … …  
    16101624
    16111625    my $db  = $self->db($key);
    1612 
    1613     $log->debug("entered - @_");
    16141626
    16151627    my $stat;
    … …  
    16401652    my $self = shift;
    16411653
     1654    my $log = $self->log;
     1655    $log->debug("entered - @_");
     1656
    16421657    validate_pos(@_);
    16431658
    1644     my $log = $self->log;
    16451659    my $sql = $self->sql;
    16461660    my $db  = $self->_db_for_index(0); # XXX fix as above
    1647 
    1648     $log->debug("entered - @_");
    16491661
    16501662    my $stats;
    … …  
    16711683{
    16721684    my $self = shift;
     1685
     1686    my $log = $self->log;
     1687    $log->debug("entered - @_");
    16731688
    16741689    my ($key, $mode) = validate_pos( @_,
    … …  
    16901705    );
    16911706
    1692     my $log = $self->log;
    16931707    my $sql = $self->sql;
    16941708
    … …  
    17001714
    17011715    my $db  = $self->db($key);
    1702 
    1703     $log->debug("entered - @_");
    17041716
    17051717    # find all instances of this object
    … …  
    17441756    my $self = shift;
    17451757
    1746     my ($key, $name, $soft_volume) = @_;
    1747 
    1748     my $log = $self->log;
    1749     my $sql = $self->sql;
    1750     my $db  = $self->db($key);
    1751 
     1758    my $log = $self->log;
    17521759    no warnings qw( uninitialized );
    17531760    $log->debug( "entered - @_" );
    17541761    use warnings;
     1762
     1763    my ($key, $name, $soft_volume) = @_;
     1764
     1765    my $sql = $self->sql;
     1766    my $db  = $self->db($key);
    17551767
    17561768    my ($vol_id, $vol_host, $vol_path, $xattr);
    … …  
    18091821    my $self = shift;
    18101822
    1811     my $key = shift;
    1812 
    1813     my $log = $self->log;
    1814     my $sql = $self->sql;
    1815     my $db  = $self->db($key);
    1816 
     1823    my $log = $self->log;
    18171824    no warnings qw( uninitialized );
    18181825    $log->debug( "entered - @_" );
    18191826    use warnings;
     1827
     1828    my $key = shift;
     1829
     1830    my $sql = $self->sql;
     1831    my $db  = $self->db($key);
    18201832
    18211833    my ($vol_id, $vol_host, $vol_path, $xattr);
    … …  
    18561868
    18571869    my $log = $self->log;
     1870    $log->debug( "entered - @_" );
     1871
    18581872    my $sql = $self->sql;
    18591873
    … …  
    18791893
    18801894    if (defined $ext_id) {
     1895        $log->debug( "key is valid" );
     1896        $log->debug( "leaving" );
    18811897        return 1;
    18821898    }
    18831899
     1900    $log->debug( "key not found" );
     1901    $log->debug( "leaving" );
     1902
    18841903    return;
    18851904}
    … …  
    18911910
    18921911    my $log = $self->log;
     1912    $log->debug( "entered - @_" );
     1913
    18931914    my $sql = $self->sql;
    18941915
    … …  
    19051926    # handle "any" volume
    19061927    if ($vol_name eq 'any') {
     1928        $log->debug( "found volume name $vol_name" );
     1929        $log->debug( "leaving" );
    19071930        return 1;
    19081931    }
    … …  
    19191942
    19201943    if (defined $vol_id and defined $vol_path) {
     1944        $log->debug( "found volume name $vol_name" );
     1945        $log->debug( "leaving" );
    19211946        return 1;
    19221947    }
    19231948
     1949    $log->debug( "volume name $vol_name not found" );
     1950    $log->debug( "leaving" );
     1951
    19241952    return;
    19251953}
    … …  
    19301958    my $self = shift;
    19311959
     1960    my $log = $self->log;
     1961    $log->debug( "entered - @_" );
     1962
    19321963    my ($key, $so_id, $ins_id, $vol_path, $xattr) =  @_;
    19331964
    1934     my $log = $self->log;
    19351965    my $sql = $self->sql;
    19361966    my $db  = $self->db($key);
    … …  
    19742004{
    19752005    my $self = shift;
     2006
     2007    my $log = $self->log;
     2008    $log->debug( "entered - @_" );
    19762009
    19772010    my ($path) = @_;
Note: See TracChangeset for help on using the changeset viewer.