#!/usr/bin/perl
#
# Ricky's sig-creating script
#
# Last updated by rb on Thu Dec 11 07:12:27 EST 2003
#

my $dir = "~/.sigs";
my $tempfile = "$dir/sig-temp";

my $fortune = "/usr/games/fortune";
my $quotefile = "~/quotes/quotes";

sub do_sig {
   my $name = shift;
   my $base = shift;
   my $topics = shift;

   local $/;
   undef $/;

   open(BASE, "<$base") || warn "Can't open $base: $!\n";
   my $text = <BASE>;

   # get quote
   $text .= `$fortune '$topics' < $quotefile`;

   # add border to quote
   $text =~ s/^/: /mg;

   open(SIG, ">/home/rb/.sigs/$name") || warn "Can't open $name: $!\n";
   print SIG $text;
   close SIG;

   return 1;
}

&do_sig("default", "/home/rb/.sigs/sig-base", "philosophy");
&do_sig("healing", "/home/rb/.sigs/sig-base", "healing");
&do_sig("computers", "/home/rb/.sigs/sig-base", "computers");
&do_sig("kink", "/home/rb/.sigs/sig-base", "kink");
&do_sig("illness", "/home/rb/.sigs/illness-sig-base", "(illness|healing)");
&do_sig("writing", "/home/rb/.sigs/writing-base", "writing");
#&do_sig("gothic", "/home/rb/.sigs/sig-base", "gothic");
#&do_sig("simegen", "/home/rb/.sigs/simegen-sig-base", "positive");
&do_sig("family", "/home/rb/.sigs/empty-base", "family");
#&do_sig("fear", "/home/rb/.sigs/sig-base", "fear");

#
# Ende.
#