Changeset 736d17033260fb886cb4627c6f05277ee834c5bc

Show
Ignore:
Timestamp:
03/22/07 20:16:48 (8 years ago)
Author:
Theo Schlossnagle <jesus@omniti.com>
git-committer:
Theo Schlossnagle <jesus@omniti.com> 1174594608 +0000
git-parent:

[c43001e8e3ac31dae3bfc11c22a72d78347fda07]

git-author:
Theo Schlossnagle <jesus@omniti.com> 1174594608 +0000
Message:

cromagnonperl doesn't like the prints not as methods

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

Files:

Legend:

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

    rc43001e r736d170  
    9797  if($req eq '/' or $req eq '/status') { 
    9898    my $response .= $self->dump_xml(); 
    99     print $client http_header(200, $proto?length($response):0); 
    100     print $client $response . "\r\n"
     99    $client->print(http_header(200, $proto?length($response):0)); 
     100    $client->print($response . "\r\n")
    101101    return; 
    102102  } elsif($req eq '/status.txt') { 
    103103    my $response = $self->dump_oldstyle(); 
    104     print $client http_header(200, $proto?length($response):0, 'text/plain'); 
    105     print $client $response . "\r\n"
     104    $client->print(http_header(200, $proto?length($response):0, 'text/plain')); 
     105    $client->print($response . "\r\n")
    106106    return; 
    107107  } else { 
     
    114114                     xml_info($1,$2,$info). 
    115115                     "</ResmonRestults>\n"; 
    116         print $client http_header(200, $proto?length($response):0); 
    117         print $client $response . "\r\n"
     116        $client->print(http_header(200, $proto?length($response):0)); 
     117        $client->print( $response . "\r\n")
    118118        return; 
    119119      }