/[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.2 by wakaba, Wed Oct 29 16:27:15 2008 UTC revision 1.3 by wakaba, Thu Oct 30 11:57:07 2008 UTC
# Line 169  sub regenerate_htpasswd_and_htgroup () { Line 169  sub regenerate_htpasswd_and_htgroup () {
169    }    }
170  } # regenerate_htpasswd_and_htgroup  } # regenerate_htpasswd_and_htgroup
171    
172  sub print_error ($$) {  sub print_error ($$;$) {
173    my ($code, $text) = @_;    my ($code, $text, $text_arg) = @_;
174      our $Lang;
175    binmode STDOUT, ':encoding(utf-8)';    binmode STDOUT, ':encoding(utf-8)';
176    print qq[Status: $code $text    my $_text = $text;
177      $_text =~ s/%s/$text_arg/g;
178      print qq[Status: $code $_text
179  Content-Type: text/html; charset=utf-8  Content-Type: text/html; charset=utf-8
180    
181  <!DOCTYPE HTML>  <!DOCTYPE HTML>
182  <html lang=en>  <html lang="$Lang">
183  <title>$code @{[htescape ($text)]}</title>  <title lang=en>$code @{[htescape ($_text)]}</title>
184  <link rel=stylesheet href="/www/style/html/xhtml">  <link rel=stylesheet href="/www/style/html/xhtml">
185  <h1>Error</h1>  <h1>];
186  <p>@{[htescape ($text)]}.<!--];    print_text ('Error');
187      print q[</h1><p>];
188      print_text ($text, sub { print '', htescape ($text_arg) });
189      print_text ('.');
190      print q[<!--];
191    print 0 for 0..511; # for WinIE    print 0 for 0..511; # for WinIE
192    print q[-->];    print q[-->];
193  } # print_error  } # print_error
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24