Changeset 5635

Timestamp:

11/25/09 15:51:31 (2 years ago)

Author:

OlivierRaginel

Message:

Item8084: Use LWP features to save the downloaded file

File:

• branches/Release01x00/core/tools/extender.pl (modified) (2 diffs)

branches/Release01x00/core/tools/extender.pl

@@ -530 +530 @@
     my $response;
     foreach my $type (@$types) {
-        $response = $lwp->get( $url . $type );
+        $f = $downloadDir . '/' . $module . $type;
+        $response = $lwp->get( $url . $type,
+            ':content_file' => $f );
 
         if ( $response->header( "Client-Warning" ) ) {
@@ -537 +539 @@
             return;
         }
-        if ( $response->is_success() ) {
-            $f = $downloadDir . '/' . $module . $type;
-            open( F, ">$f" ) || die "Failed to open $f for write: $!";
-            binmode F;
-            print F $response->content();
-            close(F);
-            last;
-        }
-    }
-
-    unless ( $f && -e $f ) {
+        last if $response->is_success();
+    }
+
+    unless ( $f && -s $f ) {
         print STDERR "Failed to download $module $what\n",
           $response->status_line(), "\n";