Changeset 52 for trunk

Show
Ignore:
Timestamp:
09/02/09 00:01:53 (5 years ago)
Author:
jesus
Message:

more error messageS

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/perl/lib/Cornea.pm

    r50 r52  
    7171      } 
    7272      else { 
    73         print STDERR "Failed copy to " . $n->fqdn . "\n" if $main::DEBUG; 
     73        print STDERR "Failed copy to " . $n->fqdn . "\n$data\n" if $main::DEBUG; 
    7474        $T->remove($n); 
    7575      } 
  • trunk/perl/lib/Cornea/ApacheStore.pm

    r49 r52  
    7676      my $code = $curl->getinfo(CURLINFO_HTTP_CODE); 
    7777      $errbuf = "copy from source: $code" unless $code == 200; 
    78       $errbuf = "zero length file\n" if -z $path; 
    79       if ($code == 200 and -e $path and not -z $path) { 
     78      if ($code == 200 and -e $path) { 
    8079        $copied = 1; 
    8180        last; 
  • trunk/perl/lib/Cornea/StorageNode.pm

    r50 r52  
    9696    $curl->setopt(CURLOPT_URL, $url); 
    9797    $curl->setopt(CURLOPT_HTTPHEADER, [ "X-Cornea-Node: $ips" ]); 
     98    print STDERR "COPY $url (X-Cornea-Node: $ips)\n" if $main::DEBUG; 
    9899    $curl->setopt(CURLOPT_CUSTOMREQUEST, "COPY"); 
    99100    $curl->setopt(CURLOPT_FILE, \$response_data);