home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1616 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  6.7 KB
  1. From: meo@rsiatl.UUCP (Miles ONeal)
  2. Newsgroups: alt.sources,talk.bizarre
  3. Subject: biff's own mailer
  4. Message-ID: <3312@rsiatl.UUCP>
  5. Date: 24 Jul 90 03:53:10 GMT
  6.  
  7.  
  8. There is a long story as to how this code came into my hands.
  9. The DIA has suggested I not relate that story just yet. Suffice
  10. it to say that this little coup had somewhat to do with the
  11. Soviet parliament giving Gorby a free hand, and with the lowered
  12. volume of inanity from portal and psu lately. Isn't that really
  13. enough?
  14.  
  15. #!/bin/sh
  16. #
  17. #THIS IS BIFFMAIL _ MY FAVORITE MAILER!!!
  18. #
  19. #  SINCE I WROITE IT!
  20. #
  21. #I COULDNT FIND SHAR SO I DID THIS BY HAND.
  22. #
  23. cat > BM.c << THISISNEAT!
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30. /* BIFF WROTE THIS BAR (HAHA! REALLY ITS CODE!!!) COPYRIGT !(*( BY BIFF */
  31. /* YOU CAN DISTURBUTE THIS CODE ALL YOU WANT IF YOU KEEP THIS COPYWRIGHT */
  32. /* IN IT AND DON"T MAKE ANY MONEY OFF IT!!! UNLESS I GIVE PERMISSION!!! */
  33.  
  34.  
  35.  
  36. #ifdef COMMENTS
  37.  
  38. BIFFMAIL (I STARTED CALLING IT BM BUT THEN REMEMBEREDS WHAT THAT MEANS
  39. (YUK!) BUT ITS ALLOVER THE PLASE AS BM SI ITS TOO LATE NOW HAHA!!!
  40.  
  41. ANYWAY IF YOU LIKE THIS, SEND ME MAILL. IF NOT, IM SORRY JUST DONT USE
  42. IT! DONT BE LIKE THOSE NASTY PEEOPLE ON THE NET THATS FLAME ALL THE TIME,,
  43. YOU KNOEW, DUDES AND DUDETTS?
  44.  
  45. ANYWAY, ---I--- LIKE IT, AND I LIKE ME, A>ND I LIKE ***YOU***
  46.  
  47. SPELING CHEKCER COMES LATER
  48.  
  49. #endif COMEMNTS
  50.  
  51.  
  52. #include <stdio.h>
  53. #include <ctype.h>
  54. #include "biff.h"
  55.  
  56. #define ONE        1
  57. main()
  58. {
  59.     register signed long i = 0;
  60.     register int error;
  61.     char s [1019];
  62. /******** THIS DIDNT WORK TRY AGAIN!!!
  63.     while (i !< 0 && i !> 0) {
  64.                                       ***********/
  65.     while (i IS 0) {
  66.         printf ("WELCOME TO BIFFMAIL!!!\n");
  67.         error = (/* register POR CC DIDN:T LIKE THIS!!!*/ int) gets (s);
  68.         if (error IS 0) {
  69.                 /****** NOT VERY STRUCTURED, DUDE!
  70.                 exit (error);
  71.                                                                   ***/
  72.                 i = 1; /* MUCH BETER!!! ***/
  73.         }
  74.         else  /*** <<< WHY DO I NED THIS??? &*/
  75.         if (strncmp (s, "S", ONE) IS 0) { /**** SNED A MASSAGE! **/
  76.             snedit (); }
  77.         else if (strncmp (s, "R", ONE) IS 0) { /** READ A MASSAGES! **/
  78.              getone (); }
  79.         else if (strncmp (s, "H", ONE) IS 0) { /** HELP A MASSAGES! **/
  80.              help (); }
  81.         else if (strncmp (s, "?", ONE) IS 0) { /** HELP A MASSAGES! **/
  82.              help (); }
  83.         else
  84.             {
  85.              uhoh (); }    /* MISS SCAHLET? WHATEVAH SHAL I DU? */
  86.                     /* HAHA!!! */
  87.     }
  88. }
  89.  
  90. snedit ()
  91. {/* THIS MAY STILL HALVE SOME PROMNBLEMSB!?! ***
  92. */
  93. FILE *SMP, *SP;
  94.     register signed long i = 0;
  95.     register int error;
  96.     register int j;
  97.     char s [1019];
  98.     printf ("ENTER THE NAME THIS IS TO, OK???!");
  99.     error = gets (s);
  100.     SMP = popen ("mail -f BIFFSNOT.HER > /dev/null", "w");
  101.     fprintf (SMP, "m ");
  102.     fprintf (SMP, "%s\n", s);
  103.     while (i IS 0) {
  104.         error = (/* register POR CC DIDN:T LIKE THIS!!!*/ int) gets (s);
  105.         if (error IS 0) {
  106.                 /****** NOT VERY STRUCTURED, DUDE!
  107.                 exit (error);
  108.                                                                   ***/
  109.                 i = 1; /* MUCH BETER!!! ***/
  110.         }
  111.         else  /*** <<< WHY DO I NED THIS??? &*/
  112.         if (strncmp (s, ".", ONE) IS 0) { /**** STOP A MASSAGE! **/
  113.             i = error = 1 ; }
  114.         else
  115.             { /*** DONT DO THIS HERE !!! ;^) getone (); *****/
  116.             for (j = 0; s[j] ISNT 0; j = j+1) {
  117.                 if (strncmp (&(s[j]), " ", ONE) IS 0)
  118.                     s[j]=s[j]; else
  119.                 {
  120.                 switch (s[j]){
  121.                     case ':': /* MAIL AND STUFF! **/
  122.                     case '!':
  123.                     case '.':
  124.                     case ',':
  125.                     case '@':
  126.                     case ';':
  127.                     case '^':
  128.                     case ')':
  129.                     case '(':
  130.                     case '%':
  131.                     case '?':
  132.                     case '-':
  133.                         s[j]=s[j];
  134.                         break;
  135.                     case '0' : case '1' : case '2' :
  136.                     case '3' : case '4' : case '5' :
  137.                     case '6' : case '7' : case '8' :
  138.                     case '9' : /* s[j]-=16; UNDO CAPS LOK*/
  139.                         break;
  140.                     default:
  141.                     if (isupper(s[j])) s[j]=s[j] ; else
  142.                           if (islower(s[j])) /*NOTE*/
  143.                             s[j]=toupper(s[j]);
  144.                         else s[j]-=16;
  145.                         break;}
  146. /*   A NEAT THING CALLED LINT SAYS THIS NEXT IS A DEGENERATE UNSIGNED
  147.      COMPARISON!!! NEAT, HUH?!!! */
  148.                 if (s[j] <0) s[j]+= 128 - 32;
  149.                 if (s[j] <16)s[j]+= 16;; }
  150.                 }
  151.             fprintf (SMP, "%s\n", s);
  152.         }
  153.     }
  154.     if ((SP = fopen (".signature", "r")) ISNT NULL) {
  155.         fclose (SP);
  156.         fprintf (SMP, "~r .signature\n");
  157.         fprintf (SMP, "~r .signature\n"); /* JUST TO BE SURE!!! */
  158.     }
  159.     else 
  160.     if ((SP = fopen (".BIFF", "r")) ISNT NULL) { /* AM I ME? */
  161.         fclose (SP);
  162.         fprintf (SMP, "~r .BIFF\n");
  163.         fprintf (SMP, "~r .BIFF\n"); /* JUST TO BE SURE!!! */
  164.     }
  165.     else {
  166.         fprintf (SMP, "SORRY, NO SIGNATURE AVAILABLLE!!!\n"); }
  167. #ifdef BIFFLESS        /* PRETTY SCARRY, HUH? !!! */
  168.     fprintf (SMP, ".\n");
  169. #endif BIFFLESS
  170. fclose (SMP);
  171. }
  172.  
  173. help ()
  174. {
  175. printf (" TRY S TO SEND A MESSGE\n");
  176. printf (" OR R TO READ THEM!!!\n");
  177. }
  178.  
  179. uhoh ()
  180. {
  181. printf (" SORRY! THIS DOESN\"T WORK REEL GIOOD YET!\n");
  182. printf (" TRY AGAIN ANOTHER TIME!!!\n");
  183. }
  184.  
  185. getone ()
  186. {
  187. printf (" SORRY! THIS DOESN\"T WORK REEL GIOOD YET!\n");
  188. printf (" TRY AGAIN ANOTHER TIME!!!\n");
  189. }
  190.  
  191.  
  192. #ifdef COMMENTS
  193.  
  194. /* PROGRMANER NOTES!!! **/
  195.  
  196. /*NOTE*/
  197.  
  198. ONE OF THE C COMPILERS I USE LET THIS STATEMENYT GO BY WITHOUT ANY
  199. PPARENSTHESISES _ I GUESS THE PERSON WHO DID THEIR MACRO LIBARRY WAS
  200. PRETTY COOL, HUH? WAY RAD!
  201.  
  202. #endif COMMENTS
  203. THISISNEAT!
  204. cat > BM.n << THISISNEAT!
  205. .TH "BIFFMAIL" 1 "SEPT 29, 1988" "REV 0.00B"
  206. .SH NAME
  207. BM \- MAIL PROGRAM FOR DUMB USERS AND TERMINALS
  208. .SH SYNOPSIS
  209. .IP (VMS)
  210. RUN BM/VERBOSE=ALWAYS (DONT WORK YET)
  211. .IP (UNIX)
  212. BM
  213. .IP (VM)
  214. EXECUTE BIFFMAIL,RECSIZE=1000,ISP=18xaf0,PSU=1,PORTAL=1
  215. ONLY WORKS IF RUNNING AIX AND THEN DONT NEED THIS STUFF
  216. .IP (MAC)
  217. <CLICK> <CLICK> AU/X ONLY!!!
  218. .SH DESCRIPTION
  219. BIFFMAIL WILL TRANSLATE EVERYTHING TO UPPER CASE
  220. IF THE TERMINAL ISN'T SMART ENOUGH TO DO THAT
  221. ALREADY!
  222. .IP
  223. .I BM
  224. WILL AUTOMAGICAL;Y APPEND YOUR SIGNATUER
  225. FILE AT LEAST ONCET AT THE END OF YO*R
  226. POSTING,
  227. FIX PUNCTUATION AND
  228. FIX ANY SPELING MISERROR YOU MITE MAKE.
  229. .IP
  230. .SH GLOBAL VARIABLES
  231. .IP
  232. DON"T WORRY WE ALREADY TAKED CARE OF
  233. ALL THIS FOUR YOU!!!
  234. .SH REQUIREMENTS
  235. THE
  236. .I BM
  237. MAILER MAY BE RUN BY ANYONE WITH A GROUP ID
  238. GREATER THAN ) AND AN IQ LESS THAN @%.
  239. .IP
  240. BM WAS ORIGINALLY ONLY AVAILABLE
  241. TO USERS ON THE FOLLOWINJ
  242. SYTEMS:
  243. PORTAL,
  244. PSU,
  245. PSUVM,
  246. NUNKI!
  247. NOW ANYONE CAN BE COOL WITH THEIR MAIL!
  248. .SH AUTHOR
  249. I WROTE THIS!
  250. MY NAME IS BIFF!
  251. AREWN{T COMPUETRESE NEET!
  252. .SH BUGS
  253. I DONT PUT BUGS IN MY CODE!!!]
  254. GROSS!!!   :^)  :^)
  255. THISISNEAT!
  256. cat > README << THISISNEAT!
  257. BM, IS SHORT FOR BIFFMAIL.
  258.  
  259. JUST MAKE IT AND TYPE BM.
  260.  
  261. IT WILL LET YOU USE A S TO SNED A MESSAGE
  262. AND R TO READ MAIL (EXCEPT THIS
  263. DOESN"T IMPLEMENTED YET!!! SORRRY!!!
  264.  
  265. ;^)
  266.  
  267. HELP IS THERE, AND MORS IS ON THE WAY!!!
  268.  
  269. OH YEA, THE MESSAGE ENDS JUST LKIKE REAL
  270. MALE WITH A . OR A CONTROL_D. OK???
  271.  
  272. -BIFF@PORTAL.CUP.COM
  273. -BIFF@PSUVM.PSU.EDU
  274. -BIFF@BIFF.NET
  275. THISISNEAT!
  276. cat > biff.h << THISISNEAT!
  277. #define IS ==
  278. #define ISNT !=
  279. THISISNEAT!
  280. cat > .BIFF << THISISNEAT!
  281. -BIFF
  282.  
  283. BIFF@PSUVM.PSU.EDU             BIFF@PORTAL.CUP.COM               BIFF@BIFF.NET
  284. THISISNEAT!
  285. cat > makefile << THISISNEAT!
  286. BM: BM.c biff.h
  287.     cc -o BM BM.c
  288. THISISNEAT!
  289.