DEFLNG a-z


FUNCTION PBMAIN
   STDOUT "brodcstr"
   STDOUT "Eudora broadcasting tool"
   STDOUT

   STDOUT "File w/emails addresses, one per line ---> ";
   STDIN LINE file1$

   IF DIR$(file1$) = "" THEN
      STDOUT "ERROR: FILE NOT FOUND"
      STDOUT
      EXIT FUNCTION
   END IF

   STDOUT "File w/text of message, headers incl ----> ";
   STDIN LINE file2$

   IF DIR$(file2$) = "" THEN
      STDOUT "ERROR: FILE NOT FOUND"
      STDOUT
      EXIT FUNCTION
   END IF

   eloc$ = "c:\progra~1\eudora\eudora.exe"
   floc$ = "e:\temp"

   STDOUT "Eudora location (edit code if wrong) ----> " & eloc$
   STDOUT "Scratch dir (edit code if wrong) --------> " & floc$

   message$ = ""
   OPEN file2$ FOR INPUT AS #1
   DO UNTIL EOF(1)
      LINE INPUT #1, x$
      message$ = message$ & x$ & $CRLF
   LOOP
   CLOSE #1

   STDOUT
   STDOUT "Message loaded (" & FORMAT$(LEN(message$), ",") & " bytes)"
   STDOUT

   STDOUT "Sending";
   OPEN file1$ FOR INPUT AS #1
   msgat = 0
   DO UNTIL EOF(1)
      LINE INPUT #1, x$
      x$ = TRIM$(x$)
      IF INSTR(x$, "@") > 1 THEN
         INCR msgat
         OPEN floc$ & "\bc" & FORMAT$(msgat, "0000") & ".msg" FOR OUTPUT AS #2
         PRINT #2, "To: " & x$
         PRINT #2, message$
         CLOSE #2
         SHELL eloc$ & " " & floc$ & "\bc" & FORMAT$(msgat, "0000") & ".msg"
         kill eloc$ & " " & floc$ & "\bc" & FORMAT$(msgat, "0000") & ".msg"
      END IF
   LOOP
   CLOSE #1
   STDOUT
   STDOUT
   STDOUT "DONE!"
   STDOUT


END FUNCTION