/[suikacvs]/webroot/admin/web/bin/log-view.cgi
Suika

Diff of /webroot/admin/web/bin/log-view.cgi

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

revision 1.7 by wakaba, Sun Feb 17 09:53:45 2002 UTC revision 1.11 by wakaba, Sun Feb 17 10:37:33 2002 UTC
# Line 14  require 'jcode.pl'; Line 14  require 'jcode.pl';
14  if ($main::ENV{PATH_TRANSLATED}) {  if ($main::ENV{PATH_TRANSLATED}) {
15    my $logid = $main::ENV{PATH_TRANSLATED};    my $logid = $main::ENV{PATH_TRANSLATED};
16    $logid = readlink ($logid) if -l $logid;    $logid = readlink ($logid) if -l $logid;
17    Suika::CGI::Error::die ('404') unless -e $logid;    Suika::CGI::Error::http_error ('404') unless -e $logid;
18        
19    open LOG, $logid or Suika::CGI::Error::die ('500',''=> $!);    open LOG, $logid or Suika::CGI::Error::http_error ('500',''=> $!);
20      my @log = <LOG>;      my @log = <LOG>;
21    close LOG;    close LOG;
22        
# Line 24  if ($main::ENV{PATH_TRANSLATED}) { Line 24  if ($main::ENV{PATH_TRANSLATED}) {
24    $logid =~ s#^/home(/[^/]+)/public_html#$1#;    $logid =~ s#^/home(/[^/]+)/public_html#$1#;
25        
26    print STDOUT <<EOH;    print STDOUT <<EOH;
27  Content-Type: text/html; charset=iso-8859-1  Content-Type: text/html; charset=junet
28  Content-Language: en  Content-Language: en
29    
30  <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">  <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
# Line 99  EOH Line 99  EOH
99    print <<EOH;    print <<EOH;
100  </tbody></table>  </tbody></table>
101    
 <address>  
102  $main::ENV{SERVER_SIGNATURE}  $main::ENV{SERVER_SIGNATURE}
 </address>  
103  </body></html>  </body></html>
104  EOH  EOH
105    
106  } else {  } else {
107    Suika::CGI::Error::die ('400');    Suika::CGI::Error::http_error ('400');
108  }  }
109    
110  sub _html ($) {  sub _html ($) {
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.11
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24