diff options
| author | Rodrigo Arias Mallo <rodarima@gmail.com> | 2025-03-08 15:01:07 +0100 |
|---|---|---|
| committer | Rodrigo Arias Mallo <rodarima@gmail.com> | 2025-03-08 15:01:07 +0100 |
| commit | 4524ddadf314c1ed975e4c6e815b00626581080c (patch) | |
| tree | cbae182be865f12d19dbc6a7edc673cd4370ce83 /infocat | |
| parent | 4350eec6a845224f1dbf2889211604090cabb9cb (diff) | |
Remove unused files
Diffstat (limited to 'infocat')
| -rwxr-xr-x | infocat | 180 |
1 files changed, 0 insertions, 180 deletions
diff --git a/infocat b/infocat deleted file mode 100755 index fa19345..0000000 --- a/infocat +++ /dev/null @@ -1,180 +0,0 @@ -#!/usr/bin/perl -#--------------------------------------------------------- -# infocat -#--------------------------------------------------------- -# -# PURPOSE -# This perl script prints a catalog of the info files -# available via info2html at this site. -# -# AUTHORS -# 2015.12.25 +A.M.Danischewski <adam_ lastname@not gamil.com> -# 2006.08.16 Sean M. Burke <sburke@cpan.org> -# -# ORIGINAL AUTHOR -# 1997.05.16 Jon Howell <jonh@cs.dartmouth.edu> -# -# HISTORY -# 1997.05.16 V 1.0 -# 1998.05.05 V 1.2 became part of info2html distribution -# Jon Howell <jonh@cs.dartmouth.edu> -# 2006-08-16 V 2.0 The sorting routines are more complex now, -# in an effort to produce more concise output. -# Also: CSS added, HTML modernized a bit. -# Sean M. Burke <sburke@cpan.org> -# 2015-12-25 V 2.1 Hacked into a quasi PHP-CGI, removed -# the manual configuration of the conf file, -# presumes the conf file is in the same dir, -# removed the CGI header and warnings. -# +A.M.Danischewski <adam_ lastname@not gamil.com> -# -#------------------------------------------------------- - -$VERSION = "2.1"; -use File::Basename; -$CURRENT_PATH=dirname(__FILE__); - ## If you really want your config file in a custom location, - ## (e.g. ~/.config) then change this next variable accordingly. -$INFO2HTMLCONF = $CURRENT_PATH."/info2html.conf"; -require 5; -require($INFO2HTMLCONF); #-- configuration settings -use CGI; - -#-- patterns -$NODEBORDER = '\037\014?'; #-- delimiter of an info node -$REDIRSEP = '\177'; #-- delimiter in tag tables -$WS = '[ \t]+'; #-- white space + -$WSS = '[ \t]*'; #-- white space * -$TE = '[\t\,\.\n]'; #-- end of a tag -$TAG = '[^\t\,\.\n]+'; #-- pattern for a tag -$FTAG = '[^\)]+'; #-- pattern for a file name in - #-- a cross reference - -#--------------------------------------------------------- -# Escape -#--------------------------------------------------------- -# This procedures escapes some special characeters. The -# escape sequence follows the WWW guide for escaped -# characters in URLs -#--------------------------------------------------------- -sub Escape{ - local($Tag) = @_; - #-- escaping is not needed anymore KG/28.6.94 - # $Tag =~ s/ /%20/g; # space - # $Tag =~ s/\+/%AB/g; # + - #-- oh yes it is -- jonh 5/16/97 - #$Tag; - return CGI::escape($Tag); -} - -#---------------------------------------------------------- -# DeEscape -#---------------------------------------------------------- -sub DeEscape{ - local($Tag) = @_; - #-- deescaping is not needed anymore. KG/28.6.94 - #$Tag =~ s/%AB/+/g; - #$Tag =~ s/%20/ /g; - #-- yes it is jonh 5/16/97 - #$Tag; - return CGI::unescape($Tag); -} - -# -#------------------- MAIN ----------------------------- -# - ### No more need for CGI headers, we are using PHP - ### V 2.1 Change +A.M.Danischewski 20151225 -#print CGI::header('-type'=>'text/html', - #'-expires'=>60*60*24); - ## expires each day, in case I add new .info files - ## to the @INFODIR path. - # -- jonh 1998.05.04 - -print "<html><title>Info2HTML Catalog</title>\n"; -print "$HTML_HEAD_STUFF</head><body class='infocat'>\n"; - -my( %Desc2BaseExt, %BaseFreq, %BaseExt2Base ); - -foreach $dir (@INFODIR) { - opendir(DIR, $dir) or next; - while ($baseext = readdir(DIR)) { - next if $infofile eq '.' or $infofile eq '..'; - my $base; - if ($baseext =~ m/^(.+)\.info\.bz2$/ ) { - $base = $1; - next unless open INFOFILE, "bzcat $dir/$baseext|"; - $collect = 0; - } - elsif ($baseext =~ m/^(.+)\.info\.gz$/ ) { - $base = $1; - next unless open INFOFILE, "gzip -dc $dir/$baseext|"; - $collect = 0; - } - elsif ($baseext =~ m/^(.+)\.info$/) { - $base = $1; - next unless open INFOFILE, $dir."/".$baseext; - $collect = 0; - } - else { - next; - } - $filedesc = ""; - $BaseFreq{$base}++; - $BaseExt2Base{$baseext} = $base; - while (<INFOFILE>) { - last if (m/END-INFO-DIR-ENTRY/); - # featurebug: we read only the first dirblock - - s/^\* //; - if ($collect and not ($_ =~ m/^[\s\n]*$/)) { - $filedesc .= "<br>" if ($collect < 4); - $filedesc .= $_; - --$collect; - $filedesc .= " <b class='elided'>...</b>\n" unless $collect; - } - $collect=4 if (m/START-INFO-DIR-ENTRY/); - # 4 = max number of entries per file that we show - } - close INFOFILE; - $Desc2BaseExt{ $filedesc || $baseext } = $baseext; - } - closedir(DIR); -} - -print "<h2>GNU info on the following topics is available here:</h2>\n"; -print "<ul>\n"; - -# Now output the list, cleverly sorting and linking... -foreach my $desc (sort { lc($a) cmp lc($b) } keys %Desc2BaseExt) { - my $baseext = $Desc2BaseExt{$desc}; - my $base = $BaseExt2Base{$baseext}; - my $thisdesc = $desc; - my $fn = $baseext; - - if( $BaseFreq{$base} == 1 ) { # the common case: we get to be terse - $fn = $base; - - if( $thisdesc =~ m{^([^ :]+):\s+\(([^ :\(\)]+)\)\.?}s - # Like: "crunkapalooza: (crunkapalooza). Crunkulate things!" - and lc($2) eq lc($base) and lc($2) eq lc($1) - ) { - # a common subcase: the first line is pointlessly verbose, so trim: - $thisdesc =~ s{^([^ :]+):\s+\(([^ :\(\)]+)\)\.?}{$1: }s; - } else { - $thisdesc = $base if $thisdesc eq $baseext; - } - } - - print "<li class='infocatline'><a href=\"info2html?($fn)Top\">", - $thisdesc, "</a>\n" ; -} - -print "</ul>\n", <<"EOF"; -\n<div class='generator'> -<hr> -<em>automatically generated by </em> -<a href="$DOC_URL">info2html v$VERSION</a> -</div></body></html> -EOF - |