/[suikacvs]/markup/html/html5/spec-ja/edit2.cgi
Suika

Diff of /markup/html/html5/spec-ja/edit2.cgi

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

revision 1.3 by wakaba, Sun Oct 26 10:10:54 2008 UTC revision 1.7 by wakaba, Fri Oct 31 04:30:24 2008 UTC
# Line 25  if ($path eq '/') { Line 25  if ($path eq '/') {
25                  split /[\x0D\x0A]+/, $cgi->get_parameter ('tags') // ''];                  split /[\x0D\x0A]+/, $cgi->get_parameter ('tags') // ''];
26    
27      my $hash = get_hash ($en);      my $hash = get_hash ($en);
28      my $entry = {en => $en, ja => $ja, tags => $tags};      my $entry = {en => $en, ja => $ja, tags => $tags,
29                     isPattern => $is_pattern};
30            
31      lock_entry ($hash);      lock_entry ($hash);
32      set_entry ($hash, $is_pattern => $entry);      set_entry ($hash, $is_pattern => $entry);
33      commit_entries ("$path: $hash updated by $ENV{AUTH_USER}");      commit_entries ("$path: $hash updated by $ENV{REMOTE_USER}");
34            
35      print "Status: 200 Saved\n";      print "Status: 200 Saved\n";
36    
# Line 77  print q[Content-Type: text/plain ; chars Line 78  print q[Content-Type: text/plain ; chars
78  Status: 404 Not Found  Status: 404 Not Found
79    
80  404];  404];
81    
82    ## Author: Wakaba <w@suika.fam.cx>.
83    ## License: Copyright 2008 Wakaba.  You are granted a license to use,
84    ##     reproduce and create derivative works of this script.
85    ## $Date$
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24