一个大量分组生成mrtg的脚本

moxnet

分析了一下mrtg的配置文件，去掉了不需要的，简化了配置，写了个配置文件，共享一下。

生成的mrtg配置文件修改WorkDir，测试一下，OK后再加入到。

读入一个ip列表文件，文件中有file,flag和ip三个段。

file是生成的mrtg配置文件名;
flag为每台机器的标识。实际生成的标识会加上ip的后两个段。如flag为ShangHai，IP为1.2.3.4,则生成的flag为ShangHai-3-4。
ip为本组下的ip列表，一行一个IP。

一个file可含有多个不同flag，一个flag有多个IP。

1. #!/usr/bin/perl -w
   
2. 
   
3. # ********************************************** #
   
4. # Copyright (c), 2006-08, www.aboil.org
   
5. #
   
6. # File:         genmrtg
   
7. # Author: Felix New      Version: 0.5    Date: 2006/10/18
   
8. #
   
9. # Function:     generate mrtg configure
   
10. # Description:  if you have many many machine, cfgmaker???? Oops, too tire
    
11. # Input:        ip list file
    
12. # Output:       defalt to mrtg.conf, or specify in ip list file
    
13. #
    
14. # ********************************************** #
    
15. 
    
16. 
    
17. use strict;
    
18. use File::Basename;
    
19. $| = 1;
    
20. 
    
21. my $is_new = 1;
    
22. my $flag = 'genmrtg';
    
23. my $file = 'mrtg.conf';
    
24. 
    
25. sub usage {
    
26.         my $myname = basename $0;
    
27. print << "EOF";
    
28. Usage:
    
29.         $myname  ip.lst [ip2.lst]
    
30. 
    
31. ip.lst FORMAT:
    
32. # for comment
    
33. ====================
    
34. ## file: mrtg conf file
    
35. file: alt.conf
    
36. ## flag: group flag, descript bellow graph
    
37. flag: group1_mark
    
38. ## group1 ips
    
39. ip:
    
40. 1.1.1.1
    
41. 1.1.1.2
    
42. flag: group2_mark
    
43. 1.1.2.1
    
44. 1.1.2.2
    
45. 
    
46. file: alt2.conf
    
47. flag: group3_mark
    
48. ip:
    
49. 2.1.1.1
    
50. 2.1.1.2
    
51. ====================
    
52. 
    
53.                         by Felix New ( felix\@aboil.org )
    
54. EOF
    
55. }
    
56. 
    
57. unless($ARGV[0]) {
    
58.         usage();
    
59.         exit;
    
60. }
    
61. 
    
62. while(<>) {
    
63.         ### skip comment and space line:
    
64.         next if (/^\s*$/);
    
65.         next if (/^\s*#/);
    
66. 
    
67.         ### get file name:
    
68.         if (/^\s*file\s*:\s*(.*)/i) {
    
69.                 $file = $1;
    
70.                 close FILE;
    
71.                 open FILE, ">$file" or die "Can't open $file: $!";
    
72.                 select FILE;
    
73.                 print 'WorkDir: /var/www/html/mrtg' . "\n";
    
74.                 print 'Options[_]: growright, bits, noborder, transparent, avgpeak, unknaszero' . "\n";
    
75.                 print 'EnableIPv6: no' . "\n";
    
76.                 print "Language: Chinese\n";
    
77.                 print "##################\n";
    
78. 
    
79.                 next;
    
80.         }
    
81. 
    
82.         ### get flag:
    
83.         if (/^\s*flag\s*:\s*(.*)/i) {
    
84.                 $flag = $1;
    
85.                 next;
    
86.         }
    
87. 
    
88.         ### get ip:
    
89.         if (/\s*(\d+\.\d+\.\d+\.\d+)\s*/) {
    
90.                 my $ip = $1;
    
91.                 my $trip = $ip;
    
92.                 $trip =~ s#\d+\.\d+\.(\d+)\.(\d+)#$1-$2#;
    
93.                 my $desc = "$flag-$trip";
    
94. 
    
95.                 print 'Target[' . $ip . ']: /' . $ip . ':public@' . $ip . "\n";
    
96. ### if snvpv2c, comment last line and uncomment next line:
    
97. #                print 'Target[' . $ip . ']: /' . $ip . ':public@' . $ip . ':::::2' . "\n";
    
98.                 print 'SetEnv[' . $ip . ']: MRTG_INT_IP="' . "$ip\"\n";
    
99.                 print 'MaxBytes[' . $ip . ']: 12500000' . "\n";
    
100.                 print 'Title[' . $ip . ']:' . $desc . "\n";
     
101.                 print 'PageTop[' . $ip . ']: <h1>' . $desc . '</h1>' . "\n";
     
102.         print "###############################\n";
     
103.         next;
     
104.         }
     
105.         next;
     
106. }
     

复制代码

[ 本帖最后由 moxnet 于 2006-10-18 12:21 编辑 ]