umask(0022);
my $Version = "3.0.0beta2";
-my $ReleaseDate = "31 Oct 2006";
+my $ReleaseDate = "18 Nov 2006";
my $DistDir = "dist/BackupPC-$Version";
my @PerlSrc = qw(
"--outfile=doc/BackupPC.html");
foreach my $file ( (@PerlSrc,
- <images/*>,
+ <images/*.gif>,
+ <images/*.png>,
qw(
conf/config.pl
conf/hosts
my($file, $dest) = @_;
unlink($dest) if ( -d $dest );
- if ( $file =~ /\.gif/ ) {
+ if ( $file =~ /\.gif/ || $file =~ /\.png/ ) {
die("can't copy($file, $dest)\n") unless copy($file, $dest);
} else {
open(FILE, $file) || die("can't open $file for reading\n");