On Fri, 6 Oct 2000, Dony wrote:
> Saya ingin membuat sebuah program yang dapat melakukan telnet ke server
> A lalu automatis mengisikan user dan password, lalu setelah login
> maka dilakukan telnet sekali lagi ke server B dan juga automatis
> mengisikan user dan password. Selama ini saya melakukannya secara manual
> dan hampir setiap hari saya melakukannya, karena routing dari lokasi saya
> ke server B tidak dapat dilakukan langsung (terlalu banyak hop).
Bisa pakai Expect dari Perl.
Coba telnet ke server A, terus disimpan semua apa yang diketikkan dan
di-"output" sama server A; nanti apa yang diketikkan dimasukkan ke
"send_slow" sedangkan outputnya server "ditangkap" pakai "exp_match".
Untuk mudahnya sih, saya sisipkan saja script buat men-delete email di pop
server yang delete-nya per 100 mail (tentunya tanpa dibaca, tidak juga
headernya). Untuk keperluan telnet ya sama saja, kan tinggal:
$e = Expect->spawn("telnet", ($host,"23"));
terus
$e->expect($timeout, "sername");
# apa lah yang dikeluarkan oleh telnet, username, password, dilihat saja.
lalu if ($e->exp_match()) {
# apa yang perlu dilakukan kalau prompt username sudah keluar
...
...
Untuk men-telnet ke server B dari A, ya tinggal gunakan script yang nanti
dibuat dimasukkan ke "default" shell user yang dipakai untuk telnet tadi.
Hanya saja, apa yang dilakukan di B mesti di-otomasi juga, model begini
kan tidak bisa digunakan untuk "tolong telnet otomatis", terus dapat
prompt di mesin B.
Oki
ps: scriptnya:
begin 764 delmail.pl.gz
M'XL(")1QX3D``V1E;&UA:6PN<&P`?53!;MLP##W;7\'9`6+#2>Q@I\Y+L4M/
M/?0#EK5P8S85(DN>I"P9AOS[*,E>W-:>+J8>R<='BDG\*3]JE3\SD;>H>'C4
M"'?G%G>F#,/9J]0&-A`U%>,K@_P@FY5`$Y7AC`*5<_VVEJ@:M&A;:>U1:UG$
MR*.E^%P4='%LQ:I8DXUD^DK+6]U6)Y%$5,&R+R!QE1?1>EU$:6J#E[?H8A-'
MN(#HX3XB!WNA6.]\:BJS>TW2%/Z$0*=53!B(=E((RL,:C(16MD!J?Z':"A)G
MPVRV1E$_:2Y/"2DD;M>;ZY#"TG)(US=+-,*\(1G59YT3&H,KHR-\N'=TP9@@
M-U8W7"^HS[7(2:KZJB:8E!),Z1AT]X^O%S,U(<ZTZ:0,TBTZD#(^F?E2X9P^
MC]O5O)M0?_[SFL,SK-8)?1_RC3.!=A/W"MLD?_Q>+&]^9/D"=,N92?(MO2S=
M^F+/^"(54C42%/<<!$'BB4B%KUK")8R#`,_,0/&QK$N9,:J[+H&^7S<PB[V4
MS$-9-M;1Q)1KY$@YUR4<R9E<NW=GZO6#SK^7]/NXLWW9R"R;'6!#;12%?>,^
M2.#9C+)?`#G]<PSXND="I6@F3(#MQ3"QAT;O8]]4.5)]G/T#^!:YWKQU"2^A
F)?L2CDWUYY%UNSLROQV7&FOK/##.X<;O2,OJA*"_U\Z,,2T%````
`
end
--
* Knowledge is power.
* Power without control is nothing. -Pirelli's ad
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
