IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 24311


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

catch and log parse_neb_key() errors

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r24305 r24311  
    188188    );
    189189
     190    my $log = $self->log;
     191    my $sql = $self->sql;
     192
    190193    # vol_name overrides the key implied volume
    191     $key = parse_neb_key($key, $vol_name);
     194    eval {
     195        $key = parse_neb_key($key, $vol_name);
     196    };
     197    $log->logdie("$@") if $@;
    192198    $vol_name = $key->volume;
    193199
    194     my $log = $self->log;
    195     my $sql = $self->sql;
    196200    my $db  = $self->db($key);
    197201
    … …  
    440444    );
    441445
     446    my $log = $self->log;
     447    my $sql = $self->sql;
     448
    442449    # ignore volumes
    443     $key    = parse_neb_key($key);
    444     $newkey = parse_neb_key($newkey);
    445 
    446     my $log = $self->log;
    447     my $sql = $self->sql;
     450    eval {
     451        $key = parse_neb_key($key);
     452    };
     453    $log->logdie("$@") if $@;
     454    eval {
     455        $newkey = parse_neb_key($newkey);
     456    };
     457    $log->logdie("$@") if $@;
     458
    448459    my $db  = $self->db($key);
    449460
    … …  
    508519    );
    509520
     521    my $log = $self->log;
     522    my $sql = $self->sql;
     523
    510524    # ignore volumes
    511     $key1 = parse_neb_key($key1);
    512     $key2 = parse_neb_key($key2);
    513 
    514     my $log = $self->log;
    515     my $sql = $self->sql;
     525    eval {
     526        $key1 = parse_neb_key($key1);
     527    };
     528    $log->logdie("$@") if $@;
     529    eval {
     530        $key2 = parse_neb_key($key2);
     531    };
     532    $log->logdie("$@") if $@;
    516533
    517534    my $dbidx1 = $self->_db_index_for_key($key1);
    … …  
    635652    );
    636653
     654    my $log = $self->log;
     655    my $sql = $self->sql;
     656
    637657    # if a volume name is explicity specified then we should make the
    638658    # replication onto that volume (even if there is alread an instance on that
    … …  
    644664
    645665    # vol_name overrides the key implied volume
    646     $key = parse_neb_key($key, $vol_name);
     666    eval {
     667        $key = parse_neb_key($key, $vol_name);
     668    };
     669    $log->logdie("$@") if $@;
    647670    $vol_name = $key->volume;
    648671
    649     my $log = $self->log;
    650     my $sql = $self->sql;
    651672    my $db  = $self->db($key);
    652673
    … …  
    779800    );
    780801
     802    my $log = $self->log;
     803    my $sql = $self->sql;
     804
    781805    # ignore volume
    782     $key = parse_neb_key($key);
    783 
    784     my $log = $self->log;
    785     my $sql = $self->sql;
     806    eval {
     807        $key = parse_neb_key($key);
     808    };
     809    $log->logdie("$@") if $@;
     810
    786811    my $db  = $self->db($key);
    787812
    … …  
    889914    );
    890915
     916    my $log = $self->log;
     917    my $sql = $self->sql;
     918
    891919    # ignore volume
    892     $key = parse_neb_key($key);
    893 
    894     my $log = $self->log;
    895     my $sql = $self->sql;
     920    eval {
     921        $key = parse_neb_key($key);
     922    };
     923    $log->logdie("$@") if $@;
     924
    896925    my $db  = $self->db($key);
    897926
    … …  
    10121041    );
    10131042
     1043    my $log = $self->log;
     1044    my $sql = $self->sql;
     1045
    10141046    # ignore volume
    1015     $key = parse_neb_key($key);
    1016 
    1017     my $log = $self->log;
    1018     my $sql = $self->sql;
     1047    eval {
     1048        $key = parse_neb_key($key);
     1049    };
     1050    $log->logdie("$@") if $@;
     1051
    10191052    my $db  = $self->db($key);
    10201053
    … …  
    10901123    );
    10911124
     1125    my $log = $self->log;
     1126    my $sql = $self->sql;
     1127
    10921128    # ignore volume
    1093     $key = parse_neb_key($key);
    1094 
    1095     my $log = $self->log;
    1096     my $sql = $self->sql;
     1129    eval {
     1130        $key = parse_neb_key($key);
     1131    };
     1132    $log->logdie("$@") if $@;
     1133
    10971134    my $db  = $self->db($key);
    10981135
    … …  
    11431180    );
    11441181
     1182    my $log = $self->log;
     1183    my $sql = $self->sql;
     1184
    11451185    # ignore volume
    1146     $key = parse_neb_key($key);
    1147 
    1148     my $log = $self->log;
    1149     my $sql = $self->sql;
     1186    eval {
     1187        $key = parse_neb_key($key);
     1188    };
     1189    $log->logdie("$@") if $@;
     1190
    11501191    my $db  = $self->db($key);
    11511192
    … …  
    11901231    );
    11911232
     1233    my $log = $self->log;
     1234    my $sql = $self->sql;
     1235
    11921236    # ignore volume
    1193     $key = parse_neb_key($key);
    1194 
    1195     my $log = $self->log;
    1196     my $sql = $self->sql;
     1237    eval {
     1238        $key = parse_neb_key($key);
     1239    };
     1240    $log->logdie("$@") if $@;
     1241
    11971242    my $db  = $self->db($key);
    11981243
    … …  
    12481293    );
    12491294
    1250     $pattern = parse_neb_key($pattern) if defined $pattern;
    1251 
    1252     my $log = $self->log;
     1295    my $log = $self->log;
     1296
     1297    eval {
     1298        $pattern = parse_neb_key($pattern) if defined $pattern;
     1299    };
     1300    $log->logdie("$@") if $@;
    12531301
    12541302    $log->debug( "entered - @_" );
    … …  
    13621410    );
    13631411
     1412    my $log = $self->log;
     1413    my $sql = $self->sql;
     1414
    13641415    # vol_name overrides the key implied volume
    1365     $key = parse_neb_key($key, $vol_name);
     1416    eval {
     1417        $key = parse_neb_key($key, $vol_name);
     1418    };
     1419    $log->logdie("$@") if $@;
    13661420    $vol_name = $key->volume;
    13671421
    1368     my $log = $self->log;
    1369     my $sql = $self->sql;
    13701422    my $db  = $self->db($key);
    13711423
    … …  
    13801432            $vol_name = undef;
    13811433        } else {
    1382             die "$vol_name is not a valid volume name"
     1434            $log->logdie("$vol_name is not a valid volume name");
    13831435        }
    13841436    }
    … …  
    14471499    );
    14481500
     1501    my $log = $self->log;
     1502    my $sql = $self->sql;
     1503
    14491504    # ignore volume
    1450     $key = parse_neb_key($key);
    1451 
    1452     my $log = $self->log;
    1453     my $sql = $self->sql;
     1505    eval {
     1506        $key = parse_neb_key($key);
     1507    };
     1508    $log->logdie("$@") if $@;
     1509
    14541510    my $db  = $self->db($key);
    14551511
    … …  
    15441600    );
    15451601
     1602    my $log = $self->log;
     1603    my $sql = $self->sql;
     1604
    15461605    # ignore volume
    1547     $key = parse_neb_key($key);
    1548 
    1549     my $log = $self->log;
    1550     my $sql = $self->sql;
     1606    eval {
     1607        $key = parse_neb_key($key);
     1608    };
     1609    $log->logdie("$@") if $@;
     1610
    15511611    my $db  = $self->db($key);
    15521612
    … …  
    16301690    );
    16311691
     1692    my $log = $self->log;
     1693    my $sql = $self->sql;
     1694
    16321695    # ignore volume
    1633     $key = parse_neb_key($key);
    1634 
    1635     my $log = $self->log;
    1636     my $sql = $self->sql;
     1696    eval {
     1697        $key = parse_neb_key($key);
     1698    };
     1699    $log->logdie("$@") if $@;
     1700
    16371701    my $db  = $self->db($key);
    16381702
    … …  
    17911855    my ($self, $key) = @_;
    17921856
    1793     $key = parse_neb_key($key);
    1794 
    1795     my $log = $self->log;
    1796     my $sql = $self->sql;
     1857    my $log = $self->log;
     1858    my $sql = $self->sql;
     1859
     1860    eval {
     1861        $key = parse_neb_key($key);
     1862    };
     1863    $log->logdie("$@") if $@;
     1864
    17971865    my $db  = $self->db($key);
    17981866
    … …  
    18221890    my ($self, $key, $vol_name) = @_;
    18231891
    1824     $key = parse_neb_key($key);
     1892    my $log = $self->log;
     1893    my $sql = $self->sql;
     1894
     1895    eval {
     1896        $key = parse_neb_key($key);
     1897    };
     1898    $log->logdie("$@") if $@;
    18251899    my $volume_info = parse_neb_volume($vol_name);
    18261900
    1827     my $log = $self->log;
    1828     my $sql = $self->sql;
    18291901    my $db  = $self->db($key);
    18301902
Note: See TracChangeset for help on using the changeset viewer.