#!/usr/bin/perl # Please run this script from a browser. use strict; use CGI; BEGIN { require "config.pl"; } BEGIN { require "config_defaults.pl"; } BEGIN { require "wakautils.pl"; } { my @files; # Get list of all files in src opendir(DIR, IMG_DIR); @files = readdir(DIR); closedir(DIR); foreach my $file (@files) { generate_redir($file); } print "Content-Type: text/html\n\n"; print "\n"; print "Done\n"; print "\n"; } sub generate_redir($) { my ($file) = @_; my $redir_file = REDIR_DIR . $file . '.html'; unless (-e $redir_file) { my $url = expand_filename(IMG_DIR.$file); open FILE, ">", $redir_file; #--------------------------------------------------- print FILE < $url
HTML #--------------------------------------------------- close FILE; } }