suikacvs/okuchuu/piclist.ja.cgi

#!/usr/local/bin/perl

use strict;

=head1 NAME

piclist - Making List of Pictures in a Directory

=cut

my $dir = $main::ENV{PATH_TRANSLATED}
  or die "BAD PATH_TRANSLATED: $ENV{PATH_TRANSLATED}";

my %Opt;

if ($dir =~ s#/[^/]+$##) {
  for (split /[&;]/, $ENV{QUERY_STRING}) {
    my ($name, $val) = split /=/, $_, 2;
    $Opt{$name} = defined $val ? $val : 1;
  }
1	wakaba	1.2	#!/usr/local/bin/perl
2
3	wakaba	1.4	use strict;
4	wakaba	1.2
5	wakaba	1.4	=head1 NAME
6	wakaba	1.2
7	wakaba	1.4	piclist - Making List of Pictures in a Directory
8	wakaba	1.2
9	wakaba	1.4	=cut
10	wakaba	1.2
11	wakaba	1.6	my $dir = $main::ENV{PATH_TRANSLATED}
12			or die "BAD PATH_TRANSLATED: $ENV{PATH_TRANSLATED}";
13	wakaba	1.2
14	wakaba	1.4	my %Opt;
15	wakaba	1.2
16	wakaba	1.6	if ($dir =~ s#/[^/]+$##) {
17	wakaba	1.4	for (split /[&;]/, $ENV{QUERY_STRING}) {
18			my ($name, $val) = split /=/, $_, 2;
19			$Opt{$name} = defined $val ? $val : 1;
20			}
21