Changeset 812

Show
Ignore:
Timestamp:
01/23/09 18:20:31 (10 months ago)
Author:
ask
Message:

Syslog as 'crit' rather than 'critical' (noticed by Richard Bronosky)

Location:
trunk
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • trunk/CHANGES

    r810 r812  
     1    -- Syslog as 'crit' rather than 'critical' (noticed by Richard Bronosky) 
     2 
    13    -- Allow zero byte PUT requests (in normal PUT situations) 
    24 

  • trunk/lib/Perlbal.pm

    r797 r812  
    12961296    if ($foreground) { 
    12971297        # syslog acts like printf so we have to use printf and append a \n 
    1298         shift; # ignore the first parameter (info, warn, critical, etc) 
     1298        shift; # ignore the first parameter (info, warn, crit, etc) 
    12991299        printf(shift(@_) . "\n", @_); 
    13001300    } else { 

  • trunk/lib/Perlbal/ClientProxy.pm

    r787 r812  
    10221022    my $clen = $self->{req_headers}->content_length; 
    10231023    if ($clen != $self->{buoutpos}) { 
    1024         Perlbal::log('critical', "Content length of $clen declared but $self->{buoutpos} bytes written to disk"); 
     1024        Perlbal::log('crit', "Content length of $clen declared but $self->{buoutpos} bytes written to disk"); 
    10251025        return $self->_simple_response(500); 
    10261026    } 
    … …  
    10831083            # throw errors back to the user 
    10841084            if (! $self->{bufh}) { 
    1085                 Perlbal::log('critical', "Failure to open $fn for buffered upload output"); 
     1085                Perlbal::log('crit', "Failure to open $fn for buffered upload output"); 
    10861086                return $self->_simple_response(500); 
    10871087            } 
    … …  
    11191119        # check for error 
    11201120        unless ($bytes) { 
    1121             Perlbal::log('critical', "Error writing buffered upload: $!.  Tried to do $len bytes at $self->{buoutpos}."); 
     1121            Perlbal::log('crit', "Error writing buffered upload: $!.  Tried to do $len bytes at $self->{buoutpos}."); 
    11221122            return $self->_simple_response(500); 
    11231123        }