From ac8fc59f12e38969b36529adf47bbcd9f8387bc0 Mon Sep 17 00:00:00 2001 From: Slávek Banko Date: Mon, 15 Feb 2021 23:59:03 +0100 Subject: Cleaning - remove executable bit and unnecessary files. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Slávek Banko --- favicon.ico | Bin media/tde-logo.png | Bin reskin.pl | 50 ------------------------------------- rss.php | 0 secret_whispers_0f_a_n3w_p0w3r.png | Bin 128023 -> 0 bytes 5 files changed, 50 deletions(-) mode change 100755 => 100644 favicon.ico mode change 100755 => 100644 media/tde-logo.png delete mode 100644 reskin.pl mode change 100755 => 100644 rss.php delete mode 100644 secret_whispers_0f_a_n3w_p0w3r.png 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 =~ /

(.*?)<\/h1>/i; - $head = $1; - $line =~ s/style\=\"[^"]*\"//g; - $line =~ s/\
//gi; - $line =~ s/.*?\<table width="100%" class="header"\>/<?php\n include("$topdir\/tde-head-and-foot.php");\n doHeader("$head", "Documentation", "$nav", "$topdir\/");\n?>\n<STYLE>\n .question {font-weight:bold;}\n TD {padding-top:10px}\n<\/STYLE>\n\<table width="100%" class="header"\>/gi; - $line =~ s/<\/body><\/html>/\n<?php\n doFooter();\n?>\n/gi; - $line =~ s/[\x80-\xff]//g; - $line =~ s/h1[^\>]*?\>/h2\>/gi; - $line =~ s/\<\/div\>/\n\<\/div\>/gi; - $line =~ s/Chapter(\d+)\./Chapter $1. /gi; - print $outfile "$line\n"; - } - - close $filehandle; - close $outfile; - } - elsif ($file =~ /([^\/]+).png$/) { - print("copying image $file\n"); - copy("$dir/$file", "$outdir/$file"); - } -} diff --git a/rss.php b/rss.php old mode 100755 new mode 100644 diff --git a/secret_whispers_0f_a_n3w_p0w3r.png b/secret_whispers_0f_a_n3w_p0w3r.png deleted file mode 100644 index 0cd2f1c..0000000 Binary files a/secret_whispers_0f_a_n3w_p0w3r.png and /dev/null differ -- cgit v1.2.3