home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / unix / question / 9336 < prev    next >
Encoding:
Text File  |  1992-07-23  |  4.3 KB  |  170 lines
  1. Newsgroups: comp.unix.questions
  2. Path: sparky!uunet!cs.utexas.edu!convex!convex!tchrist
  3. From: Tom Christiansen <tchrist@convex.COM>
  4. Subject: Re: Fortunes
  5. Message-ID: <1992Jul23.143441.11923@news.eng.convex.com>
  6. Originator: tchrist@pixel.convex.com
  7. Sender: usenet@news.eng.convex.com (news access account)
  8. Nntp-Posting-Host: pixel.convex.com
  9. Reply-To: tchrist@convex.COM (Tom Christiansen)
  10. Organization: CONVEX Realtime Development, Colorado Springs, CO
  11. References: <1992Jul23.023102.11675@polari>
  12. Date: Thu, 23 Jul 1992 14:34:41 GMT
  13. X-Disclaimer: This message was written by a user at CONVEX Computer
  14.               Corp. The opinions expressed are those of the user and
  15.               not necessarily those of CONVEX.
  16. Lines: 152
  17.  
  18. From the keyboard of sparky@polari.online.com:
  19. :Don't know if this is the correct place to post this question, but...
  20. :
  21. :I know there is a way to create one's own "fortune" file for use in
  22. :mail and messages.  How is this done, and how can I make mush, for
  23. :example, use *my* fortune file instead of the default one?
  24.  
  25. This way:
  26.  
  27. --tom
  28.  
  29.  
  30. #!/usr/bin/perl
  31. #
  32. # sigrand -- supply random fortunes for .signature file
  33.  
  34. ################################################################
  35. # begin configuration section 
  36.  
  37. $MKNOD = "/etc/mknod";
  38.  
  39. &gethome;
  40.  
  41. # for rec/humor/funny instead of rec.humor.funny
  42. $NG_IS_DIR     = 1;     
  43.  
  44. $FULLNAME     = "$HOME/.fullname";
  45. $FIFO         = "$HOME/.signature";
  46. $ART         = "$HOME/.article";
  47. $NEWS         = "$HOME/News";
  48. $SIGS         = "$NEWS/SIGNATURES";
  49. $SEMA        = "$HOME/.sigrandpid";
  50.  
  51. # end configuration section -- HOME and FORTUNE get autoconf'd
  52. ################################################################
  53.  
  54. &setup;
  55.  
  56. &justme;
  57.  
  58. fork && exit;     # be a daemon 
  59.  
  60. open (SEMA, ">$SEMA") || die "can't write $SEMA: $!";
  61. print SEMA "$$\n";
  62. close SEMA || die "can't close $SEMA: $!";
  63.  
  64. MAIN: while (1) {
  65.     open (FIFO, "> $FIFO") || die "can't write $FIFO: $!";
  66.     &load_sigs;
  67.     $sig = $sig[rand @sig];
  68.     print FIFO $name, "\n" x (3 - ($sig =~ tr/\n//)), $sig;
  69.     close FIFO;
  70.     sleep 2; # to avoid dup sigs
  71. }
  72.  
  73. ################################################################
  74.  
  75. sub setup {
  76.     if (-e $FULLNAME) {
  77.     $name = `cat $FULLNAME`;
  78.     die "$FULLNAME should contain only 1 line, aborting" 
  79.         if $name =~ tr/\n// > 1;
  80.     } else {
  81.     chop($host = `hostname`);
  82.     ($host) = gethostbyname($host) unless $host =~ /\./;
  83.     $user = $ENV{USER} || $ENV{LOGNAME} || $pw[0] || die "intruder alert";
  84.     ($name = $pw[6]) =~ s/,.*//;
  85.     $name =~ s/&/$user/g; # can't believe some folks still do this
  86.     $name = "\t$name\t$user\@$host\n";
  87.     } 
  88.  
  89.  
  90.     &check_fortunes if !-e $SIGS;
  91.  
  92.     unless (-p $FIFO) {
  93.     if (!-e _) {
  94.         system("$MKNOD $FIFO p") && die "can't mknod $FIFO";
  95.         warn "created $FIFO as a named pipe\n";
  96.     } else {
  97.         die "$0: won't overwrite file .signature\n";
  98.     } 
  99.     }
  100.  
  101.  
  102.     srand(time|$$);
  103. }
  104.  
  105. sub load_sigs {
  106.     local($sigfile) = &ng;
  107.     if (!-e $sigfile) {
  108.     @sig = (&fortune);
  109.     return;
  110.     } 
  111.     open (SIGS,$sigfile) || die "can't open $sigfile";
  112.     local($/) = "%%\n";
  113.     undef @sig;
  114.     while (<SIGS>) {
  115.     s!$/$!!o;
  116.     push(@sig,$_);
  117.     } 
  118.     close SIGS;
  119. } 
  120.  
  121. sub ng {
  122.      open ART || return $SIGS;   
  123.      local($/) = '';
  124.      $_ = <ART>;
  125.      ($ng) = /Newsgroups:\s*([^,\s]*)/;
  126.      $ng =~ s!\.!/!g if $NG_IS_DIR;     # if rn -/,  or SAVEDIR=%p/%c
  127.      $ng = "$NEWS/$ng/SIGNATURES";
  128.      -f $ng ? $ng : $SIGS;
  129. } 
  130.  
  131. sub fortune {
  132.    local($_, $tries);
  133.    do { 
  134.        $_ = `$FORTUNE -s`; 
  135.    } until tr/\n// < 4 || $tries++ > 20;
  136.    local($*) = 1;
  137.    s/^/ /g;
  138.    $_ || " SIGRAND: deliver random signals to all processes.\n";
  139. } 
  140.  
  141. sub check_fortunes {
  142.     return if $FORTUNE;
  143.     foreach $dir (split(/:/, $ENV{PATH}), '/usr/games') {
  144.     return if -x ($FORTUNE = "$dir/fortune");
  145.     } 
  146.     die "Need either $SIGS or a fortune program, bailing out";
  147. } 
  148.  
  149. sub gethome {
  150.     @pw = getpwuid($<);
  151.     $HOME = $ENV{HOME} || $ENV{LOGDIR} || $pw[7]
  152.                || die "no home directory for user $<";
  153. }
  154.  
  155. # "There can be only one."  --the Highlander
  156. sub justme {
  157.     if (open SEMA) {
  158.     chop($pid = <SEMA>);
  159.     kill(0, $pid) && die "$0 already running (pid $pid)\n";
  160.     #warn "COOL: no $pid: $!";
  161.     close SEMA;
  162.     } 
  163. } 
  164. __END__
  165. -- 
  166.     Tom Christiansen      tchrist@convex.com      convex!tchrist
  167.  
  168. One word sums up probably the responsibility of any vice president,
  169. and that one word is 'to be prepared'.  --Vice President Dan Quayle
  170.