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}) {
  Suika::CGI::Error::die('open');
}

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

opendir DIR, $dir or 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>]
[<a href="/okuchuu/">伝説(謎)の「おくちゅ。」</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	Suika::CGI::Error::die('open');
26	}
27
28	my $dir = $main::ENV{PATH_TRANSLATED};
29	$dir =~ s#/LIST$##;
30
31	opendir DIR, $dir or Suika::CGI::Error::die('open', $dir);
32	my @files = readdir(DIR);
33	close DIR;
34
35	for (@files) {
36	undef $_ if /^\./;
37	if (/(.+)\.(?:jpe?g\|png)/i) {
38	$_ = $1;
39	} else {undef $_}
40	}
41
42	my $title = '写真一覧';
43
44	if (-e $dir.'/-TITLE') {
45	open TITLE, $dir.'/-TITLE';
46	($title) = <TITLE>;
47	close TITLE;
48	}
49	print STDOUT "Content-Type: text/html; charset=euc-jp\n\n";
50
51	#my $linkelement = '<link rel="stylesheet" href="/okuchuu/piclist-style" />'
52	my $linkelement = '<style type="text/css">img.s {width: 240px; height: 180px}</style>'
53	unless $Suika::CGI::param{realsize};
54	my $imgsattr = ' class="s"' unless $Suika::CGI::param{realsize};
55
56	$\| = '';
57	print <<EOH;
58	<html>
59	<head>
60	<title>${title}</title>
61	${linkelement}
62	</head>
63	<body>
64	<h1>${title}</h1>
65	<div class="pictures">
66	EOH
67
68
69	for (sort @files) {
70	if ($_) {
71	print '<a href="'.$_.'">';
72	print '<img src="'.$_.'" alt="'.$_.'"'.$imgsattr.' />';
73	print "</a>\n";
74	}
75	}
76
77	print <<EOH;
78	</div>
79
80	<address>
81	[<a href="/">/</a>]
82	[<a href="/okuchuu/">伝説(謎)の「おくちゅ。」</a>]
83	</address>
84	</body>
85	</html>
86	EOH
87
88	1;
89