#!hs2

#####################################################################
# Script : OZNow.hsm
# Description : Envoi et réception immédiats du courrier et des news
#               La sélection Des FAIs se fait d'après une liste
#               préférientielle.
# Configuration : Les FAIs et les serveurs SMTP ET POP3 sont indiqués
#                 dans le fichier Fai.ini.
#                 Ne pas oublier de configurer aussi Hamster !
# Nécessite :
# - Fai.ini
# - Fai.hsm
# - News.hsm (BStrings.hsm, BMsgHeader.hsm, BFichierTexte.hsm)
# - Mail.hsm
#
# Auteur : Olivier Zolli <ozolli@online.fr>
# Version : 03/02/01
#####################################################################

#!load Fai.hsm
#!load News.hsm
#!load Mail.hsm

HamMessage(2,0)

print("SCRIPT EN COURS DE TRAITEMENT")

# Déclaration et initialisation des variables
VarSet($CxHamster,True)
varSet($Re,0)

# Traitement des articles entrants et sortants
# News Jobs
EnteteNews
HamNewsJobsClear
HamNewsJobsPostDef
HamNewsJobsPullDef
HamWaitIdle

# Teste si un FAI est déja connecté
if(RasIsConnected)
  $CxHamster=False
  print("Déja connecté à "+RasGetConnection)
else
  repeat
    # Connexion au 1er FAI de la liste (Fai.ini) qui répond
    cxmulti

    if(RasIsConnected)
      print("Connecté à "+RasGetConnection)
    else
      $Re=MsgBox("Le script OZNow n'a pas pu se connecter",_
                 "Hamster-Fr",0x10|0x5)
    endif
    if($Re=2)
      quit
    endif
  until($Re!=4)
endif

# Connexion au(x) serveur(s) de news.
HamNewsJobsStart

# Envoi du courrier en instance.
EnvoieCourrier

# Réception du courrier.
RecoitCourrier

# Déconnexion du FAI si c'est OZNow qui s'est connecté
if($CxHamster)
  HamWaitIdle
  HamRasHangup
endif

HamWaitIdle

print("Traitement du courrier et des news effectué.")

Quit