- print_request("cic",$cicuri,$cicurl,$cicfilename);
- print_request("types",$typesuri,$typesurl,$typesfilename)
- if ($typesuri);
- print_request("ann",$annuri,$annurl,$annfilename)
- if ($annuri);
-
- # Retrieves the files
-
- my $ciccontent = download(1,"cic",$cicurl,$cicfilename);
- my $typescontent =
- download(1,"types",$typesurl,$typesfilename) if ($typesuri);
- my $anncontent =
- download(1,"ann",$annurl,$annfilename) if ($annuri);
-
- # Merging the files together
-
- my $merged = <<EOT;
+ if (!defined($cicurl) ||
+ (!defined($typesurl) && $typesuri) ||
+ (!defined($annuri) && $annuri))
+ {
+ print "\nNOT FOUND!!!!!\n";
+ $c->send_error(RC_NOT_FOUND)
+ } else {
+ print_request("cic",$cicuri,$cicurl,$cicfilename);
+ print_request("types",$typesuri,$typesurl,$typesfilename)
+ if ($typesuri);
+ print_request("ann",$annuri,$annurl,$annfilename)
+ if ($annuri);
+
+ # Retrieves the files
+
+ my $ciccontent = download(1,"cic",$cicurl,$cicfilename);
+ my $typescontent =
+ download(1,"types",$typesurl,$typesfilename) if ($typesuri);
+ my $anncontent =
+ download(1,"ann",$annurl,$annfilename) if ($annuri);
+
+ # Merging the files together
+
+ my $merged = <<EOT;