From: Steinar H. Gunderson Date: Mon, 24 Nov 2014 20:24:38 +0000 (+0100) Subject: Remove the obsolete text.pl. X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=d4d1eb4077926109721bbbd775ae0c23b4746207;hp=79b90a573602869d5d3fbd384605b9d10cd1eb23 Remove the obsolete text.pl. --- diff --git a/www/text.pl b/www/text.pl deleted file mode 100755 index 9319e56..0000000 --- a/www/text.pl +++ /dev/null @@ -1,16 +0,0 @@ -#! /usr/bin/perl -use CGI; -print CGI->header(-type=>'text/plain', -refresh=>'5; http://analysis.sesse.net/text.pl', -expires=>'+5s'); -# print CGI->header(-type=>'text/plain'); -open(my $fh, "tail -100 /home/remoteglot/log.txt |"); -my @lines = (); -while (<$fh>) { - s/.*H.*2J.*Analysis/Analysis/; - if (/^Analysis/) { @lines = (); } - push @lines, $_; -} -print join('', @lines); -#system("tail -100 /home/remoteglot/log.txt | grep -A 8 Analysis | sed 's/^.*Analysis/Analysis/'"); -if (-r "/srv/analysis.sesse.net/complete_analysis.txt") { -# system("cat /srv/analysis.sesse.net/complete_analysis.txt"); -}