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

Annotation of /FigWebServices/record.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (view) (download)

1 : overbeek 1.1 # -*- perl -*-
2 : olson 1.4 #
3 :     # Copyright (c) 2003-2006 University of Chicago and Fellowship
4 :     # for Interpretations of Genomes. All Rights Reserved.
5 :     #
6 :     # This file is part of the SEED Toolkit.
7 :     #
8 :     # The SEED Toolkit is free software. You can redistribute
9 :     # it and/or modify it under the terms of the SEED Toolkit
10 :     # Public License.
11 :     #
12 :     # You should have received a copy of the SEED Toolkit Public License
13 :     # along with this program; if not write to the University of Chicago
14 :     # at info@ci.uchicago.edu or the Fellowship for Interpretation of
15 :     # Genomes at veronika@thefig.info or download a copy from
16 :     # http://www.theseed.org/LICENSE.TXT.
17 :     #
18 :    
19 : overbeek 1.1
20 :     use FIG;
21 :     my $fig = new FIG;
22 :    
23 :    
24 :     use CGI;
25 :     my $cgi = new CGI;
26 :    
27 :     if (0)
28 :     {
29 :     my $VAR1;
30 :     eval(join("",`cat /tmp/record_parms`));
31 :     $cgi = $VAR1;
32 :     # print STDERR &Dumper($cgi);
33 :     }
34 :    
35 : overbeek 1.2 if (0)
36 : overbeek 1.1 {
37 :     print $cgi->header;
38 :     my @params = $cgi->param;
39 :     print "<pre>\n";
40 :     foreach $_ (@params)
41 :     {
42 :     print "$_\t:",join(",",$cgi->param($_)),":\n";
43 :     }
44 :    
45 : overbeek 1.2 if (0)
46 : overbeek 1.1 {
47 :     if (open(TMP,">/tmp/record_parms"))
48 :     {
49 :     print TMP &Dumper($cgi);
50 :     close(TMP);
51 :     }
52 :     }
53 :     exit;
54 :     }
55 :    
56 :     my $html = [];
57 :    
58 :     @badfig = $cgi->param('badfig');
59 : overbeek 1.3 @baduni = $cgi->param('baduni');
60 : overbeek 1.1 @notes = map { [$_,$cgi->param($_)] } grep { $_ =~ /^note/ } $cgi->param;
61 :    
62 : overbeek 1.3 &FIG::verify_dir("$FIG_Config::temp/UniProtFixes");
63 : overbeek 1.1
64 :     foreach $_ (@badfig)
65 :     {
66 :     if ($_ =~ /^F\t([^\t]+)/)
67 :     {
68 :     $sub = $1;
69 : overbeek 1.3 open(TMP,">>$FIG_Config::temp/UniProtFixes/F.$sub") || die "$sub";
70 :     print TMP "$_\n";
71 : overbeek 1.1 close(TMP);
72 :     }
73 :     else
74 :     {
75 :     die "BAD: $_";
76 :     }
77 :     }
78 :    
79 :     foreach $_ (@baduni)
80 :     {
81 :     if ($_ =~ /^U\t([^\t]+)/)
82 :     {
83 :     $sub = $1;
84 : overbeek 1.3 open(TMP,">>$FIG_Config::temp/UniProtFixes/U.$sub") || die "$sub";
85 :     print TMP "$_\n";
86 : overbeek 1.1 close(TMP);
87 :     }
88 :     else
89 :     {
90 :     die "BAD: $_";
91 :     }
92 :     }
93 :    
94 :     foreach $x (@notes)
95 :     {
96 :     ($key,$value) = @$x;
97 :     if ($key =~ /^notes\t([^\t]+)/)
98 :     {
99 :     $sub = $1;
100 : overbeek 1.3 open(TMP,">>$FIG_Config::temp/UniProtFixes/N.$sub") || die "$sub";
101 : overbeek 1.1 print TMP "$key\n$value\n//\n";
102 :     close(TMP);
103 :     }
104 :     else
105 :     {
106 :     print STDERR &Dumper($key); die "aborted";
107 :     }
108 :     }
109 :    
110 :     print $cgi->header;
111 :     print $cgi->h1("ok");

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3