/* $VER: GreedWelcome v2.0 (1/15/94) */
/*******************************/
/*  GreedWelcome               */
/*   Log-in "welcome" for Greed*/
/*   Displays News:GreedNews   */
/*   for each user on their    */
/*   first log-in after winners*/
/*   are awarded each maint.   */
/*******************************/

options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
gu = getuser

call GetPaths

INIT:
if ~exists(GreedPath||'GreedNewsDate') | ~exists(NewsFile) then exit

call open(f1,GreedPath||'GreedNewsDate','r') ; newsdate=readln(f1) ; call close(f1)

gu 11 ; lastdate=result

month=substr(newsdate,8,3) ; call GETMONTH
ndt=substr(newsdate,12,4)||month||substr(newsdate,5,2)||substr(newsdate,17,5)
month=substr(lastdate,8,3) ; call GETMONTH
ldt=substr(lastdate,12,4)||month||substr(lastdate,5,2)||substr(lastdate,17,5)

if ldt > ndt then signal DONE

SENDIT:
sendfile NewsFile
DONE:
exit
 
GETMONTH:
if month='Jan' then do ; month='01' ; return ; end
if month='Feb' then do ; month='02' ; return ; end
if month='Mar' then do ; month='03' ; return ; end
if month='Apr' then do ; month='04' ; return ; end
if month='May' then do ; month='05' ; return ; end
if month='Jun' then do ; month='06' ; return ; end
if month='Jul' then do ; month='07' ; return ; end
if month='Aug' then do ; month='08' ; return ; end
if month='Sep' then do ; month='09' ; return ; end
if month='Oct' then do ; month='10' ; return ; end
if month='Nov' then do ; month='11' ; return ; end
month='12' ; return

SYNTAX:
ERROR:
IOERR:
transmit "Error. @ "||sigl||" in GreedWelcome."
bufferflush ; exit

GetPaths:
