perl获取router上的公网IP,以及更新DNS中的A记录

河边星星

代码目的如下:
公司有一router与另一公司有专线连接,其IP为10.10.10.10,备注其IP域名地址我故意有更改,以下也一样
同时也负责了ADSL-MODEM后router功能.故其上会有一个公网的IP地址.不過此地址不是固定的,我们用如下perl程式获得其公
网的IP地址,这样可以去做一个mail server..其它的以后再谈.

cat /root/check_real_ip.pl

1. 
   
2. 
   
3. #! /usr/bin/perl -w
   
4. 
   
5. use Net::Telnet ();
   
6. $t = new Net::Telnet (Timeout => 10,   
   
7.         Prompt => '/ns5gt\-\> $/');                          
   
8. $t->open("10.10.10.10");
   
9. $t->login('Riverstar', 'linuxsir');
   
10. @lines = $t->cmd("get interface");
    
11. for($i = 0;$i < @lines;$i++)
    
12. {
    
13. if($lines[$i] =~ /^untrust/)
    
14. {
    
15.   @fd = split(/\s+/,$lines[$i]);
    
16.   last;
    
17. }
    
18. }
    
19. 
    
20. $fd[1] =~ s/\/\d+$//;
    
21. print STDERR "my ip: " . $fd[1] . "\n";
    
22. 
    
23. open OUT,"| /usr/bin/nsupdate";
    
24. print OUT <<OUT_NSUPDATE;
    
25. server 192.168.2.253
    
26. local 192.168.5.112
    
27. update delete mail.server.com.
    
28. update add mail.server.com. 610 A ${fd[1]}
    
29. send
    
30. quit
    
31. OUT_NSUPDATE
    
32. close OUT;
    
33. 
    
34. exit 0;
    
35. 
    
36. 
    

复制代码

以下是我telnet登录操作过程.
[root@shlinux root]# telnet 10.10.10.10
Trying 10.10.10.10...
Connected to 10.10.10.10 (10.10.10.10).
Escape character is '^]'.
Remote Management Console
login: Riverstar
password:linuxsir
ns5gt->
ns5gt-> ?
clear                clear dynamic system info
delete               delete persistent info in flash
exec                 exec system commands
exit                 exit command console
get                  get system information
ping                 ping other host
reset                reset system
save                 save command
set                  configure system parameters
trace-route          trace route
unset                unconfigure system parameters
ns5gt-> get interface

A - Active, I - Inactive, U - Up, D - Down, R - Ready

Interfaces in vsys Root:
Name           IP Address         Zone        MAC            VLAN State VSD     
trust          10.10.10.10/24   Trust       0010.db01.9272    -   U   -
untrust        222.79.2.89/32    Untrust     0010.db01.9271    -   U   -
serial         0.0.0.0/0          Null        0010.db01.9276    -   D   -
vlan1          0.0.0.0/0          VLAN        0010.db01.927f    1   D   -

备注:其中的第二行为公司的外网IP地址
ns5gt->exit

ns5gt-> exitConnection closed by foreign host.

crontab -e
*/5 * * * * /root/check_real_ip.pl

这样每五分钟我分收到一封来自Cron Daemon的信可以检测到是否IP变了吗？也可以在DNS中设置mail的A记录.
my ip: 222.79.2.89
> > > > > >

其中192.168.5.112为内部的dns只是forwards到192.168.2.253上而已
192.168.2.253有server.com域的使用权以及固定的IP地址
DNS是由也是运行perl的mail server

弥敦路九号

勉强看懂. 比较COOL.

sfatsdu

ruby:::
[PHP]
require 'net/telnet'
gw = Net::Telnet.new("Host"=>"10.10.10.10","Timeout" => 10, "rompt" =>/ns5gt\-\> $/)
gw.login("name", "password")
gw.cmd("get interface") do |recvdata|
result = recvdata.split
result.grep(/^untrust/)
print result
end
[/PHP]