#!/usr/athena/bin/perl

if (open(F,"$ENV{HOME}/.mailcap")) {
    if (grep(/^application\/x-bulb; bulbit %s$/, (<F>))) {
	print STDERR ".mailcap already properly configured\n";
	exit (0);
    };
}

if (-w "$ENV{HOME}/.mailcap") {
	print STDERR "adding line to '$ENV{HOME}/.mailcap':\napplication/x-bulb; bulbit %s\n";
	`echo 'application/x-bulb; bulbit %s' >> $ENV{HOME}/.mailcap`;
} elsif (-e "$ENV{HOME}/.mailcap") {
	print STDERR "Error, exists but can't write\n";
	print STDERR "please add the following line\n    to the file $ENV{HOME}/.mailcap\n";
	print STDERR "application/x-bulb; bulbit %s\n";

} else {
	print STDERR "Creating '$ENV{HOME}/.mailcap', containing\napplication/x-bulb; bulbit %s\n";
	`echo 'application/x-bulb; bulbit %s' > $ENV{HOME}/.mailcap`;
}