/[suikacvs]/perl/kanzan/kanzan.cgi
Suika

Diff of /perl/kanzan/kanzan.cgi

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

revision 1.2 by wakaba, Sat Feb 23 11:49:52 2002 UTC revision 1.3 by wakaba, Wed Sep 4 08:57:28 2002 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  require Suika::CGI;  require Suika::CGI;
5    
6  my %ex_point1 = (  my %ex_point1 = ();
7    (
8    kokugo        => 54,    kokugo        => 54,
9    suugaku       => 55,    suugaku       => 55,
10    eigo  => 57,    eigo  => 57,
# Line 16  my %ex_point1 = ( Line 17  my %ex_point1 = (
17    _OBJECT       => 57,    _OBJECT       => 57,
18  );  );
19    
20  my %ex_point2 = (  my %ex_point2 = ();
21    (
22    kokugo        => 53,    kokugo        => 53,
23    suugaku       => 55,    suugaku       => 55,
24    eigo  => 55,    eigo  => 55,
# Line 29  my %ex_point2 = ( Line 31  my %ex_point2 = (
31    _OBJECT       => 58,    _OBJECT       => 58,
32  );  );
33    
34  my %ex_haiten1 = (  my %ex_haiten1 = ();
35    (
36    kokugo        => 80,    kokugo        => 80,
37    suugaku       => 80,    suugaku       => 80,
38    eigo  => 80,    eigo  => 80,
# Line 41  my %ex_haiten1 = ( Line 44  my %ex_haiten1 = (
44    seibutsu      => 0,    seibutsu      => 0,
45  );  );
46    
47  my %ex_haiten2 = (  my %ex_haiten2 = ();
48    (
49    kokugo        => 0,    kokugo        => 0,
50    suugaku       => 300,    suugaku       => 300,
51    eigo  => 150,    eigo  => 150,
# Line 102  if ($Suika::CGI::param{newform} ne 'no') Line 106  if ($Suika::CGI::param{newform} ne 'no')
106  my ($percent, $object, $kanzan1, $kanzan2)  my ($percent, $object, $kanzan1, $kanzan2)
107   = kanzan ({%mypoint1} => {%haiten1}, {%mypoint2} => {%haiten2});   = kanzan ({%mypoint1} => {%haiten1}, {%mypoint2} => {%haiten2});
108    
109  print STDOUT "Content-Type: text/html; charset=euc-jisx0213  print STDOUT "Content-Type: text/html; charset=euc-jp
110    Content-Style-Type: text/css
111    Content-Language: ja
112    
113  ";  ";
114  output_html (\%mypoint1 => \%haiten1 => $kanzan1,  output_html (\%mypoint1 => \%haiten1 => $kanzan1,
# Line 133  sub output_html (%%%%%) { Line 139  sub output_html (%%%%%) {
139  <html lang="ja">  <html lang="ja">
140  <head>  <head>
141  <title>配点換算</title>  <title>配点換算</title>
142    <link rev="made" href="mailto:w@suika.fam.cx">
143    <link rel="contents" href="http://tomikou.net/">
144    <link rel="contents" href="/chuubu/">
145  <style type="text/css">  <style type="text/css">
146  input   {width: 3em}  input   {width: 3em}
147  </style>  </style>
# Line 250  input  {width: 3em} Line 259  input  {width: 3em}
259  <input type="submit" value="OK">  <input type="submit" value="OK">
260  </p>  </p>
261  </form>  </form>
262    
263    <div class="navigation">
264    [<a href="/gate/cvs/perl/kanzan/" xml:lang="en">source</a>]
265    </div>
266    </body>
267    </html>
268  EOH  EOH
269  }  }
270    
271  1;  =head1 LICENSE
272    
273    Copyright 2001-2002 wakaba E<lt>w@suika.fam.cxE<gt>.
274    
275    This program is free software; you can redistribute it and/or modify
276    it under the terms of the GNU General Public License as published by
277    the Free Software Foundation; either version 2 of the License, or
278    (at your option) any later version.
279    
280    This program is distributed in the hope that it will be useful,
281    but WITHOUT ANY WARRANTY; without even the implied warranty of
282    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
283    GNU General Public License for more details.
284    
285    You should have received a copy of the GNU General Public License
286    along with this program; see the file COPYING.  If not, write to
287    the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
288    Boston, MA 02111-1307, USA.
289    
290    =cut
291    
292    1;      # $Date$
293    ### kanzan.cgi ends here
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24