#!hs2 #!load hamster.hsm #!load Activity.hsm # debug 2 Var ( $Hour, $WD, $VerbName, $Transresult ) Var ( $Ras1, $Ras2, $Ras3 ) decodetime( Time , 0, 0, 0, $Hour, 0, 0, $WD ) # WD: 1=Sonntag, 7=Samstag # geänderte Automatik (17.6.2000): # Mit Hamster ist die Onlinezeit nur kurz. Deswegen ist auch tagsüber der # Compuserve-Tarif ineffektiv. Allerdings immer noch günstiger als Telda.net # Deshalb wird ab sofort Compuserve/AOL die Nummer 2, nach Nikoma. if ( Feiertag(Time) | WochenEnde($WD) ) # Günstige Tage if ( (9 <= $Hour) & ($Hour < 18) ) # tagsüber $Ras1 = "Nikoma by Call" # 3.49 @ 1sec $Ras2 = "Compuserve Ofake" # 1.9 @ 3min $Ras3 = "TelDaNet" # 6.0 @ 1min else # abends/nachts $Ras1 = "Nikoma by Call" # 2.89 @ 1sec $Ras2 = "Compuserve Ofake" # 4.9 @ 3min $Ras3 = "TelDaNet" # 6.0 @ 1min endif else # Wochentag if ( (9 <= $Hour) & ($Hour < 18) ) #tagsüber $Ras1 = "Nikoma by Call" # 3.49 @ 1sec $Ras2 = "Compuserve Ofake" # 1.9 @ 3min $Ras3 = "TelDaNet" # 6.0 @ 1min else # abends/nachts $Ras1 = "Nikoma by Call" # 2.89 @ 1sec $Ras2 = "Compuserve Ofake" # 4.9 @ 3min $Ras3 = "TelDaNet" # 6.0 @ 1min endif endif debug (3, $Hour, " Uhr, Tag ", $WD, ", Provider ", $Ras1 ) $VerbName = $Ras1 $Transresult=transmit($Ras1) if ($Transresult ) $VerbName = $Ras2 $Transresult = transmit($VerbName) endif if ($Transresult ) $VerbName = $Ras3 $Transresult = transmit($VerbName) endif quit