EMAIL.BAT
@echo off
rem *** EMAIL.BAT V1.32 ********** Graff Zoltan 1998 ****
rem ***
rem *** Ebben a file-ban nem kell semmit változtatnod!
rem *****************************************************
echo ============================================
echo = levél küldés/fogadás - Graff Zoltán 1998 =
echo ============================================
rem *** Ellenőrzés: van-e program
set ZSPROBA=
if exist zsmtpop.exe goto kezd2
echo Nincs ZSMTPOP.EXE program!
goto kilep
:kezd2
rem *** Ellenőrzés: van-e program
if exist netdial.exe goto kezd3
echo Nincs NETDIAL.EXE program!
goto kilep
:kezd3
rem *** Ellenőrzés: van-e program
if exist epppd.exe goto kezd4
echo Nincs EPPPD.EXE program!
goto kilep
:kezd4
rem *** Ellenőrzés: megadta a user nevet
if not "%1" == "" goto kezd5
echo Használat: email user-név [par1] [par2] [par3] ...
goto kilep
:kezd5
rem *** Ha van %1\netdial.scr, idemásolni
if exist %1\netdial.scr copy %1\netdial.scr . > nul
rem *** Ellenőrzés: van-e netdial.scr
if exist netdial.scr goto kezd6
echo Nincs netdial.scr !
goto kilep
:kezd6
rem *** Ha van %1\setmail.bat, idemásolni
if exist %1\setmail.bat copy %1\setmail.bat . > nul
rem *** Ha van %1\pmgate.sys, idemásolni
if exist %1\pmgate.sys copy %1\pmgate.sys . > nul
rem *** Ellenőrzés: van-e setmail.bat
if exist setmail.bat
goto kezd7
echo Nincs SETMAIL.BAT ! goto kilep :kezd7 rem ***
Értékek beállítása
call setmail.bat rem *** Ellenőrzés - volt-e hely a
körny. változóknak
set
ZSPROBA = sikeres if
"%ZSPROBA%" =
=
"sikeres" goto
DIAL1 set ZSPROBA =
echo Nincs
elég
hely a környezeti változóknak! goto kilep
rem *** Ellenőrzés: van a könyvtárban CFG
file :DIAL1 if exist %1\zsmtpop.cfg
goto DIAL2 echo Nincs %1\zsmtpop.cfg
! goto kilep :DIAL2
echo Az
internet
szolgáltatót hívom ... NETDIAL %ZSCOM% %ZSSPD%
IF ERRORLEVEL 1 goto vege goto PKT
:BUSY echo Foglalt ... goto kilep
:PKT rem *** beléptünk, ppp-t indítsuk. if
exist ip-up.bat del ip-up.bat >
nul epppd %ZSCOM% pktvec %ZSPKT%
%ZSSPD% asyncmap 0 crtscts
rem ***
Az
ip-up.bat-ot az epppd program
csinálja meg!
if errorlevel 1 goto vege if not exist ip-up.bat
goto vegecall
IP-UP.bat rem *** WATTCP.CFG-t csinálunk.
echo my_ip=
%MYIP% > wattcp.cfg echo gateway =
%REMIP% >> wattcp.cfg
echo netmask=%NETMASK% >>
wattcp.cfg echonameserver =
%ZSNAME1%>> wattcp.cfg
echo nameserver=%ZSNAME2% >>
wattcp.cfg echonameserver =
%REMIP% >>wattcp.cfg rem
*** Ha nem levelezni akarnánk, itt lehetne indítani a telnet, ftp, rem
*** news, stb programokat ... rem
*** de itt most: Levelek lerendezése zsmtpop
-p%1 %2 %3 %4 %5 %6 :vege
rem
*** kiirtjuk a packet driver-t, telefon le echo
Leteszem a telefont ... termin
%ZSPKT% netdial
%ZSCOM% HANGUP rem
*** Ha vannak levelek, inditsuk a pmail-t if
not exist %1\*.cnm goto kilep if
exist %1\pmgate.sys copy %1\pmgate.sys . > nul
if exist pmail.exe pmail.exe -u %1
if exist %1\*.msg echo Vannak elküldhető levelek! (küldés: EMAIL %1)
rem *** a változók sem kellenek
:kilep
set myip=
set remip=
set netmask=
set peermru=
set ZSNAME1=
set ZSNAME2=
set ZSPKT=
set ZSCOM=
set ZSSPD=
NETDIAL.SCR
# NETDIAL.SCR V1.32
#
# Minta a freemail.c3.hu-ra belepes-hez.
# Az XXX helyére a user neved ird (a @freemail.c3.hu kell bele!)
# Az YYY helyére a jelszavad kerüljön
# Mindkettő végén kell a \r !
# Inicializálás
send "\r"
recv 1000
send "ATZ\r"
recv 6000 "OK"
recv 300
# Itt jön a telefonszám felhívása.
# ATDT - tárcsázás TONE módban
# w - várakozás a tárcsahangra
# - jel - elválasztó jel (nem számít)
# \r - soremelés (kell a végére)
send "ATDT06w40200027\r"
# Ha nem a freemail-re akarsz belépni, és közvetlen
# városi vonalad van, ilyesmi kell az előző sor helyett: (pl: DataNet)
# send "ATDT467-8888\r"
# Ha nem városi vonalad van, hanem 0-t kell tárcsáznod hozzá, akkor:
# send "ATDT0w467-8888\r"
# ha jön a Username: kérdés, arra válaszolni kell.
recv 30000 "sername:"
recv 300
# Van ahol, login: jön, nem Username:, akkor át kell irni!
# azért nincs kiírva a Username, mert van ahol kisbetűvel, máshol naggyal
# írják. Igy meg mindkettővel működik.
# Elküldjük a user nevet (XXX helyére persze a saját azonosítódat írd)
send "XXX@freemail.c3.hu\r"
# Máshova belépéskor nem kell az e-mail cim-et megadni, hanem tényleg csak
# a nevet, a freemail ebből a szempontból egy furcsa kivétel.
# Matáv-nál pl. ilyen kellhet:
# send "nagybela\r"
# várjuk a Password: szöveget. Ez is vagy kisbetűs, vagy nagy. Ezért nem
# irtuk ki az elejét.
recv 30000 "ssword:"
recv 300
# Elküldjük a jelszavunkat. (YYY helyere ird a sajátodat)
send "YYY\r"
recv 2000
# Ha olyan szolgáltatóhoz lépsz be, ahol nem indul automatikusan a PPP,
# akkor el kell indítani.
# Először várni kell valami prompt-ot, ami jelzi, hogy a túloldal készen
# áll, ez valami ilyesmi lehet (nekem pl. ez):
# recv 30000 zotyo>
# Ezután már el lehet indítani az ottani PPP programot. Ennek nevét a
# szolgáltatódtól kell megtudni. Nekem pl. ez kell:
# send "/usr/local/bin/start-ppp\r"
# Ezek után már tényleg kell legyen PPP kapcsolatod.