suikacvs/okuchuu/piclist.ja.cgi

#!/usr/local/bin/perl

=pod

Make list of pictures in directory.

Copyright: Public Domain.

Change:

2001-06-25  wakaba <wakaba@61.201.226.127>

        - In default, images are sized by stylesheet.  When ?realsize=1,
          images are not specified its size.
        - Images are linked to itself.

2001-05-17  wakaba

        - New File.

=cut

#use Suika::CGI;
unless ($main::ENV{PATH_TRANSLATED}) {
  die;
  #Suika::CGI::Error::die('open');
}

my $dir = $main::ENV{PATH_TRANSLATED};
$dir =~ s#/LIST$##;

opendir DIR, $dir or die; #Suika::CGI::Error::die('open', $dir);
  my @files = readdir(DIR);
close DIR;

for (@files) {
  undef $_ if /^\./;
  if (/(.+)\.(?:jpe?g|png)/i) {
    $_ = $1;
  } else {undef $_}
}

my $title = '画像一覧';

if (-e $dir.'/-TITLE') {
  open TITLE, $dir.'/-TITLE';
    ($title) = <TITLE>;
  close TITLE;
}
print STDOUT "Content-Type: text/html; charset=euc-jp\n\n";

#my $linkelement = '<link rel="stylesheet" href="/okuchuu/piclist-style" />'
my $linkelement = '<style type="text/css">img.s {width: 240px; height: 180px}</style>'
  unless $Suika::CGI::param{realsize};
my $imgsattr = ' class="s"' unless $Suika::CGI::param{realsize};

$| = '';
print <<EOH;
<html>
<head>
<title>${title}</title>
${linkelement}
</head>
<body>
<h1>${title}</h1>
<div class="pictures">
EOH


for (sort @files) {
  if ($_) {
    print '<a href="'.$_.'">';
    print '<img src="'.$_.'" alt="'.$_.'"'.$imgsattr.' />';
    print "</a>\n";
  }
}

print <<EOH;
</div>

<address>
[<a href="/">/</a>]
</address>
</body>
</html>
EOH

1;

1	#!/usr/local/bin/perl
2
3	=pod
4
5	Make list of pictures in directory.
6
7	Copyright: Public Domain.
8
9	Change:
10
11	2001-06-25 wakaba <wakaba@61.201.226.127>
12
13	- In default, images are sized by stylesheet. When ?realsize=1,
14	images are not specified its size.
15	- Images are linked to itself.
16
17	2001-05-17 wakaba
18
19	- New File.
20
21	=cut
22
23	#use Suika::CGI;
24	unless ($main::ENV{PATH_TRANSLATED}) {
25	die;
26	#Suika::CGI::Error::die('open');
27	}
28
29	my $dir = $main::ENV{PATH_TRANSLATED};
30	$dir =~ s#/LIST$##;
31
32	opendir DIR, $dir or die; #Suika::CGI::Error::die('open', $dir);
33	my @files = readdir(DIR);
34	close DIR;
35
36	for (@files) {
37	undef $_ if /^\./;
38	if (/(.+)\.(?:jpe?g\|png)/i) {
39	$_ = $1;
40	} else {undef $_}
41	}
42
43	my $title = '画像一覧';
44
45	if (-e $dir.'/-TITLE') {
46	open TITLE, $dir.'/-TITLE';
47	($title) = <TITLE>;
48	close TITLE;
49	}
50	print STDOUT "Content-Type: text/html; charset=euc-jp\n\n";
51
52	#my $linkelement = '<link rel="stylesheet" href="/okuchuu/piclist-style" />'
53	my $linkelement = '<style type="text/css">img.s {width: 240px; height: 180px}</style>'
54	unless $Suika::CGI::param{realsize};
55	my $imgsattr = ' class="s"' unless $Suika::CGI::param{realsize};
56
57	$\| = '';
58	print <<EOH;
59	<html>
60	<head>
61	<title>${title}</title>
62	${linkelement}
63	</head>
64	<body>
65	<h1>${title}</h1>
66	<div class="pictures">
67	EOH
68
69
70	for (sort @files) {
71	if ($_) {
72	print '<a href="'.$_.'">';
73	print '<img src="'.$_.'" alt="'.$_.'"'.$imgsattr.' />';
74	print "</a>\n";
75	}
76	}
77
78	print <<EOH;
79	</div>
80
81	<address>
82	[<a href="/">/</a>]
83	</address>
84	</body>
85	</html>
86	EOH
87
88	1;
89