#!hs2

#!hs2

# Deklaration der Variablen
var( $try, $Provider )
$Provider = "Clara"
$try = 1

# check if connected
if( !RasIsConnected )
  warning( "Dialing Clara..." )
# Dialing & Retries if busy
  while( HamRasDial( $Provider ) != 0 )
     if( $try >= 69 )
      error( "Dialup-failed!" )
     endif
     inc( $try )
     sleep( 3000 )
  endwhile
endif

HamWaitIdle

# start Mailprogram
#execute( "C:\Anwendungen\Internet\The Bat!\thebat.exe", "", 1, false)
  warning( "started mailprogram" )

HamWaitIdle

# wait a wee bit before pulling News 
sleep( 10000 )

HamNewsJobsClear
HamNewsJobsPostDef
HamNewsJobsStart
HamMailExchange
HamWaitIdle

HamNewsJobsClear
HamNewsJobsPullDef
HamNewsJobsStart
execute( hampath+"hamster.exe newmail.hsc" )
HamWaitIdle

# intervall for Newspulls
AtClear
AtAdd( checknews, "00:05", "23:55", "1111100", 15, true )
AtExecute
quit


sub checknews
if( RasIsConnected )
 getnews()
else
 warning("no connection for pull")
endif
endsub

sub getnews
  HamNewsJobsClear
  HamNewsJobsPostDef
  HamNewsJobsStart
  HamMailExchange
 
  HamNewsJobsClear
  HamNewsJobsPullDef
  HamNewsJobsStart

  HamWaitIdle
execute( hampath+"hamster.exe newmail.hsc" )


endsub
quit