#!/usr/bin/perl #+JMJ # gentncmap - Generate totallynuclear.club site map # 2014 David Meyer open INF, "/bin/find /home -name '*.html' -o -name '*.txt' 2>/dev/null|grep '/public_html/'|"; open OUTF, ">/home/papa/public_html/tncmap.html"; print OUTF < tncmap

tncmap

totallynuclear.club site map

projects tildeverse css about contact

EOT $prevuser = $prevdir = ""; while () { print OUTF ""; chop $_; @comp = split '/', substr $_, 1; $user = $comp[1]; if ($#comp > 3) {$dir = join '/', @comp[3..$#comp-1];} else {$dir = "";} $file = $comp[$#comp]; if ($user ne $prevuser) { print OUTF ""; $prevuser = $user; $prevdir = ""; } else { print OUTF ""; } if ($dir ne $prevdir) { print OUTF ""; $prevdir = $dir; } else { print OUTF ""; } print OUTF "\n"; } print OUTF <

Send comment (via e-mail)

EOT close INF; close OUTF;
~$user$dir$file