###############################################################
# Povezivanje na provajdera u lite rezimu, provera poruka 
# i prekidanje veze kada zavrsi.
#
#    Skriptu napisao: ANT-ilic (modifikovati po potrebi)
###############################################################

#!hs2

Var ( $servers_to_post, $try , $save2)

$save2 = $scripts+"Sent-To_Delete.lst"

# Iskljucivanje lokalnih servera, radi predostroznosti, nije neophodno
# News
HamMessage ( 3, 0)
# POP3
HamMessage ( 4, 0)
# SMTP
HamMessage ( 5, 0)

# Ciscenje zadataka, u slucaju da je doslo do greske pri prethodnom povezivanju
HAmNewsJobsClear

Print ("Running: Hemo.Net@lite")

# Pokrece program za dodavanje headere, potpisa i uopste obradu poruka pre slanja
# Nije neophodno
Execute ( "korrnews\KorrNews.exe Mails News", "", 1, true )

Print ("Povezivanje...                                 ...Skripta: Hemo.Net@lite")

# Brojac pokusaja
$try = 1
# Ime konekcije "Hemo.Net", korisnicko ime, lozinka
while( RasDial("Hemo.net" , "username@lite", "lozinka") != 0 )
   if( $try >= 5 )
      error( "Pozivanje neuspesno nakon pet pokusaja" )
   endif
   If (RasIsConnected)
     Break
   Endif
   Print ($try+". pokusaj neuspesan:                                ...Skripta: Hemo.Net@lite")
   inc( $try )
   sleep( 5000 )
   Print ("Ponovni pokusaj...  "+$try+". put                           ...Skripta: Hemo.Net@lite")
endwhile

# Ako je doslo do nekakve nepredvidjene greske i nije uspesno povezivanje na provajdera, onda prekida skriptu
If (!RasIsConnected)
  HAmNewsJobsClear
  Quit
endif
 
Print ("Uspesno povezivanje!!!                                  ...Skripta: Hemo.Net@lite")

# Potrebno je da je podesena sifra za POP server
HamFetchMail( "pop.hemo.net" )
HamSendMail( "smtp.hemo.net" )

# Odabir servera na koji se salje
HamNewsJobsPost( "news.hemo.net" )

# Skidanje poruka
hamnewsjobspull ("news.hemo.net")

# Pocetak izvrsavanja zadataka vezanih za news
HamNewsJobsStart

Print ("Cekam kraj svih kenekcija, pa prekidam vezu")
HamWaitIdle
# Snima nesnimljene podatke na disk
HamFlush
# Prekida vezu
HamRasHangup

# Ukljucivanje lokalnih servera
# News, POP3, SMTP
HamMessage ( 3, 0)
HamMessage ( 4, 0)
HamMessage ( 5, 0)

quit