home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / telecomm / conn246e / connect / scripts / conmaus3.scr next >
Text File  |  1994-02-27  |  7KB  |  308 lines

  1. Username='Peter Nobody'                   # Username
  2. Passwort='MrNobody';                      # Passwort
  3. Sendfile=\''c:\cat\export\infile.txt'\';  # Pfad/Datei des Infiles
  4. Recepath=\''c:\cat\import\'\';            # Pfad für das Outfile
  5. Mausname='NOB';                           # Hier die Heimatmaus eintragen
  6. Repeat=0;                                 # 0 bedeutet bis zur Stromausfall
  7.  
  8.  
  9. #                                 ACHTUNG!
  10. #
  11. # Ab hier bitte nichts mehr ändern! Andernfalls kann das FÜRCHTERLICH
  12. # in die Hose gehen und mit Datenverlust etc. enden!
  13. #
  14. # Für Schäden, die aus der Benutzung des Scripts entstehen, wird
  15. # KEINE Haftung übernommen.
  16. #
  17. # --------------------------------------------------------------
  18. vers=$(version)
  19. if [ $vers -lt 246 ] ; then 
  20.     echo 'CoNnect'$vers', die Version die Sie benutzen'
  21.     echo 'kann dieses Script noch nicht interpretieren'
  22.     bell 3
  23.     break -1
  24. fi
  25.  
  26. ctty vt102 atari
  27. echo -n 'Initialisiere ConMaus.Scr'\33'[5m...'\10\10\10\33'[0m'
  28. # --------------------------------------------------------------
  29. #
  30. # Mögliche Parameter:
  31. #
  32. # Wird der Script ohne Parameter gestartet, so wird die oben angegebene
  33. # MAUS angewählt, eventuell vorhandene Programme im persönlichen Programm-
  34. # teil downgeloadet, der automatische Maustausch gestartet und eine Liste
  35. # der neuen Programme im öffentlichen Programmteil angefordert. Danach
  36. # legt das Modem auf.
  37. #
  38. # Wird der Script mit dem Parameter "online" als erstem Parameter gestartet,
  39. # so wird nach dem Empfangen der Programmliste nicht aufgelegt, sondern man
  40. # bleibt Online in der MAUS. Beliebige andere Worte als erster Parameter
  41. # sorgen für ein direktes Auflegen nach dem Empfangen der Programmliste.
  42. #
  43. # Als zweiter Parameter kann zusätzlich "Nodial" angegeben werden. Geschieht
  44. # dies, so wird nicht gewählt, sondern direkt ein LOGIN versucht. Das ist
  45. # sinnvoll, wenn man z.B. mehrere Mäuse anwählen möchte. Man kann dann im
  46. # Wahldialog als Script "<Scriptname> online Nodial" angeben, so daß dieser
  47. # Script automatisch nach dem Connect gestartet wird. Dabei muß natürlich
  48. # für jede MAUS ein eigener Script mit den passenden Pfaden vorliegen!
  49. # Dieser Parameter muß UNBEDINGT als zweiter Parameter angegeben werden,
  50. # wenn diese Funktion aktiviert werden soll.
  51. #
  52. # Köln, 31. Januar 1993 - 20.33 Uhr 3. Nicht-ß-Release
  53.  
  54.  
  55. # -------------------------------------------------------
  56. #           Unterroutinen für den Maustausch
  57. # -------------------------------------------------------
  58.  
  59.  
  60. function esc {
  61.     echo -n \33"$1"
  62. }
  63.  
  64.  
  65. function f_Region {
  66.  
  67.     case $1 in
  68.     0)
  69.         esc '[?6l'; esc '[r'
  70.         ;;
  71.     1)
  72.         ctty vt102 vt102id atari
  73.         esc '[?6l' 
  74.         esc '[r'
  75.         esc '[2J' 
  76.         esc '[17;1H' 
  77.         esc '[7m'
  78.         echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
  79.         echo    'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
  80.         esc '[0m'
  81.         esc '[21;1H'
  82.         echo "                          Maustausch Script Vers. 3.1"
  83.         echo "                  (C) by Wolfgang Wander & Dirk Johannwerner"
  84.         esc '[1;1H'
  85.         esc '[7m'
  86.         echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגMaus'
  87.         echo 'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
  88.         esc '[24;1H'
  89.         echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
  90.         echo -n 'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגCoⁿnectג '
  91.         esc '[0m'
  92.         esc '[?6h' 
  93.         ;;
  94.     2)
  95.         esc '[18;23r'
  96.         esc '[?6h' 
  97.         esc '[6;1H'
  98.         ;;
  99.     3)
  100.         esc '[2;16r'
  101.         esc '[?6h' 
  102.         esc '[15;1H'
  103.         ;;
  104.     esac
  105. }
  106.  
  107. function waitstr {
  108.     f_Region 3
  109.     waitfor "$@"
  110.     a=?
  111.     f_Region 2
  112.     exit $a
  113. }
  114.  
  115. function f_Title {
  116.     esc '[?6l' 
  117.     esc '[r'
  118.     esc '[17;1H' 
  119.     esc '[7m'
  120.     echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
  121.     echo    'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
  122.     len=${#1}
  123.     ln=$[ 40 - $len / 2 ]
  124.     esc '[17;'
  125.     echo -n ${ln}"H $1 "
  126.     esc '[0m'
  127.     f_Region 2
  128. }    
  129.  
  130. function nologin {
  131.     f_Title Fehler
  132.   echo "Im Moment erscheint die Maus nicht gewillt, uns"
  133.   echo "Einlaß zu gewähren."
  134.   hangup
  135.   waitstr -t 1 @@
  136.   f_Region 0
  137.   break -1
  138. }
  139.  
  140. function schlaeft {
  141.     f_Title Fehler
  142.   echo "Im Moment erscheint die Maus nicht gewillt, aus"
  143.   echo "Ihrem Schlaf zu erwachen und unsere Befehle zu befolgen."
  144.   hangup
  145.   waitstr -t 1 @@
  146.   f_Region 0
  147.   break -1
  148. }
  149.  
  150. function loginerror {
  151.     f_Title Fehler
  152.   echo "Im Moment erscheint die Maus nicht gewillt, von uns"
  153.   echo "Namen und Passwort zu erfragen."
  154.   hangup
  155.   waitstr -t 1 @@
  156.   f_Region 0
  157.   break -1
  158. }
  159.  
  160. function uploadfehler {
  161.     f_Title Fehler
  162.   echo "Leider hat der Upload ganz und garnicht funktioniert."
  163.   hangup
  164.   waitstr -t 1 @@
  165.   f_Region 0
  166.   break -1
  167. }
  168.  
  169. function downloadfehler {
  170.     f_Title Fehler
  171.   echo "Leider hat der Download ganz und garnicht funktioniert."
  172.   hangup
  173.   waitstr -t 1 @@
  174.   f_Region 0
  175.   break -1
  176. }
  177.  
  178. function noconnect {
  179.     f_Title Fehler
  180.   echo "Im Moment erscheint die Post nicht gewillt, eine"
  181.   echo "Amtsleitung für uns frei zu machen."
  182.   waitstr -t 1 @@
  183.   f_Region 0
  184.   break -1
  185. }
  186.  
  187. function mauswait {
  188.   mausdone=0
  189.   while [ $mausdone = 0 ] ; do
  190.     if ! waitstr -t 30 'Leertaste' "$@"; then
  191.       schlaeft
  192.     fi
  193.     if [ $WAITID = 1 ]; then
  194.       send -n ' '
  195.     else
  196.       mausdone=1
  197.     fi
  198.   done
  199. }
  200.  
  201.  
  202. # ========================================================
  203. #   Hier beginnt das Script für den CONNECT - Maustausch
  204. # ========================================================
  205.  
  206. ctty vt102 vt102id
  207.  
  208. echo '... done'
  209.  
  210. f_Region 1
  211. f_Region 2
  212.  
  213. if test "$2" != "Nodial"; then
  214.  
  215.     f_Title Anwahl
  216.  
  217.   if ! dial -v -s 30s -r $Repeat "$Mausname"; then
  218.     noconnect
  219.   fi
  220.  
  221. fi
  222.  
  223. echo "Wir haben eine Verbindung zu $Mausname."
  224.  
  225.  
  226. f_Title Login-Prozedur
  227.  
  228. if ! waitstr -t 10s '(J/N)'; then
  229.   nologin
  230. fi
  231.  
  232. sleep 200m; send -n 'j'
  233.  
  234. if ! waitstr -t 30 'Name      :'; then
  235.    loginerror
  236. fi
  237.  
  238. sleep 50m;  send "$Username"
  239.  
  240. if ! waitstr -t 30 'Password  :'; then
  241.    loginerror
  242. fi
  243.  
  244. sleep 50m;  send "$Passwort"
  245.  
  246. doneit=0
  247.  
  248. while [ $doneit = 0 ]; do
  249.   if ! waitstr -t 30 'Hauptmen' 'Leertaste'; then
  250.     schlaeft
  251.   fi
  252.   case $WAITID in 
  253.       1)
  254.         doneit=1 ;;
  255.     2) 
  256.         send -n ' ' ;;
  257.     esac
  258. done
  259.  
  260. send 't'
  261.  
  262. sleep 900m
  263. send -n 'z'
  264.  
  265. if ! waitstr -i -t 30 'protokoll startet'; then
  266.   schlaeft
  267. fi
  268.  
  269. f_Title Upload
  270.  
  271. if ! upload $Sendfile; then
  272.   uploadfehler
  273. fi
  274.  
  275. f_Title 'Mausmails zusammenstellen'
  276.  
  277. if ! waitstr -i -t 600 'protokoll startet'; then
  278.   schlaeft
  279. fi
  280.  
  281. f_Title Download
  282.  
  283. if ! download -p $Recepath; then
  284.   downloadfehler
  285.   exit 1
  286. fi
  287.  
  288. mauswait 'Hauptmen'
  289.  
  290. if test "$1" != "online"; then
  291.  
  292.   send -n 's'
  293.   send -n 'j'
  294.   sleep 1
  295.   hangup
  296.   waitstr -i -t 15 'no carrier' 'ok'
  297.  
  298. fi
  299.  
  300. f_Title 'The End'
  301. echo "-----------------------------------------------------------"
  302. echo \33"#3 Maustausch erfolgreich abgeschlossen"
  303. echo \33"#4 Maustausch erfolgreich abgeschlossen"
  304.  
  305. f_Region 0
  306. quit  # Falls CoNnect nach dem Tausch verlassen werden soll...
  307.  
  308.