/[suikacvs]/test/suika-accounts/users.pl
Suika

Diff of /test/suika-accounts/users.pl

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

revision 1.4 by wakaba, Sat Nov 1 10:13:14 2008 UTC revision 1.6 by wakaba, Sat May 15 03:29:27 2010 UTC
# Line 84  sub set_prop_hash ($$) { Line 84  sub set_prop_hash ($$) {
84        print $user_prop_file $v . ':' . $pv . "\x0A";        print $user_prop_file $v . ':' . $pv . "\x0A";
85      }      }
86    }    }
87    close $user_prop_file_name;    close $user_prop_file;
88    
89    system_ ('cvs', 'add', $user_prop_file_name) unless $has_file;    system_ ('cvs', 'add', $user_prop_file_name) unless $has_file;
90  } # set_prop_hash  } # set_prop_hash
# Line 183  sub print_error ($$;$) { Line 183  sub print_error ($$;$) {
183  Content-Type: text/html; charset=utf-8  Content-Type: text/html; charset=utf-8
184    
185  <!DOCTYPE HTML>  <!DOCTYPE HTML>
186  <html lang="$Lang">  <html lang="$Lang" class=account-error>
187  <title lang=en>$code @{[htescape ($_text)]}</title>  <title lang=en>$code @{[htescape ($_text)]}</title>
188  <link rel=stylesheet href="/www/style/html/xhtml">  <link rel=stylesheet href="/admin/style/common">
189  <h1>];  <h1>];
190    print_text ('Error');    print_text ('Error');
191    print q[</h1><p>];    print q[</h1><p>];
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24