home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
telecomm
/
conn246e
/
connect
/
scripts
/
conmaus3.scr
next >
Wrap
Text File
|
1994-02-27
|
7KB
|
308 lines
Username='Peter Nobody' # Username
Passwort='MrNobody'; # Passwort
Sendfile=\''c:\cat\export\infile.txt'\'; # Pfad/Datei des Infiles
Recepath=\''c:\cat\import\'\'; # Pfad für das Outfile
Mausname='NOB'; # Hier die Heimatmaus eintragen
Repeat=0; # 0 bedeutet bis zur Stromausfall
# ACHTUNG!
#
# Ab hier bitte nichts mehr ändern! Andernfalls kann das FÜRCHTERLICH
# in die Hose gehen und mit Datenverlust etc. enden!
#
# Für Schäden, die aus der Benutzung des Scripts entstehen, wird
# KEINE Haftung übernommen.
#
# --------------------------------------------------------------
vers=$(version)
if [ $vers -lt 246 ] ; then
echo 'CoNnect'$vers', die Version die Sie benutzen'
echo 'kann dieses Script noch nicht interpretieren'
bell 3
break -1
fi
ctty vt102 atari
echo -n 'Initialisiere ConMaus.Scr'\33'[5m...'\10\10\10\33'[0m'
# --------------------------------------------------------------
#
# Mögliche Parameter:
#
# Wird der Script ohne Parameter gestartet, so wird die oben angegebene
# MAUS angewählt, eventuell vorhandene Programme im persönlichen Programm-
# teil downgeloadet, der automatische Maustausch gestartet und eine Liste
# der neuen Programme im öffentlichen Programmteil angefordert. Danach
# legt das Modem auf.
#
# Wird der Script mit dem Parameter "online" als erstem Parameter gestartet,
# so wird nach dem Empfangen der Programmliste nicht aufgelegt, sondern man
# bleibt Online in der MAUS. Beliebige andere Worte als erster Parameter
# sorgen für ein direktes Auflegen nach dem Empfangen der Programmliste.
#
# Als zweiter Parameter kann zusätzlich "Nodial" angegeben werden. Geschieht
# dies, so wird nicht gewählt, sondern direkt ein LOGIN versucht. Das ist
# sinnvoll, wenn man z.B. mehrere Mäuse anwählen möchte. Man kann dann im
# Wahldialog als Script "<Scriptname> online Nodial" angeben, so daß dieser
# Script automatisch nach dem Connect gestartet wird. Dabei muß natürlich
# für jede MAUS ein eigener Script mit den passenden Pfaden vorliegen!
# Dieser Parameter muß UNBEDINGT als zweiter Parameter angegeben werden,
# wenn diese Funktion aktiviert werden soll.
#
# Köln, 31. Januar 1993 - 20.33 Uhr 3. Nicht-ß-Release
# -------------------------------------------------------
# Unterroutinen für den Maustausch
# -------------------------------------------------------
function esc {
echo -n \33"$1"
}
function f_Region {
case $1 in
0)
esc '[?6l'; esc '[r'
;;
1)
ctty vt102 vt102id atari
esc '[?6l'
esc '[r'
esc '[2J'
esc '[17;1H'
esc '[7m'
echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
echo 'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
esc '[0m'
esc '[21;1H'
echo " Maustausch Script Vers. 3.1"
echo " (C) by Wolfgang Wander & Dirk Johannwerner"
esc '[1;1H'
esc '[7m'
echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגMaus'
echo 'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
esc '[24;1H'
echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
echo -n 'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגCoⁿnectג '
esc '[0m'
esc '[?6h'
;;
2)
esc '[18;23r'
esc '[?6h'
esc '[6;1H'
;;
3)
esc '[2;16r'
esc '[?6h'
esc '[15;1H'
;;
esac
}
function waitstr {
f_Region 3
waitfor "$@"
a=?
f_Region 2
exit $a
}
function f_Title {
esc '[?6l'
esc '[r'
esc '[17;1H'
esc '[7m'
echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
echo 'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
len=${#1}
ln=$[ 40 - $len / 2 ]
esc '[17;'
echo -n ${ln}"H $1 "
esc '[0m'
f_Region 2
}
function nologin {
f_Title Fehler
echo "Im Moment erscheint die Maus nicht gewillt, uns"
echo "Einlaß zu gewähren."
hangup
waitstr -t 1 @@
f_Region 0
break -1
}
function schlaeft {
f_Title Fehler
echo "Im Moment erscheint die Maus nicht gewillt, aus"
echo "Ihrem Schlaf zu erwachen und unsere Befehle zu befolgen."
hangup
waitstr -t 1 @@
f_Region 0
break -1
}
function loginerror {
f_Title Fehler
echo "Im Moment erscheint die Maus nicht gewillt, von uns"
echo "Namen und Passwort zu erfragen."
hangup
waitstr -t 1 @@
f_Region 0
break -1
}
function uploadfehler {
f_Title Fehler
echo "Leider hat der Upload ganz und garnicht funktioniert."
hangup
waitstr -t 1 @@
f_Region 0
break -1
}
function downloadfehler {
f_Title Fehler
echo "Leider hat der Download ganz und garnicht funktioniert."
hangup
waitstr -t 1 @@
f_Region 0
break -1
}
function noconnect {
f_Title Fehler
echo "Im Moment erscheint die Post nicht gewillt, eine"
echo "Amtsleitung für uns frei zu machen."
waitstr -t 1 @@
f_Region 0
break -1
}
function mauswait {
mausdone=0
while [ $mausdone = 0 ] ; do
if ! waitstr -t 30 'Leertaste' "$@"; then
schlaeft
fi
if [ $WAITID = 1 ]; then
send -n ' '
else
mausdone=1
fi
done
}
# ========================================================
# Hier beginnt das Script für den CONNECT - Maustausch
# ========================================================
ctty vt102 vt102id
echo '... done'
f_Region 1
f_Region 2
if test "$2" != "Nodial"; then
f_Title Anwahl
if ! dial -v -s 30s -r $Repeat "$Mausname"; then
noconnect
fi
fi
echo "Wir haben eine Verbindung zu $Mausname."
f_Title Login-Prozedur
if ! waitstr -t 10s '(J/N)'; then
nologin
fi
sleep 200m; send -n 'j'
if ! waitstr -t 30 'Name :'; then
loginerror
fi
sleep 50m; send "$Username"
if ! waitstr -t 30 'Password :'; then
loginerror
fi
sleep 50m; send "$Passwort"
doneit=0
while [ $doneit = 0 ]; do
if ! waitstr -t 30 'Hauptmen' 'Leertaste'; then
schlaeft
fi
case $WAITID in
1)
doneit=1 ;;
2)
send -n ' ' ;;
esac
done
send 't'
sleep 900m
send -n 'z'
if ! waitstr -i -t 30 'protokoll startet'; then
schlaeft
fi
f_Title Upload
if ! upload $Sendfile; then
uploadfehler
fi
f_Title 'Mausmails zusammenstellen'
if ! waitstr -i -t 600 'protokoll startet'; then
schlaeft
fi
f_Title Download
if ! download -p $Recepath; then
downloadfehler
exit 1
fi
mauswait 'Hauptmen'
if test "$1" != "online"; then
send -n 's'
send -n 'j'
sleep 1
hangup
waitstr -i -t 15 'no carrier' 'ok'
fi
f_Title 'The End'
echo "-----------------------------------------------------------"
echo \33"#3 Maustausch erfolgreich abgeschlossen"
echo \33"#4 Maustausch erfolgreich abgeschlossen"
f_Region 0
quit # Falls CoNnect nach dem Tausch verlassen werden soll...