Skip to content

Instantly share code, notes, and snippets.

@infowars-link

infowars-link/.description

Forked from Zverik/recursive_index.pl
Last active June 16, 2017 23:15
Show Gist options
  • Save infowars-link/4275c83fa529df6b9b49e3d763c0bfd2 to your computer and use it in GitHub Desktop.
Save infowars-link/4275c83fa529df6b9b49e3d763c0bfd2 to your computer and use it in GitHub Desktop.
Download ZIP
Create index.html with a list of all files
Raw
.description
recursive_index.pl : Sample Description
Raw
.gitignore
*
!.gitignore
!recursive_index.pl
!README
index.htm*
Raw
recursive_index.pl
#!/usr/bin/env perl
# Create index.html with a list of all files.
# Written by Ilya Zverev, licensed WTFPL.
use strict;
use POSIX qw(strftime);
use HTML::Template;
use File::Basename;
use Getopt::Long;
use Cwd;
my $ignore_files = '\.(pl)$';
my $ignore_dirs = 'NetBoot';
my $process_subfolders;
my $hide_readme; # files starting with '.' are always skipped
my $start_from = '.';
my $verbose;
my $help;
my $not_root;
my $date_fmt = '%d-%m-%Y';
my $index_file = 'index.php';
my $desc_file = '.description';
my $readme_file = 'README';
my $tmpl_file;
#undef $/;
#open (INDEX_HTML_FILE,"index.html");
#my $index_html_file = <INDEX_HTML_FILE>;
#close(INDEX_HTML_FILE);
#print "$index_html_file";
GetOptions('h|help' => \$help,
'n|hide' => \$hide_readme,
'r|recursive' => \$process_subfolders,
'd|root=s' => \$start_from,
'i|index=s' => \$index_file,
't|template=s' => \$tmpl_file,
'p|parent' => \$not_root,
'v|verbose' => \$verbose,
) || usage();
if( $help ) {
usage();
}
my $cwd = cwd();
$cwd =~ s#^(.+)[/\\]##;
my $template = <<TMPL;
<html><head>
<title><tmpl_var path></title>
<link rel='stylesheet' id='gsc_style_search_bar-css' href='https://www.google.com/cse/style/look/minimalist.css?ver=4.7.4' type='text/css' media='all' />
<style>body {font-family: Arial, sans-serif;} .mg {padding-left: 16px;} .r {text-align: right;} .sp {padding-bottom: 8px;} .f {margin-top: 2em; font-size: 9pt; font-style: italic;}</style>
</head>
<body bgcolor="#ffffff" color="gray">
<div align="center">
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>
<!-- recursive.pl -->
<ins class="adsbygoogle"
style="display:block"
data-ad-client="ca-pub-################"
data-ad-slot="##########"
data-ad-format="auto"></ins>
<script>
//(adsbygoogle = window.adsbygoogle || []).push({});
</script>
</div>
<iframe src="index.html" frameborder="0" display="block" width="100%" height="2400px"margin-left="200px" margin-top="0px" background-color="#ffffff" ></iframe>
<div class="container">
<!-- Navbar ================================================== -->
<div class="bs-docs-section clearfix">
<div class="row">
<div class="col-lg-12">
<div class="page-header">
<h1 id="navbar"><tmpl_var path></h1>
</div>
<tmpl_if readme><div class="readme"><pre><tmpl_var readme></pre></div></tmpl_if>
<table class="bs-docs-section" cellspacing="2" cellpadding="0">
<tmpl_unless root>
<div align="center">
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>
<!-- recursive.pl -->
<ins class="adsbygoogle"
style="display:block"
data-ad-client="ca-pub-################"
data-ad-slot="##########"
data-ad-format="auto"></ins>
<script>
//(adsbygoogle = window.adsbygoogle || []).push({});
</script>
</div>
<tr><td colspan="4" class="sp"><b><a href="../$index_file">Parent directory</a></b></td></tr>
</tmpl_unless>
<tmpl_loop dirs>
<tr>
<td colspan="3">
<b>
<a href="<tmpl_var name escape=url>/$index_file">
<tmpl_var name>
</a>
</b>
</td>
<td class="mg"><tmpl_var desc>
</td>
</tr>
</tmpl_loop>
<div align="center">
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>
<!-- recursive.pl -->
<ins class="adsbygoogle"
style="display:block"
data-ad-client="ca-pub-################"
data-ad-slot="##########"
data-ad-format="auto"></ins>
<script>
//(adsbygoogle = window.adsbygoogle || []).push({});
</script>
</div>
<tr><td colspan="3" class="sp"></td></tr>
<tmpl_loop files>
<tr><td><a href="<tmpl_var name escape=url>">
<tmpl_var name>
</a></td><td class="mg r"><tmpl_var size></td><td class="mg"><tmpl_var date></td><td class="mg">
<tmpl_var desc>
</td></tr>
</tmpl_loop>
</table>
<tmpl_if nothing>
<p><i>Nothing here.</i></p>
</tmpl_if>
<script src="https://code.jquery.com/jquery-1.10.2.min.js"></script>
</body>
</html>
TMPL
my $tmpl = $tmpl_file ? HTML::Template->new(filename => $tmpl_file, die_on_bad_params => 0)
: HTML::Template->new(scalarref => \$template, die_on_bad_params => 0);
process_dir($start_from, $not_root ? 0 : 1);
sub process_dir {
my ($dir, $top) = @_;
my $dh;
if( !opendir($dh, $dir) ) {
warn "Failed to open directory $dir: $!";
return;
}
my @contents = sort grep { !/^\./ } readdir $dh;
closedir $dh;
print STDERR "Processing $dir\n" if $verbose;
my $presdir = $dir;
$presdir =~ s#^\.(/.+)?#$cwd$1#;
$tmpl->param(path => $presdir);
$tmpl->param(root => $top);
$tmpl->param(date => strftime($date_fmt, localtime));
if( open README, "<$dir/$readme_file" ) {
$tmpl->param(readme => do { local $/; <README> });
close README;
}
my %desc;
if( open DESC, "<$dir/$desc_file" ) {
while(<DESC>) {
chomp;
$desc{$1} = $2 if /^([^:]+?)\s*:\s*(.+?)\s*$/;
}
close DESC;
}
my @dirs;
my @files;
for (grep { -d "$dir/$_" } @contents) {
next if $ignore_dirs && /$ignore_dirs/o;
push @dirs, {name => $_, desc => $desc{$_}};
}
for (grep { -f "$dir/$_" } @contents) {
next if $_ eq $index_file;
next if $hide_readme && ($_ eq $desc_file || $_ eq $readme_file);
next if $ignore_files && /$ignore_files/o;
my $size = -s "$dir/$_";
if( $size >= 1024*1024*1024*20 ) { $size = (int($size/1024/1024/1024 + 0.5)).' G'; }
elsif( $size >= 1024*1024*10 ) { $size = (int($size/1024/1024 + 0.5)).' M'; }
elsif( $size >= 1024*10 ) { $size = (int($size/1024 + 0.5)).' K'; }
else { $size .= ''; } # ' B'
push @files, {
name => $_,
size => $size,
date => strftime($date_fmt, localtime((stat "$dir/$_")[9])),
desc => $desc{$_}
};
}
$tmpl->param(nothing => 1) if scalar(@dirs) + scalar(@files) == 0;
$tmpl->param(dirs => \@dirs);
$tmpl->param(files => \@files);
if( !open(IDX, ">$dir/$index_file") ) {
warn "Cannot create $dir/$index_file: $!";
return;
}
print IDX $tmpl->output();
close IDX;
$tmpl->clear_params();
if( $process_subfolders ) {
process_dir("$dir/$_", 0) for grep {-d "$dir/$_"} @contents;
}
}
sub usage {
my $prog = basename($0);
print STDERR <<EOF;
This script generates directory index using HTML template.
usage: $prog [-h] [-d root] [-r] [-p] [-t tmpl] [-i index] [-n] [-v]
-h : print this help message and exit.
-d root : root directory to parse.
-p : print link to parent in root directory.
-r : process subfolders recursively.
-t tmpl : template file (default is provided).
-i index : name of the index file (default=$index_file).
-n : hide README files.
-v : show debug messages.
README files are included in the page (HTML tags are not escaped).
The format for .description files is "file: description".
All files with names beginning with a dot are skipped.
Templating system is HTML::Template, see example in the source.
EOF
exit;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment