my $cont = "";
my $d = new HTTP::Daemon LocalPort => 8081;
-tie(%map, 'DB_File', 'urls_of_uris.db', O_RDONLY, 0664);
+tie(%map, 'DB_File', $uris_dbm.".db", O_RDONLY, 0664);
print "Please contact me at: <URL:", $d->url, ">\n";
print "helm_dir: $helm_dir\n";
+print "urls_of_uris.db: $uris_dbm.db\n";
$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
while (my $c = $d->accept) {
if (fork() == 0) {
$response = $ua->request($request, \&callback);
print "Storing file\n";
- open(FD, $filename);
+ mkdirs($filename);
+ open(FD, ">".$filename);
print FD $cont;
close(FD);
$response = $ua->request($request, \&callback);
print "Storing file for the annotation\n";
- open(FD, $filename);
+ mkdirs($filename);
+ open(FD, ">".$filename);
print FD $cont;
close(FD);
}
$response = $ua->request($request, \&callback);
print "Storing file for the file to annotate\n";
- open(FD, $filename_target);
+ mkdirs($filename_target);
+ open(FD, ">".$filename_target);
print FD $cont;
close(FD);
}
$response = $ua->request($request, \&callback);
print "Storing file for the types\n";
- open(FD, $filename);
+ mkdirs($filename);
+ open(FD, ">".$filename);
print FD $cont;
close(FD);
}
$response = $ua->request($request, \&callback);
print "Storing file for the file to type\n";
- open(FD, $filename_target);
+ mkdirs($filename_target);
+ open(FD, ">".$filename_target);
print FD $cont;
close(FD);
}
my ($data) = @_;
$cont .= $data;
}
+
+# Does not raise errors if could not create dirs/files
+
+# Too much powerful: creates even /home, /home/users/, ...
+sub mkdirs
+{
+ my ($pathname) = @_;
+ my @dirs = split /\//,$pathname;
+ my $tmp;
+ foreach $dir (@dirs) {
+ $tmp = ((defined($tmp)) ? $tmp = $tmp."\/".$dir : "");
+ mkdir($tmp,0777);
+ }
+ rmdir($tmp);
+}