#!/usr/bin/perl # Configuration Variables # Change these variables to match your web server's configuration use strict; use File::Find; my $base_dir = "/home/brian/public_html/bbd/"; finddepth(\&wanted, $base_dir); sub wanted { if (/\.html$/) { my $file = "$File::Find::name"; my $old = "$file"; my $new = "$file.tmp.$$"; my $bak = "$file.bak"; open(OLD, "< $old") or die "can't open $old: $!"; open(NEW, "> $new") or die "can't open $new: $!"; # replace old banner with new one while () { if (//) { while (! $_ =~ //) { ; } print NEW '',"\n"; print NEW '',"\n"; print NEW '',"\n"; } else { (print NEW $_) or die "can't write to $new: $!"; } } close(OLD) or die "can't close $old: $!"; close(NEW) or die "can't close $new: $!"; rename($old, $bak) or die "can't rename $old to $bak: $!"; rename($new, $old) or die "can't rename $new to $old: $!"; } }