.KEY HOST,GROUPS/K,HISTORY/K,STAMP/K,KILL/K,TO/K,PANIC/K,BATCH/K/N,BLIP/K/N,TRACE/K,MODE/K
;*
;*   Sample script to invoke nntp client and add news to uucp Newsbase
;*
;*  Mandatory parameter of name of news server; all other parameters have
;*  reasonable defaults (assuming you have a uulib:NewsGroups file).
;*
;*  Small changes to allow:
;*    1) Auto disconnection when news transfer complete
;*    2) List of new news groups to be saved in uulib:NewNewsGroups
;*
.def HOST news.demon.co.uk             ;for Demon subscribers only !
.def GROUPS "UULIB:NewsGroups"         ;file containing list of groups
.def HISTORY "AmiTCP:db/NewsHistory"   ;file containing news history
.def STAMP "AmiTCP:db/NewsStamp"       ;file containing date news last retrieved
.def KILL "AmiTCP:db/nntpkillfile"     ;file containing kill instructions
.def BLIP 10                           ;frequency of display of blipmsg
.def TO "uuspool:NewsBatch"            ;file to contain batched news
.def PANIC 200000                      ;maximum size of pending news in T:
.def BATCH 12                          ;maximum number of requests batched to server
.def TRACE 3                           ;amount of information displayed
.def MODE "NEWS"                      ; don't drop link by default
.BRA {
.KET }

if NOT EXISTS {Groups}        ;Check we have a Groups file
   echo "You must set up a '{Groups}' file, or give the name"
   echo "of another file containing the news groups you want"
   quit 10
endif

if {Host} eq localhost
   echo "NNTPTransfer: Not connected."
   quit 10
   if {Host} eq $HostName
      echo "NNTPTransfer: Not connected."
      quit 10
      if {Host} eq $NodeName
            echo "NNTPTransfer: Not connected."
            quit 10
      endif
   endif
endif


echo "Pulling News..."

changetaskpri 5

if "{MODE}" eq "AUTONEWS"
   echo "Link will be automatically disconnected when complete"
endif

echo >t:nntpclient-Commands "NEWGROUPS t:nntp-NewGroups*NNEWNEWS {Groups} {to}"

failat 16                   ;nntpclient has done something at error level 10
nntpclient <t:nntpclient-Commands {host} COMPLEX BATCH {batch} BLIP {blip} BLIPMSG "NNTP: %5ld articles received" HISTORYFILE {history} STAMPFILE {stamp} TRACE {trace} KILLFILE {kill}
if $RC EQ 15                ; at error level 15 connect refused
        wait 5
        nntptransfer
        quit
endif
failat 10 

delete t:nntpclient-Commands QUIET  ;don't want command file now

if exists t:nntp-NewGroups    ;Got any new groups ?
   echo "----- New News Groups -----" >>uulib:NewNewsGroups
   type t:nntp-NewGroups >>uulib:NewNewsGroups
   ; uncomment the above two lines if you want to save the new newsgroups file
   echo "{host} has the following new news groups:"
   echo
   type t:nntp-NewGroups      ; Show new groups
   delete t:nntp-NewGroups quiet ; and get rid of the file
endif

if exists {to}
   echo "unbatching news ..."
   failat 30               ;don't worry if we can't find GetPriority
   getpriority >nil:       ;preserve the current priority in a local variable
   failat 20               ;back to default
   changetaskpri -1        ;postprocessing is a background task
   dannews {to} delete -h  ;postprocess news to uucp news base
   failat 10               
   get >nil: Priority      ;check that Priority local var. was set
   if exists {history}
      rename {history} {history}.old
      tail -1500 {history}.old >{history}
      delete {history}.old quiet
   endif
   if not WARN
      changetaskpri $Priority ;re-instate the saved priority
   endif
else
   echo "Sorry, no news transferred"
endif