diff --git a/favicon.ico b/favicon.ico old mode 100755 new mode 100644 diff --git a/media/tde-logo.png b/media/tde-logo.png old mode 100755 new mode 100644 diff --git a/reskin.pl b/reskin.pl deleted file mode 100644 index 6ff74aa..0000000 --- a/reskin.pl +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/bin/perl - -use File::Copy; - -#get target directory and list the files -my $nav = $ARGV[0]; -my $topdir = $ARGV[1]; -my $dir = $ARGV[2]; -my $outdir = $ARGV[3]; -opendir $dirhandle, $dir or die "Couldn't open dir $dir: $!"; -my @files = readdir $dirhandle; #list of files in $dir -closedir $dirhandle; -@files = sort(@files); - -#for each .html file in the target, do: -foreach $file (@files) { - if ($file =~ /([^\/]+).html$/) { - my $infile = "$dir/$file"; - my $outfile = "$outdir/$1.php"; - - print("$file -> $1.php\n"); - - open $filehandle, "<", $infile or die "Couldn't read file: $!"; - open $outfile, ">", $outfile or die "Couldn't write file: $!"; - - while ($line = <$filehandle>) { - $line =~ s/\.html/\.php/g; - $line =~ s/\<\/?span[^\>]*?\>//g; - $line =~ /