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

Diff of /FigWebServices/start.cgi

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

revision 1.6, Tue Oct 18 20:55:51 2005 UTC revision 1.7, Thu Nov 3 22:07:59 2005 UTC
# Line 14  Line 14 
14  use URI::Escape;  use URI::Escape;
15  use raelib; my $raelib=new raelib; # this is just used for the cookies.  use raelib; my $raelib=new raelib; # this is just used for the cookies.
16    
17  my $cgi = new CGI;  my($fig, $cgi, $user) = FIG_CGI::init(debug_save => 0,
18  my $fig = new FIG;                                        debug_load => 0,
19                                          print_params => 0);
20    
21  my $html = [];  my $html = [];
22    
23  my $user = $cgi->param('user') || [$raelib->cookie($cgi)]->[1]->{'user'} || "";  #
24  if (! $cgi->param('user')) { $cgi->param(-name=>'user', -value=> $user) }  # Cookie stuff should migrate to FIG_CGI
25    #
26    # my $user = $cgi->param('user') || [$raelib->cookie($cgi)]->[1]->{'user'} || "";
27    
28    #
29    # This should too, if it's needed.
30    # if (! $cgi->param('user')) { $cgi->param(-name=>'user', -value=> $user) }
31    
32    
33  #my $click_js = <<'EJS';  #my $click_js = <<'EJS';

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3