- print "Downloading the $str file\n"; # download file
- my $ua = LWP::UserAgent->new;
- my $request = HTTP::Request->new(GET => "$url");
- my $response = $ua->request($request, \&callback);
-
- # cache retrieved file to disk
-# <ZACK/> TODO: inefficent, I haven't yet undestood how to deflate
-# in memory gzipped file, without call "gzopen"
- print "Storing the $str file\n";
- mkdirs($filename);
- open(FD, ">".$filename.".tmp") or die "Cannot open $filename.tmp\n";
- print FD $cont;
- close(FD);
-
- # handle cache conversion normal->gzipped or gzipped->normal as user choice
- if (($cachemode eq 'normal') and ($resourcetype eq 'normal')) {
- # cache the file as is
- rename "$filename.tmp", $filename;
- } elsif (($cachemode eq 'gzipped') and ($resourcetype eq 'gzipped')) {
- # cache the file as is
- # and update the $cont variabile with deflated content
- rename "$filename.tmp", $filename;
- $cont = gunzip($filename);
- } elsif (($cachemode eq 'normal') and ($resourcetype eq 'gzipped')) {
- # deflate cache entry
- # and update $cont
- open(FD, "> $basefname") or die "cannot open $basefname\n";
- $cont = gunzip($filename.".tmp");
- print FD $cont;
- close(FD);
- unlink "$filename.tmp"; # delete old gzipped file
- } elsif (($cachemode eq 'gzipped') and ($resourcetype eq 'normal')) {
- # compress cache entry
- gzip($cont, $basefname.".gz");
- unlink "$filename.tmp"; # delete old uncompressed file
- } else {
- die "Internal error, unsopported cachemode, resourcetype couple\n";
- }
- # $cont now contained uncompressed data
+ print "Downloading file ...\n"; # download file
+ my $ua = LWP::UserAgent->new;
+ my $request = HTTP::Request->new(GET => "$url");
+ my $response = $ua->request($request, \&callback);
+
+ # cache retrieved file to disk
+ # <ZACK/> TODO: inefficent, I haven't yet undestood how to deflate
+ # in memory gzipped file, without call "gzopen"
+ print "Storing file ...\n";
+# print "Making dirs ...\n";
+ mkdirs($filename);
+# print "Opening tmp file for writing ...\n";
+ open(FD, ">".$filename.".tmp") or die "Cannot open $filename.tmp\n";
+# print "Writing on tmp file ...\n";
+ print FD $cont;
+# print "Closing tmp file ...\n";
+ close(FD);