IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 2901


Ignore:
Timestamp:
Jan 4, 2005, 5:10:08 PM (22 years ago)
Author:
jhoblitt
Message:

move debug messages to after parameter validation

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r2900 r2901  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Server.pm,v 1.3 2005-01-05 03:03:30 jhoblitt Exp $
     3# $Id: Server.pm,v 1.4 2005-01-05 03:10:08 jhoblitt Exp $
    44
    55package PS::IPP::IData::Server;
    … …  
    7676    my $self = shift;
    7777
    78     $log->debug( "entered - @_" );
    79 
    8078    my ( $key, $class, $volume, $comment ) = validate_pos( @_,
    8179        {
    … …  
    9997    );
    10098
     99    $log->debug( "entered - @_" );
     100
    101101    # TODO do some intelligent volume allocated
    102102    # add hooks to make this decision based on avaiable space
    … …  
    168168    my $self = shift;
    169169
    170     $log->debug( "entered - @_" );
    171 
    172170    my ( $key, $volume ) = validate_pos( @_,
    173171        {
    … …  
    179177        },
    180178    );
     179
     180    $log->debug( "entered - @_" );
    181181
    182182    # TODO
    … …  
    246246    my $self = shift;
    247247
    248     $log->debug( "entered - @_" );
    249 
    250248    my ( $key, $type ) = validate_pos( @_,
    251249        {
    … …  
    259257        },
    260258    );
     259
     260    $log->debug( "entered - @_" );
    261261
    262262    my $so_id;
    … …  
    358358    my $self = shift;
    359359
    360     $log->debug( "entered - @_" );
    361 
    362360    my ( $key, $type ) = validate_pos( @_,
    363361        {
    … …  
    371369        },
    372370    );
     371
     372    $log->debug( "entered - @_" );
    373373
    374374    my $so_id;
    … …  
    478478    my $self = shift;
    479479
    480     $log->debug( "entered - @_" );
    481 
    482480    my ( $key, $volume ) = validate_pos( @_,
    483481        {
    … …  
    489487        },
    490488    );
     489
     490    $log->debug( "entered - @_" );
    491491
    492492    # TODO restrict search to a volume
    … …  
    517517    my $self = shift;
    518518
    519     $log->debug( "entered - @_" );
    520 
    521519    my ( $uri ) = validate_pos( @_,
    522520        {
    … …  
    524522        },
    525523    );
     524
     525    $log->debug( "entered - @_" );
    526526
    527527    eval {
    … …  
    586586    my $self = shift;
    587587
    588     $log->debug( "entered - @_" );
    589 
    590588    my ( $key ) = validate_pos( @_,
    591589        {
    … …  
    593591        },
    594592    );
     593
     594    $log->debug( "entered - @_" );
    595595
    596596    my $stat;

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

    r2900 r2901  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Server.pm,v 1.3 2005-01-05 03:03:30 jhoblitt Exp $
     3# $Id: Server.pm,v 1.4 2005-01-05 03:10:08 jhoblitt Exp $
    44
    55package PS::IPP::IData::Server;
    … …  
    7676    my $self = shift;
    7777
    78     $log->debug( "entered - @_" );
    79 
    8078    my ( $key, $class, $volume, $comment ) = validate_pos( @_,
    8179        {
    … …  
    9997    );
    10098
     99    $log->debug( "entered - @_" );
     100
    101101    # TODO do some intelligent volume allocated
    102102    # add hooks to make this decision based on avaiable space
    … …  
    168168    my $self = shift;
    169169
    170     $log->debug( "entered - @_" );
    171 
    172170    my ( $key, $volume ) = validate_pos( @_,
    173171        {
    … …  
    179177        },
    180178    );
     179
     180    $log->debug( "entered - @_" );
    181181
    182182    # TODO
    … …  
    246246    my $self = shift;
    247247
    248     $log->debug( "entered - @_" );
    249 
    250248    my ( $key, $type ) = validate_pos( @_,
    251249        {
    … …  
    259257        },
    260258    );
     259
     260    $log->debug( "entered - @_" );
    261261
    262262    my $so_id;
    … …  
    358358    my $self = shift;
    359359
    360     $log->debug( "entered - @_" );
    361 
    362360    my ( $key, $type ) = validate_pos( @_,
    363361        {
    … …  
    371369        },
    372370    );
     371
     372    $log->debug( "entered - @_" );
    373373
    374374    my $so_id;
    … …  
    478478    my $self = shift;
    479479
    480     $log->debug( "entered - @_" );
    481 
    482480    my ( $key, $volume ) = validate_pos( @_,
    483481        {
    … …  
    489487        },
    490488    );
     489
     490    $log->debug( "entered - @_" );
    491491
    492492    # TODO restrict search to a volume
    … …  
    517517    my $self = shift;
    518518
    519     $log->debug( "entered - @_" );
    520 
    521519    my ( $uri ) = validate_pos( @_,
    522520        {
    … …  
    524522        },
    525523    );
     524
     525    $log->debug( "entered - @_" );
    526526
    527527    eval {
    … …  
    586586    my $self = shift;
    587587
    588     $log->debug( "entered - @_" );
    589 
    590588    my ( $key ) = validate_pos( @_,
    591589        {
    … …  
    593591        },
    594592    );
     593
     594    $log->debug( "entered - @_" );
    595595
    596596    my $stat;
Note: See TracChangeset for help on using the changeset viewer.