[Bio] / FigWebServices / index.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/index.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49, Sat Oct 23 19:51:41 2004 UTC revision 1.50, Sun Oct 24 02:45:41 2004 UTC
# Line 13  Line 13 
13    
14  if (0)  if (0)
15  {  {
16        my $VAR1;
17        eval(join("",`cat /tmp/index_parms`));
18        $cgi = $VAR1;
19    #   print STDERR &Dumper($cgi);
20    }
21    
22    if (0)
23    {
24      print $cgi->header;      print $cgi->header;
25      my @params = $cgi->param;      my @params = $cgi->param;
26      print "<pre>\n";      print "<pre>\n";
# Line 20  Line 28 
28      {      {
29          print "$_\t:",join(",",$cgi->param($_)),":\n";          print "$_\t:",join(",",$cgi->param($_)),":\n";
30      }      }
31      print "=======\n";  
32      foreach $_ (sort keys(%ENV))      if (0)
33        {
34            if (open(TMP,">/tmp/index_parms"))
35      {      {
36          print "$_\t$ENV{$_}\n";              print TMP &Dumper($cgi);
37                close(TMP);
38            }
39      }      }
40      exit;      exit;
41  }  }
# Line 61  Line 73 
73      {      {
74          $ENV{"REQUEST_METHOD"} = "GET";          $ENV{"REQUEST_METHOD"} = "GET";
75          $ENV{"QUERY_STRING"} = "user=$user&genome=$orgs[0]";          $ENV{"QUERY_STRING"} = "user=$user&genome=$orgs[0]";
76          my @out = `./genome_statistcs.cgi`;          my @out = `./genome_statistics.cgi`;
77          print @out;          print @out;
78          exit;          exit;
79      }      }

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3