Changeset 9b06619a8c7c60fd99d2e02e50a770657e635719

Show
Ignore:
Timestamp:
03/22/10 14:30:43 (9 years ago)
Author:
Mark Harrison <mark@omniti.com>
git-committer:
Mark Harrison <mark@omniti.com> 1269268243 +0000
git-parent:

[7f12705b2565037e8cb29351a64d95b5a85e466f]

git-author:
Mark Harrison <mark@omniti.com> 1269268243 +0000
Message:

Fix some undefined variable warnings

git-svn-id: https://labs.omniti.com/resmon/branches/resmon2@281 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • lib/Resmon/Status.pm

    r7f12705 r9b06619  
    267267    my ($client, $req, $proto, $snip, $authuser, $authpass) = @_; 
    268268    my $state = $self->get_shared_state(); 
    269     if ($self->{authuser} ne "" && 
     269    if (defined($self->{authuser}) && $self->{authuser} ne "" && 
    270270        ($authuser ne $self->{authuser} || $authpass ne $self->{authpass})) { 
    271271        my $response = "<html><head><title>Password required</title></head>" . 
     
    322322    my $type = shift || 'text/xml'; 
    323323    my $close_connection = shift || 1; 
    324     my $extra_headers = shift
     324    my $extra_headers = shift || ""
    325325    return "HTTP/1.0 $code OK\nServer: resmon\n" . 
    326326        (defined($len) ? "Content-length: $len\n" : "") .