IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Jun 25, 2009, 11:21:45 AM (17 years ago)
Author:
jhoblitt
Message:

sleep before retrying all transactions

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r24542 r24547  
    3131__PACKAGE__->mk_accessors(qw( log sql config cache ));
    3232
    33 use constant SUBPATH_DEPTH  => 2;
    34 use constant NFS_RETRIES    => 100;
     33use constant SUBPATH_DEPTH      => 2;
     34use constant NFS_RETRIES        => 100;
     35use constant NFS_RETRY_WAIT     => 1;
     36use constant TRANS_RETRY_WAIT   => 1;
    3537
    3638# transaction restart/retry regex
    … …  
    168170            if ($@ =~ qr/Can't connect to MySQL server/) {
    169171                $log->warn("database error, retrying transaction: $@");
    170                 sleep 1;
     172                sleep TRANS_RETRY_WAIT;
    171173                redo TRANS;
    172174            }
    … …  
    330332            if ($@ =~ $trans_regex) {
    331333                $log->warn("database error, retrying transaction: $@");
     334                sleep TRANS_RETRY_WAIT;
    332335                redo TRANS;
    333336            }
    … …  
    456459                $log->warn("database error, retrying transaction: $@");
    457460                $parent_id = 1;
     461                sleep TRANS_RETRY_WAIT;
    458462                redo TRANS;
    459463            }
    … …  
    461465                $log->warn("Duplicate database entry, retrying transaction: $@");
    462466                $parent_id = 1;
     467                sleep TRANS_RETRY_WAIT;
    463468                redo TRANS;
    464469            }
    … …  
    541546            if ($@ =~ $trans_regex) {
    542547                $log->warn("database error, retrying transaction: $@");
     548                sleep TRANS_RETRY_WAIT;
    543549                redo TRANS;
    544550            }
    … …  
    655661            if ($@ =~ $trans_regex) {
    656662                $log->warn("database error, retrying transaction: $@");
     663                sleep TRANS_RETRY_WAIT;
    657664                redo TRANS;
    658665            }
    … …  
    810817            if ($@ =~ $trans_regex) {
    811818                $log->warn("database error, retrying transaction: $@");
     819                sleep TRANS_RETRY_WAIT;
    812820                redo TRANS;
    813821            }
    … …  
    937945            if ($@ =~ $trans_regex) {
    938946                $log->warn("database error, retrying transaction: $@");
     947                sleep TRANS_RETRY_WAIT;
    939948                redo TRANS;
    940949            }
    … …  
    10541063            if ($@ =~ $trans_regex) {
    10551064                $log->warn("database error, retrying transaction: $@");
     1065                sleep TRANS_RETRY_WAIT;
    10561066                redo TRANS;
    10571067            }
    … …  
    11451155            if ($@ =~ $trans_regex) {
    11461156                $log->warn("database error, retrying transaction: $@");
     1157                sleep TRANS_RETRY_WAIT;
    11471158                redo TRANS;
    11481159            }
    … …  
    13301341            if ($@ =~ $trans_regex) {
    13311342                $log->warn("database error, retrying transaction: $@");
     1343                sleep TRANS_RETRY_WAIT;
    13321344                redo TRANS;
    13331345            }
    … …  
    16581670            if ($@ =~ $trans_regex) {
    16591671                $log->warn("database error, retrying transaction: $@");
     1672                sleep TRANS_RETRY_WAIT;
    16601673                redo TRANS;
    16611674            }
    … …  
    21862199        if ($@) {
    21872200            $log->logdie($@);
    2188             sleep 1;
     2201            sleep NFS_RETRY_WAIT;
    21892202            next;
    21902203        }
Note: See TracChangeset for help on using the changeset viewer.