#!hs2
#!load nfaq.hsm
var ($news, $smtp)

checkfaq

while(!RasIsConnected)
   sleep(5000)
   print("Cekam vezu!")
endwhile

if (RasIsConnected)
  print("Trenutacna veza:")
  print(RasGetConnection)
  if (RasGetConnection == "HiNet" || RasGetConnection == "Hinet_mali")
    $news = "news.hinet.hr,nntp"
    $smtp = "mail.hinet.hr"
  endif
  if (RasGetConnection == "Iskon Internet")
    $news = "news.iskon.hr,nntp"
    $smtp = "mail.iskon.hr"
  endif

  HamNewsPull($news)
  
  HamNewsPost($news)
  HamNewsPost("news.cis.dfn.de,nntp")
  HamNewsPost("news.blic.net,nntp")

  if ($news != "")
    $news = $news + ";"
  endif

  $news = $news + "news.kset.org,nntp;news.blic.net,nntp;news.beotel.yu,nntp;news.carnet.hr,nntp;news.delta.com.ba,nntp"
  
  HamNewsPull($news)  

  if ($smtp != "")
    HamSendMail($smtp, "smtp")
  endif

  HamWaitIdle
  HamNewsPull("news.cis.dfn.de,nntp")
  
else
  warning("Veza nije uspostavljna.")
endif

quit