@echo off
echo off
rem
rem Opintosuoritusotteen tilaus            V 1.0  20.9.1994
rem Seppo.Syrjanen@Helsinki.FI
rem
rem PEGASUS MAIL 3.0
rem
rem Asennus:
rem
rem 0) laita USERin tilalle joku muu muuttuja jos USER ei sis„ll„
rem    k„ytt„j„tunnusta
rem 2) sijoita opintosu.bat polun varrelle (p-ask l”ytyy jo varmaan)
rem 3) laita muuttujaan _D_ v„litiedoston _pos.ti sijainti,
rem    jos ty”asemien C-aseman juuri ei ole kirjoituskelpoinen.
rem    Huomaa ett„ t„m„n pit„„ toimia my”s jos useampi k„ytt„j„ ajaa
rem    t„m„n samanaikaisesti.
rem
rem
rem Kielikoodit
rem 1=suomi, 2=ruotsi, 3=englanti
set _L_=1
:
if %1.==. goto no_para
if %1.==sf. set _L_=1
if %1.==SF. set _L_=1
if %1.==fi. set _L_=1
if %1.==FI. set _L_=1
if %1.==fin. set _L_=1
if %1.==FIN. set _L_=1
if %1.==1. set _L_=1
if %1.==se. set _L_=2
if %1.==SE. set _L_=2
if %1.==sv. set _L_=2
if %1.==SV. set _L_=2
if %1.==2. set _L_=2
if %1.==eng. set _L_=3
if %1.==ENG. set _L_=3
if %1.==uk. set _L_=3
if %1.==UK. set _L_=3
if %1.==3. set _L_=3
:
:no_para
rem
rem V„litiedoston sijainti
set _D_=C:\
rem
set _T_=oprek_mgr@hylk.Helsinki.FI
rem set _T_=syrjanen@cc.Helsinki.FI
rem
echo.
echo T„ll„ komennolla voit tilata huomiseksi otteen opintosuorituksistasi.
echo.
echo Ote toimitetaan s„hk”postissa Etu.Sukunimi@helsinki.fi-osoitteeseesi.
echo.
p-ask /q "Haluatko opintosuoritusotteen (K/E)? " ek
if errorlevel 2 goto tee_se
echo.
echo Suoritusotetta ei tilattu.
echo.
goto loppu
:tee_se
set _M_=%_L_% %USER%       %SERVER%
echo %_M_% >%_D_%_pos.ti
g:\pmail\pmail -e 3 -f %_D_%_pos.ti -t %_T_% -s "-x-ote-suoritus-pyynto-x-"
del %_D_%_pos.ti
rem
echo.
echo Olet juuri pyyt„nyt itsellesi otteen opintosuorituksistasi. Ote
echo toimitetaan huomiseksi s„hk”postilla omaan Etu.Sukunimi@helsinki.fi-
echo osoitteeseesi.
echo.
echo Suoritusotteita toimitetaan vain kerran vuorokaudessa, joten „l„ turhaan
echo pyyd„ sit„ montaa kertaa saman p„iv„n aikana, kiitos!
echo.
:loppu
set _S_=
set _T_=
set _D_=
