| Index: website/cgi-bin/Utils.pm.in =================================================================== --- website/cgi-bin/Utils.pm.in (revision 4698) +++ website/cgi-bin/Utils.pm.in (working copy) @@ -994,13 +994,15 @@ # get list of databases as option fields from dbnames_url my $ua = LWP::UserAgent->new(); - my $req = HTTP::Request->new(GET => $db_cat_url); + #need full url for this request + my $req = HTTP::Request->new(GET => "@SITE_URL@/cgi-bin/$db_cat_url"); my $response = $ua->request($req); my @db_categories = split("\n", $response->content()); my $categories = ""; my $databases = ""; if (@db_categories == 1) { - $req = HTTP::Request->new(GET => $dbnames_url); + #need full url for this request + $req = HTTP::Request->new(GET => "@SITE_URL@/cgi-bin/$dbnames_url"); $response = $ua->request($req); my @db_names = split("\n", $response->content()); foreach (@db_names) { Index: website/cgi-bin/mcast.pl =================================================================== --- website/cgi-bin/mcast.pl (revision 4698) +++ website/cgi-bin/mcast.pl (working copy) @@ -24,7 +24,7 @@ $email_contact = '@contact@'; $names_file = "fasta_db.csv"; $short_dna_only = 0; # MCAST can scan long DNA sequences -$dbnames_url = "@SITE_URL@/cgi-bin/get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; +$dbnames_url = "get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; $db_doc_url = $dbnames_url . "&doc=1"; # get the parameters for the query Index: website/cgi-bin/glam2scan.pl =================================================================== --- website/cgi-bin/glam2scan.pl (revision 4698) +++ website/cgi-bin/glam2scan.pl (working copy) @@ -25,7 +25,7 @@ $email_contact = '@contact@'; $names_file = "fasta_db.csv"; $short_dna_only = 0; # GLAM2SCAN can scan long DNA sequences -$dbnames_url = "@SITE_URL@/cgi-bin/get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; +$dbnames_url = "get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; $db_doc_url = $dbnames_url . "&doc=1"; # defaults Index: website/cgi-bin/tomtom.pl =================================================================== --- website/cgi-bin/tomtom.pl (revision 4698) +++ website/cgi-bin/tomtom.pl (working copy) @@ -21,7 +21,7 @@ $bin_dir = "$dir/bin"; # directory for executables $out_dir = "../output"; # directory for results $names_file = "motif_db.csv"; -$dbnames_url = "@SITE_URL@/cgi-bin/get_db_list.cgi?db_names=$names_file"; +$dbnames_url = "get_db_list.cgi?db_names=$names_file"; $db_doc_url = $dbnames_url . "&doc=1"; $REFRESH = 20; $email_contact = '@contact@'; Index: website/cgi-bin/fimo.pl =================================================================== --- website/cgi-bin/fimo.pl (revision 4698) +++ website/cgi-bin/fimo.pl (working copy) @@ -24,7 +24,7 @@ $email_contact = '@contact@'; $names_file = "fasta_db.csv"; $short_dna_only = 0; # FIMO can scan long DNA sequences -$dbnames_url = "@SITE_URL@/cgi-bin/get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; +$dbnames_url = "get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; $db_doc_url = $dbnames_url . "&doc=1"; # get the parameters for the query Index: website/cgi-bin/gomo.pl =================================================================== --- website/cgi-bin/gomo.pl (revision 4698) +++ website/cgi-bin/gomo.pl (working copy) @@ -19,7 +19,7 @@ $service_url = "@OPAL@/GOMO_@S_VERSION@"; $email_contact = '@contact@'; $names_file = "gomo_db.csv"; -$dbnames_url = "@SITE_URL@/cgi-bin/get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; +$dbnames_url = "get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; $db_doc_url = $dbnames_url . "&doc=1"; # defaults Index: website/cgi-bin/mast.pl =================================================================== --- website/cgi-bin/mast.pl (revision 4698) +++ website/cgi-bin/mast.pl (working copy) @@ -25,7 +25,7 @@ $email_contact = '@contact@'; $short_dna_only = 1; # MAST cannot scan long DNA sequences $names_file = 'fasta_db.csv'; -$dbnames_url = "@SITE_URL@/cgi-bin/get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; +$dbnames_url = "get_db_list.cgi?db_names=$names_file&short_only=$short_dna_only"; $db_doc_url = $dbnames_url . "&doc=1"; # defaults |