;---------------------------------------------------------- ; pcuf_sli_98.scp - PCUF:n puhelinverkkoyhteyden ; komentosarjatiedosto, Windows 98 ; ; versio 1.1 / 5.9.1997 - Heikki Raussi ; 8.2.2000 - J. J. Marjanen ; ;---------------------------------------------------------- ; ; ***** Suomenkieliseen Windows 98 -käyttöjärjestelmään ***** ; Tämä komentosarjatiedosto (script) kirjoittautuu PCUF:ään ja ; käynnistää slirp-ohjelman. PC:ssä tarvittava ohjelma: ; ; - Windows 98 Puhelinverkkoyhteydet ; (Oma tietokone -ikkuna) ; ; ; KÄYTTÖOHJE ; ; *** Tee Puhelinverkkoyhteydet-ikkunassa uusi yhteys PCUF:n ; soittosarjaan (09) 5861512. Sen jälkeen toimi näin: ; ; Tarkista, että Palvelintyypit-valintalehdessä on ; ; - Puhelinverkkopalvelimen tyyppi SLIP: Unix-yhteys ; - Lisäasetukset älä valitse mitään ; - Sallitut verkkoprotokollat TCP/IP ; ; Tarkista, että TCP/IP-asetukset -valintalehdessä on ; ; Määritä IP-osoite 10.0.2.15 ; - Määritä nimipalvelinosoitteet ; Ensisijainen DNS 194.100.34.1 ; - Käytä IP-otsikkotietojen pakkausta kyllä ; - Käytä oletusyhdyskäytävää etäverkossa kyllä ; ; *** Komentosarja-valintalehdessä on oltava tämän tiedoston ; hakemistopolku (kohta "Tiedostonimi"). Älä valitse ; kohtaa "Askella komentosarjaa"! ; ; *** Voit aloittaa soittamisesi PCUF:ään käynnistämällä ; yhteyskuvakkeen ja antamalla käyttäjätunnuskenttään ; PCUF:n käyttäjätunnuksesi ja salasanakenttään ; salasanasi ; ; *** Mikäli sinulla on ongelmia tämän skiptin kanssa, ; yritä katsoa pääteikkunan tulostuksia ja ; tarkista antamasi käyttäjätunnus sekä salasana. ; ; Tutustu myös PCUF:n com -keskustelujärjestelmän ; shell-ryhmään, josta saattaa löytyä listätietoa ; mahdollisista ongelmista yhteyksissä. Pääset ; comiin pääteistunnossa antamalla komennot: ; com ; join shell ; ; Mikäli et löydä vastausta ongelmiisi comista, voit ; kirjoittaa kysymyksesi sinne. Liitä mukaan tiedot: ; ; - skriptin nimi ja versio, ; - kopio pääteikkunan tulostuksista, jos ; vain saat ne talteen ; - Windowsin versio, ; - käyttämäsi PCUF:n modeeminumero ja ; - milloin ongelma ilmeni sekä toistuuko se ; muutaman tunnin kuluttua ; ; Voit toki lähettää viestiä myös suoraan PCUF:n ; ylläpidolle alla olevaan osoitteeseen. Liitä mukaan ; edellä mainitut tiedot. ; ; sysop@pcuf.fi ; ;---------------------------------------------------------- ; *** TÄHÄN SKRIPTIIN EI TARVITSE TEHDÄ MUUTOKSIA *** ;---------------------------------------------------------- proc main ;---------------------------------------------------------- ; PCUF:ssä käynnistettävän slirp-ohjelman käynnistyskomento ; ; Voit virittää slirp-ohjelmaa parametrien avulla, jos niin ; haluat. Tässä skriptissä olevilla oletusarvoilla käynnis- ; tetään slirp ns. SLIP-tilaan. ; ; Lisätietoja slirpin käytöstä saat PCUF:ssä käyttö- ; järjestelmätasolla komenolla: ; man slirp ; ;---------------------------------------------------------- string slipcmd = "slirp" ;---------------------------------------------------------- ; Slirp-ohjelma käyttää SLIP-tilassa seuraavaa IP-osoitetta, ; joka on KAIKILLA käyttäjillä sama. ÄLÄ siis muuta sitä. ;---------------------------------------------------------- string slirp_ip = "10.0.2.15" ;---------------------------------------------------------- ; Muiden muuttujien alustus - ÄLÄ MUUTA NÄITÄKÄÄN, JOLLET ; TODELLA TIEDÄ, mitä olet tekemässä. ;---------------------------------------------------------- string userprompt = "tunnus:" string passprompt = "ssana:" string check_cmd = "uptime" string check_res = "average" integer s_count = 0 integer l_count = 0 boolean user_done = FALSE boolean pass_done = FALSE ;---------------------------------------------------------- ; Sisäänkirjoitussilmukka, jossa lähetetään käyttäjätunnus ; ja salasana. ;---------------------------------------------------------- set screen keyboard off LoginLoop: waitfor userprompt then DoLogin, passprompt then DoPassword until 10 l_count = l_count + 1 if l_count > 2 then goto Failure endif transmit "^M" goto LoginLoop ;---------------------------------------------------------- ; Lähetetään käyttäjätunnus ;---------------------------------------------------------- DoLogin: if pass_done == TRUE then ;; Jos skirptin suoritus menee tähän haaraan, on ;; käyttäjätunnus tai salasana luultavasti annettu väärin ;; Dial-Up-ohjelman käynnistyksessä --> lopetetaan skripti goto Failure endif transmit $USERID, raw transmit "^M" user_done = TRUE goto LoginLoop ;---------------------------------------------------------- ; Lähetetään salasana ;---------------------------------------------------------- DoPassword: if user_done == FALSE then ;; Jos skriptin suoritus menee tähän haaraan, niin käyttäjä- ;; tunnusta ei ole vielä annettu --> lähetetään piste ;; salasanana, josta seuraa käyttäjätunnuksen uudelleen ;; kysymyminen transmit ".^M" pass_done = FALSE goto LoginLoop endif transmit $PASSWORD, raw transmit "^M" goto DoCheck ;---------------------------------------------------------- ; Slirpin käynnistyssilmukka ;---------------------------------------------------------- StartLoop: s_count = s_count + 1 waitfor userprompt then DoLogin, check_res then DoSlirp until 2 if s_count < 3 then goto DoCheck endif ; Eipä taida olla Shell-oikeuksia tai sitten jotain ; muuta on mennyt pieleen, jos tänne mennään. goto Failure ;---------------------------------------------------------- ; Tarkistetaan, että on Shell-oikeudet --> lähetetään ; jokin käyttöjärjestelmän shell-komento ja odotetaan ; vastausta. ;---------------------------------------------------------- DoCheck: delay 2 transmit "^m" transmit check_cmd transmit "^m" goto StartLoop ;---------------------------------------------------------- ; Käynnistetään slirp ;---------------------------------------------------------- DoSlirp: transmit slipcmd transmit "^M" goto TheEnd ;---------------------------------------------------------- ; Epäonnistunut sisäänkirjoitus tai slirpin käynnistys --> ; Asetetaan näppäimistö päälle ja lopetetaan skripti. ;---------------------------------------------------------- Failure: set screen keyboard on halt ;---------------------------------------------------------- ; Onnellinen loppu --> Asetetaan varmuuden vuoksi slirpin ; käyttämä kiinteä ip-osoite. ; ; Jos yrität ajaa slirp-ohjelmaa ppp-tilassa, niin alla ; oleva asetuskomento pitänee luultavasti poistaa. ;---------------------------------------------------------- TheEnd: set ipaddr slirp_ip endproc