/[suikacvs]/test/comma/cgi-bin/piclist.ja.cgi
Suika

Diff of /test/comma/cgi-bin/piclist.ja.cgi

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

revision 1.2 by wakaba, Tue Aug 27 08:49:22 2002 UTC revision 1.3 by wakaba, Sun Aug 31 09:26:50 2003 UTC
# Line 20  Change: Line 20  Change:
20    
21  =cut  =cut
22    
23  use Suika::CGI;  #use Suika::CGI;
24  unless ($main::ENV{PATH_TRANSLATED}) {  unless ($main::ENV{PATH_TRANSLATED}) {
25    Suika::CGI::Error::die('open');    die;
26      #Suika::CGI::Error::die('open');
27  }  }
28    
29  my $dir = $main::ENV{PATH_TRANSLATED};  my $dir = $main::ENV{PATH_TRANSLATED};
30  $dir =~ s#/LIST$##;  $dir =~ s#/LIST$##;
31    
32  opendir DIR, $dir or Suika::CGI::Error::die('open', $dir);  opendir DIR, $dir or die; #Suika::CGI::Error::die('open', $dir);
33    my @files = readdir(DIR);    my @files = readdir(DIR);
34  close DIR;  close DIR;
35    
# Line 39  for (@files) { Line 40  for (@files) {
40    } else {undef $_}    } else {undef $_}
41  }  }
42    
43  my $title = '写真一覧';  my $title = '画像一覧';
44    
45  if (-e $dir.'/-TITLE') {  if (-e $dir.'/-TITLE') {
46    open TITLE, $dir.'/-TITLE';    open TITLE, $dir.'/-TITLE';
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24