|< 1 2 >| | 19 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
BEGIN {
$| = 1;
use CGI::Carp qw/fatalsToBrowser/;
}
use strict;
use warnings;
use CGI qw/:all/;
my $path = 'http://www.blackwindow.de/phpkit_1603/phpkit/uploads/';
print header();
print start_html(-title=>'Directory Index');
opendir DIR,$path or die "Konnte Directory nicht auslesen: $!";
for (sort grep !/^\.\.?$/,readdir DIR) {
print a({-href=>$path . $_,-target=>'_blank'},$_),br;
}
closedir DIR;
print end_html;
exit;
|< 1 2 >| | 19 Einträge, 2 Seiten |