;---------------------------------------------------------- ; pcuf_sli.scp - PCUF:n Microsoft Dial-Up Networking ; skritpi slirp-ohjelmaa varten. ; ; versio 1.0 / 5.9.97 - Heikki Raussi ; ;---------------------------------------------------------- ; ; Tämä skirpti tekee sisäänkirjoittautumisen PCUF:ään ja ; käynnistää slirp-ohjelman. PC:ssä tarvittavat ohjelmat: ; ; - Windows 95 Dial-Up Networking ; - Dial-Up Scripting Tool (SCRIPTER.EXE) ; ; KÄYTTÖOHJE ; ; *** Tee Dial-Up Networkingissä uusi yhteys PCUF:n ; soittosarjalle (09) 586 1512. Sen jälkeen: ; ; Tarkista, että Server Types ikkunassa on ; ; - Type of Dial-Up Server: SLIP: Unix Connection ; - Advanced options: älä valitse mitään ; - Allowed networking proto.: TCP/IP ; ; Tarkista, että TCP/IP Settings ikkunassa on ; ; - Specify an IP address ; IP address: 10.0.2.15 ; - Specify name server Address ; Primary DNS: 194.100.34.1 ; - Use IP header compression: kyllä ; - Use default gateway...: kyllä ; ; *** Yhdistä Dial-Up Scripting Tool ohjelmalla tekemäsi ; uusi yhteys tähän skriptiin (pcuf_sli.scp) ; ; *** Control Panelin Network-asetuksiin ei tarvitse koskea ; ; *** Voit aloittaa soittamisesi PCUF:ään käynnistämällä ; yhteyskuvakkeen ja antamalla User name -kenttään ; PCUF:n käyttäjätunnuksesi ja Password -kenttään ; salasanasi ; ; *** Mikäli sinulla on ongelmia tämän skiptin kanssa, ; yritä katsoa Terminal -ikkunan 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 Terminal -ikkunan 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