#!/usr/bin/perl
$rdir = "$ENV{'HOME'}/.hyplan";
$home = 'home';
$html = 'home.html';
$ENV{'KZB_PATH'} = 'styles/kinzb/';
$new = ""; # '';
$newd = 30;
grep($except{$_}++ && 0, qw( . .. .cshrc .htaccess .login tags ));
grep($strong{$_}++ && 0, qw(
align vshnu vshnucfg webrowse xtitle z go inbrowse));
grep($em{$_}++ && 0, qw(
atls ctime cutbuf dumpdates ftw getdate grepw nzmail pop push
rdistsumm renam rolllogs safe starthttpd termcolors urlencode
vigrep wh whichpkg width xdo));
@catorder = ('webadm' => 'Web Administration',
'web' => 'Web Usage',
'unixadm' => 'Unix Administration',
'unix' => 'Unix Usage',
'unixuni' => 'Unix Uniformity',
'unixcfg' => 'Unix Configuration',
'vi' => 'Vi/Vim',
'x11' => 'X11',
'macos' => 'MacOS',
'palm' => 'Palm',
'homedir' => 'Personal Home Directories Administration',
'hyplan' => 'Personal Home Page Administration',
'refer' => 'Reference',
'unknown' => 'Unclassified',
'other' => 'Other Authors');
%catlabel = @catorder;
@catorder = grep(++$n % 2, @catorder);
%catspec = ();
%catdflt = ('etc' => 'unixcfg',
'img' => 'x11');
@nokey = ('img');
# mkhome - generate and install an HTML index of home directory files
# Steve Kinzler, steve@kinzler.com, Sep 94/Mar 98
# http://kinzler.com/me/home.html#hyplan
$cwd = "$rdir/$home";
chdir $cwd || die "$0: cannot chdir $cwd ($!)\n";
open(HTML, "> $rdir/$html") || die "$0: cannot open $rdir/$html ($!)\n";
while () {
last if /__TAIL__/;
print(HTML (s/^#include\s+`(.*)`\s*$/$1/) ? `$_` : $_);
}
$newt = time - $newd * 24 * 60 * 60;
print HTML "\n" . <
These are some scripts, configuration files and man pages from my Unix/X Window System home environment. They were developed and collected to allow me to maintain an enhanced, consistent home environment across many varieties of Unix and many separate home directories. As such, they generally favor portability over efficiency and restrict themselves to ubiquitous Unix tools when possible, but take advantage of better tools when available. As a systems administrator in a heterogenous environment, I've found them to be useful.
Feel free to browse and borrow from these files as you wish. I'm afraid there's often little or no documentation or comments, so you may be on your own to figure out what some of them are good for. Most of my scripts (ie, except those in the "Other Authors" section) will only print a usage message if run with a -h flag. Most of the scripts will port "as is" to most versions of Unix and have any configuration options specified at the top of the script file.
Note: Please observe any copyrights in these files. If none is given for a particular file, an implicit copyright by the author may be presumed which permits copying, modification and redistribution and with any express or implied warranties disclaimed (ie, use at your own risk).
A screenshot of my typical desktop. [.gif, 317 KB, 1280x1024]
__TAIL__ #include `htmlbit sect`This document is generated daily with mkhome, and is a Kinzler.com offering.
#include `htmlbit tail | sed 's/"[^"]*">@"index.html">@'`