1. ไฟล์ /opt/test_eia.pl
** กรณี Telnet Port = 23 **
- โค้ด: เลือกทั้งหมด
#!/usr/bin/perl
use Net::Telnet;
$telnet = new Net::Telnet (Timeout => 10, Errmode => 'die');
$telnet -> open('192.168.100.1');
$telnet -> waitfor('/Username:$/i');
$telnet -> print('admin');
$telnet -> waitfor('/Password:$/i');
$telnet -> print('password');
$telnet -> waitfor('/\>$/i');
$telnet -> print('en');
$telnet -> waitfor('/\#$/i');
$telnet -> print('^config');
$telnet -> waitfor('/\(config\)\#$/i');
$telnet -> print('reset eia');
$telnet -> waitfor('/\(y\/n\):$/i');
$telnet -> print('y');
$telnet -> close;
** กรณี GSM VoIP Gateway ต่ออยู่หลัง NAT Device เราต้อง Telnet เข้า Public Port = 233 ซึ่งแม๊บกับ Local Port = 23
- โค้ด: เลือกทั้งหมด
#!/usr/bin/perl
use Net::Telnet;
$telnet = new Net::Telnet (Timeout => 10, Errmode => 'die', Port => 233);
$telnet -> open('192.168.100.1');
$telnet -> waitfor('/Username:$/i');
$telnet -> print('admin');
$telnet -> waitfor('/Password:$/i');
$telnet -> print('password');
$telnet -> waitfor('/\>$/i');
$telnet -> print('en');
$telnet -> waitfor('/\#$/i');
$telnet -> print('^config');
$telnet -> waitfor('/\(config\)\#$/i');
$telnet -> print('reset eia');
$telnet -> waitfor('/\(y\/n\):$/i');
$telnet -> print('y');
$telnet -> close;
2. ทำให้ Execute ได้
- โค้ด: เลือกทั้งหมด
chmod 755 /etc/test_eia.pl
3. ติดตั้ง perl-Net-Telnet
- โค้ด: เลือกทั้งหมด
yum -y install perl-Net-Telnet
4. ทดสอบรันสคริปต์ แล้วดูว่าทำงานหรือไม่
- โค้ด: เลือกทั้งหมด
cd /opt
./test_eia.pl
ถ้า Reset ได้ก็แสดงว่าเวอร์ค
5. ตั้งเวลา Reset โดยใช้ contrab
สมมติว่าให้รีเซ็ตตอน 17:48 ทุกวัน
- โค้ด: เลือกทั้งหมด
crontab -e
ใส่บรรทัดต่อไปนี้เพิ่มเข้าไป
- โค้ด: เลือกทั้งหมด
48 17 * * * /opt/test_eia.pl
เป็นอันว่าสำเร็จครับ รอดูผลงานได้เลย ทุกวันตอน 17:48