Chinaunix

标题: 一个大量分组生成mrtg的脚本 [打印本页]
作者: moxnet    时间: 2006-10-18 12:20
标题: 一个大量分组生成mrtg的脚本
分析了一下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

  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. # ********************************************** #


  17. use strict;
  18. use File::Basename;
  19. $| = 1;

  21. my $is_new = 1;
  22. my $flag = 'genmrtg';
  23. my $file = 'mrtg.conf';

  25. sub usage {
  26.         my $myname = basename $0;
  27. print << "EOF";
  28. Usage:
  29.         $myname  ip.lst [ip2.lst]

  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

  46. file: alt2.conf
  47. flag: group3_mark
  48. ip:
  49. 2.1.1.1
  50. 2.1.1.2
  51. ====================

  53.                         by Felix New ( felix\@aboil.org )
  54. EOF
  55. }

  57. unless($ARGV[0]) {
  58.         usage();
  59.         exit;
  60. }

  62. while(<>) {
  63.         ### skip comment and space line:
  64.         next if (/^\s*$/);
  65.         next if (/^\s*#/);

  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";

  79.                 next;
  80.         }

  82.         ### get flag:
  83.         if (/^\s*flag\s*:\s*(.*)/i) {
  84.                 $flag = $1;
  85.                 next;
  86.         }

  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";

  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 编辑 ]

genconf

2.21 KB, 下载次数: 56



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2