#!/usr/bin/perl -s

# Note: You may need to enable the "universe" software source in
#       software-properties-gtk for many of these to be found.

# Note: Verify that a 11.04 to 11.10 upgrade properly migrated /var/run
#	to /run and /var/lock to /run/lock, otherwise complete this
#	manually.  See http://ubuntuforums.org/showthread.php?t=1859432

# Note: ukinzler upgrade from 11.04 to 11.10 required
#		# rm /run/dbus/*; rm ~kinzler/.gnome2/keyrings/login.keyring
#	and 3 reboots to fix some apps like update-manager
#	giving errors about /var/run/dbus/system_bus_socket
#	see http://journalxtra.com/2011/10/upgrade-oneiric-ocelot/
#	but perhaps just this?:
#		# rm /run/dbus/*; /etc/init.d/dbus restart

# Note: To disable guest login in Ubuntu 12.04 gdm
#	    # echo allow-guest=false >> /etc/lightdm/lightdm.conf
#	To enable other logins (such as root) in Ubuntu 12.04 gdm
#	    # echo greeter-show-manual-login=true >> /etc/lightdm/lightdm.conf

$dflt = 'terminal';
$cfg  = <<'EOF';
SYSTEM
	openssh-server
	fail2ban
	postfix
	gcc
	make
	ntp
	logwatch
	chkrootkit
	gufw
TERMINAL
	csh		# custom install for quieter vshnu integration
	vim		# custom install for webhra E434 error suppression
	libterm-readline-gnu-perl
	rdist
	agrep
	antiword
	aptitude
	dwdiff
	gnumeric	# mainly for ssconvert(1) in vshnurc
	imagemagick	# mainly for identify(1) in vshnurc
	lynx
	pilot-link
	remind
	tidy
	txt2pdbdoc
	wipe
	xcb
	xterm
MAIL
	mailutils
	mutt
	tnef
	grepmail
PRINT
	psutils
	enscript
	mp
X11
	ctwm		# custom install for 64-bit JPEG bug
	xwit
	xsel
	dclock
	xosview
	epdfview	# better than evince for firefox viewer
	gnome-mplayer	# see also .cshrc /audio/ to get sound working
	xscreensaver xscreensaver-data-extra xscreensaver-gl-extra
	netpbm
	pixmap
	tkremind
	xfaces
	xgraph
	xkeycaps
	xfs xfstt
	xfonts-100dpi xfonts-75dpi
	t1-xfree86-nonfree ttf-xfree86-nonfree
SPECIAL
	gnucash
	gparted
	jpilot
	kompozer
	konqueror
	eyed3
	mpg321 vorbis-tools	# for mp32ogg alias
	soundkonverter libavcodec-extra-52
	mtpfs mtp-tools gmtp	# for newer Android USB access
	pencil
	tora-oracle	# https://launchpad.net/tora-oracle/natty-binary-amd64
	sshfs
EOF

# ckdeb - list typically personally desired Debian/Ubuntu add-on packages
# Steve Kinzler, kinzler@cs.indiana.edu, Jul 11
# http://www.cs.indiana.edu/~kinzler/home.html#homedir

@cats = map { s/^(.*?)\n//; $c = "\L$1"; $c{$c} = $_; $c }
	    split(/^(?=\S)/m, $cfg);

die <<EOF if $h;
usage: $0 [ category ... | all ]
categories: @cats
default: $dflt
EOF

foreach (grep('all' eq $_, @ARGV) ? @cats : @ARGV ? @ARGV : $dflt) {
	next unless $c{$c = lc $_};
	print uc $c, "\n", $c{$c};
	push(@debs, grep { s/#.*//; s/^\s*//; s/\s*$//; s/\s+/ /g; /./ }
			 split(/\n/, $c{$c}));
}
print '=' x 79, "\napt-get install @debs\n";