| version 1.3, 2007/02/08 20:04:03 |
version 1.4, 2010/03/26 14:21:55 |
|
|
| #!/usr/bin/perl -w |
#!/usr/bin/perl -w |
| # $RedRiver: createfulllist.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ |
# $RedRiver: createfulllist.pl,v 1.3 2007/02/08 20:04:03 andrew Exp $ |
| ######################################################################## |
######################################################################## |
| # showall.pl *** Displays all MP3's in all subdirs |
# showall.pl *** Displays all MP3's in all subdirs |
| # |
# |
|
|
| # *** MAIN *** |
# *** MAIN *** |
| ####################################################################### |
####################################################################### |
| |
|
| my ($prefix, $subdir) = split /\&/, $ENV{'QUERY_STRING'}; |
my $query_string = $ENV{'QUERY_STRING'} || q{}; |
| |
my ($prefix, $subdir) = split /\&/, $query_string; |
| if ($subdir) { |
if ($subdir) { |
| $subdir =~ s/%(..)/pack("c",hex($1))/ge; |
$subdir =~ s/%(..)/pack("c",hex($1))/ge; |
| } else { |
} else { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to createfulllist.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / mp3 / bin