🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: braunschweig.sysops
Article #86

Re: Todesanzeige: AmNet endg�ltig gestorben

#86
From: Holger Lembke
Date: Wed, 16 Feb 2005 21:56
100 lines
2987 bytes
>> Holger, liest Du hier noch mit?

Zur Leichenfeier hier noch ein St�ck ganz tote Geschichte:

; ********************************************************************
; Script:    AMNET.SCR
; mb-info:   Scriptdatei f�r Amnet-Logins
; Ersteller: Holger Lembke
; Erstellt:  10.08.94
; Wartung:   26.08.94, 08.09.94, 28.10.94, 05.12.1994, 12.12.94
; ********************************************************************
call debug.scr
call anruf.scr
message Amnet-Login

@initcall:
; Belegung mu� r�ckw�rts erfolgen
event $connectwait error
scan4sub "START OK" startok
scan4sub "NETLOG FALSE" netlogfalse
scan4sub "NETLOG TRUE" netlogtrue
scan4sub "CR >" sendescape

; Hier loopt es. Raus nur, - wenn ein SCAN4SUB eintritt oder carrierverlust
@mainloop:
delay 500
goto mainloop

; notbremse, wenn carrier weg
goto ende

; spezialgeschichten f�r den relogin
@relogin:
message Login startet...
send ^[
delay 2000
; das Formatieren �bernimmt !!MB intern...
send $username|$passwort|POINTLOG^m
goto initcall

; hierhin kann nur der sprungverteiler von SCAN4SUB springen
@sendescape:
message Login startet...
send ^[
delay 2000
; das Formatieren �bernimmt !!MB intern...
send $username|$passwort|POINTLOG^m
goto mainloop

; Fertig und Senden...
@netlogtrue:
message Sende Daten...
status loginok
send START^m
goto mainloop

; Sendephase: Upload und neue Scanner setzten
@startok:
scankill all
eventkill all
external uparc
external upload
message Auf Paket warten...
scan4sub PACKING packing
scan4sub START start
scan4sub SKIP skip
goto mainloop

; Reaktionen der Empfangsphase
@packing:
message Gegenseite packt Daten...
send PACKING OK^m
goto mainloop

@skip:
message Gegenseite hat keine Daten...
send SKIP OK^m
status downloadok
goto ende

; Und hier gibt's was zu empfangen
@start:
send START OK^m
Message Empfange Daten...
delay 3000
external download


; Fertig
@ende:
call auflegen.scr
exit

@error:
exit 2


-- 
mit freundlichen Gr��en ! special bubble  -->  O
Holgi, +49-531-3497854  !                      
Technical Details
Message-ID: <o9g7119k26rp76rtf6n74i5ggcf4voe406@news.individual.de>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
References: <cugddk$sra$1@spider.ags.etc.tu-bs.de> <cumh50$j1q$1@spider.ags.etc.tu-bs.de> <cuqg4k$mj1$1@spider.ags.etc.tu-bs.de>

Show Full Headers
Complete Article Headers
X-Google-Thread: f4f83,27dba7b89bb7a11b
X-Google-Attributes: gidf4f83,public
X-Google-Language: GERMAN,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Holger Lembke <holgerspamathlembke.de@wsxc.de>
Newsgroups: braunschweig.sysops
Subject: Re: Todesanzeige: AmNet endg�ltig gestorben
Date: Wed, 16 Feb 2005 22:56:13 +0100
Lines: 100
Message-ID: <o9g7119k26rp76rtf6n74i5ggcf4voe406@news.individual.de>
References: <cugddk$sra$1@spider.ags.etc.tu-bs.de> <cumh50$j1q$1@spider.ags.etc.tu-bs.de> <cuqg4k$mj1$1@spider.ags.etc.tu-bs.de>
Reply-To: holgerspamathlembke.de@wsxc.de
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: individual.net lMdby3GRPwlbgYdzrJ8Aeg8hRIFiieEQRcztkpAuyLHoZE3w==
X-Newsreader: Forte Agent 2.0/32.652