开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > SNMP编程 > 查看源码
Mrtg_nsi
资源名称：mrtg-2.13.2.zip　[点击查看]
上传用户：shbosideng
上传日期：2013-05-04
资源大小：1555k
文件大小：43k
源码类别：

SNMP编程

开发平台：

C/C++

Mrtg_nsi：源码内容
  1. #! /usr/bin/perl
  2. # -*- mode: Perl -*-
  3. BEGIN{
  4. #$main::OS = 'UNIX';
  5. $main::OS = 'NT';
  6. #$main::OS = 'VMS';
  7. ##################################################################
  8. # MRTG-NSI 1.0 Network Status Imager for MRTG
  9. ##################################################################
  10. # Created by:  Mac Kloberg <mac@nacs.net><mac.kloberg@lam.liebherr.com>
  11. #
  12. # WARNING:  This thing was developed 'quick and dirty' on WinNT...
  13. # I've never actually tried this on Unix or VMS, so I 
  14. # don't know if it will work. Guess you'll find out... 
  15. # Send me mail...
  16. #
  17. # Built and based on: MRTG by Tobias Oetiker <oetiker@ee.ethz.ch>
  18. #             and Dave Rand <dlr@bungi.com>
  19. #
  20. # Credits: THANKS, TOBI AND DAVE!!!   K.U.T.G.W.
  21. #
  22. #################################################################
  23. #
  24. # Distributed under the GNU copyleft
  25. #
  26. ###################################################################
  27.  # The path separator is a slash, backslash or semicolon, depending
  28.  # on the platform.
  29.  $main::SL = {
  30.    UNIX=>'/',
  31.    WINDOWS=>'\',
  32.    NT=>'\',
  33.    VMS=>''
  34.    }->{$main::OS};
  36.  # The search path separator is a colon or semicolon depending on the
  37.  # operating system.
  38.  $main::PS = {
  39.    UNIX=>':',
  40.    WINDOWS=>';',
  41.    NT=>';',
  42.    VMS=>':'
  43.    }->{$main::OS};
  45. # We need to find the place where mrtg is installed, and
  46. # then take it from there...
  47. $main::binpath ="";
  48. if ($0 =~ /^(.+Q${main::SL}E)/) {
  49.   $main::binpath="$1";
  50. } else {
  51.   foreach $pathname ( split ${main::PS}, $ENV{'PATH'}) {
  52.     if ((($main::OS eq 'NT') &&
  53.          (-e "$pathname${main::SL}$0")) ||
  54.          (-x "$pathname${main::SL}$0")) {
  55. $main::binpath=$pathname;
  56. last;
  57.     }
  58.   }
  59. }
  60. die "ERROR: Can't find location of mrtg executablen" 
  61.   unless $main::binpath; 
  62. unshift (@INC,$main::binpath);
  63. }
  65. # There older perls tend to behave peculiar with
  66. # large integers ... 
  67. require 5.003;
  69. if ($main::OS eq 'UNIX' || $main::OS eq 'NT') {
  70.   use GD;
  71.   use Net::SMTP; #requires libnet package to be installed
  72.      #use SNMP_Session "0.71";
  73.      #use BER "0.66";
  74.      #use SNMP_util "0.71";
  75.   use locales_mrtg "0.01";
  76.   use Config;
  77.   #$main::SNMPDEBUG =0;
  78. }
  80. #Doesn't seem to work very well with the win32 port of GD
  81. #use strict; 
  83. if($main::OS eq 'UNIX')
  84. {
  85.   my($i) = 0;
  86.   my($name);
  88.   foreach $name (split(/ /, $Config{sig_name}))
  89.   {
  90. $main::signo{$name} = $i;
  91. $main::signame[$i++] = $name;
  92.   }
  93. }
  95. $main::DEBUG=1;
  98. sub END {
  99. local($?, $!);
  100. unlink ${main::Cleanfile} if($main::Cleanfile);
  101. }
  103. sub main {
  105. my ($router, $target ,$gdstyles, $neweventcounter, $eventcounter, $newevents, $neweventstype);
  107. # unbuffer stdout to see everything immediately
  108. $|=1 if $main::DEBUG;   
  111. print "nMRTG - Network Status Imager loading & initializing...nn" if $main::DEBUG;
  112. my ($routers, $cfg, $rcfg, $cfgfile) = readcfg();
  113. $target = cfgcheck($routers, $cfg, $rcfg);
  115. print "Locking Config Files...n";
  117. # Check the config and create the target object
  118. # lets make sure that there are not two mrtg-nsi's running in parallel.
  119. # so we lock on the cfg file. Nothing fancy, just a lockfile
  120. #
  121. my $lockfile = $cfgfile."_l";
  122. my $templock = $cfgfile."_l_" . $$ ;
  123. if ($main::OS eq 'VMS' || $main::OS eq 'NT') {
  124. # too sad NT and VMS can't do links we'll do the diletants lock
  125.   if (-e $lockfile && not unlink $lockfile){
  126.     my($lockage) = time()-(stat($lockfile))[9];
  127.     die ("ERROR: I guess another mrtg-nsi is running. A lockfile ($lockfile)
  128.      aged $lockage seconds is hanging around and I can't remove 
  129.      it because another process is still using it.");
  130.   }
  131.   
  132.   open (LOCK, ">$lockfile") or die "ERROR: Can't create lockfile $lockfilen";
  133.   print LOCK "$$n";
  134.   close LOCK;
  135.   open (LOCK, "<$lockfile") or die "ERROR: Can't open lockfile $lockfile for owner checkn";
  136.   my($read)=<LOCK>;
  137.   chomp($read);
  138.   die "ERROR: Someone else just got the lockfile $lockfilen" 
  139. unless  $$ == $read;
  140. } else {
  141.   # now, lets do it the UNIX way ... Daves work ...
  142.   open(LOCK,">$templock") || die "Can't create templock $templock";
  143.   $main::Cleanfile = $templock;
  144.   if (!link($templock,$lockfile)) {  # Lock file exists - deal with it.
  145.     my($nlink,$lockage) = (stat($lockfile))[3,9]; 
  146.     $lockage = time() - $lockage;
  147.     if ($nlink < 2 || $lockage > 30*60) { #lockfile is alone and old
  148. unlink($lockfile) 
  149.   || do{ unlink $templock; 
  150.  die "ERROR: Can't unlink stale lockfile ($lockfile). Permissions?n"};
  152. link($templock,$lockfile) 
  153.   || do{ unlink $templock; 
  154.  die "ERROR: Can't create lockfile ($lockfile).n".
  155.    "Permission problem or another mrtg locking succesfully?n"};
  156.     }
  157.     else {
  158. unlink $templock;
  159. die ("ERROR: I guess another mrtg is running. A lockfile ($lockfile) agedn".
  160.      "$lockage seconds is hanging around. If you are sure that no other mrtgn".
  161.      "is running you can remove the lockfilen");
  163.     }
  164.     
  165.   }
  166. }
  168. #Read the messages
  169.   my($msg) = readmsgfile($$cfg{'msgfile'});
  170. open (BACKGROUNDIMG,"<$$cfg{'statusmapbackground'}") || die "ERROR: Can't open StatusMapBackGroundn";
  171.    my($ImageData) = newFromGif GD::Image(BACKGROUNDIMG) || die "ERROR: GD::newFromGifn";
  172.    close BACKGROUNDIMG;
  174. #Allocate colors for this image...
  175. my %defcolors =
  176.    (#Color allocation table
  177.    'black', "0,0,0",
  178.    'red', "255,0,0",
  179.    'green', "0,255,0",
  180.    'blue', "0,0,255",
  181.    'yellow',  "255,250,205",
  182.    'white', "255,0,0"
  183. );   
  184. %colors = ();
  185. while(($color, $cvalue) = each(%defcolors)){
  186. #Try to allocate our color
  187. if($ImageData->colorAllocate(split(/,/,$cvalue)) ne "-1"){
  188. $colors{$color} = $ImageData->colorAllocate(split(/,/,$cvalue));
  189. }else{
  190. #Didn't work, we'll have to match the closest then
  191. $colors{$color} = $ImageData->colorClosest(split(/,/,$cvalue));
  192. }
  193. }
  195. #Define our linestyles
  196. $$gdstyles{'linestylec1'}{'style'} = "$colors{'yellow'},$colors{'yellow'},$colors{'yellow'},$colors{'yellow'},$colors{'blue'},$colors{'blue'},$colors{'blue'},$colors{'blue'},gdTransparent,gdTransparent";
  197. $$gdstyles{'linestylew1'}{'style'} = "$colors{'red'},$colors{'red'},$colors{'red'},$colors{'red'},$colors{'blue'},$colors{'blue'},$colors{'blue'},$colors{'blue'},gdTransparent,gdTransparent";
  198. $$gdstyles{'linestylea1'}{'style'} = "$colors{'red'},$colors{'red'},$colors{'blue'},$colors{'red'},$colors{'red'},$colors{'red'},$colors{'blue'},$colors{'blue'},gdTransparent,gdTransparent,gdTransparent,gdTransparent,gdTransparent,gdTransparent,gdTransparent,gdTransparent,gdTransparent";
  200. drawtext($ImageData, $gdstyles, $cfg, $rcfg, $routers, $router, "cool", "cool", "", "always", "1", "baxter.x", "baxter.y", "baxtersprings", "black",);
  202. $neweventcounter = 0;
  204. foreach $router (@$routers) {
  205.   my($savetz) = $ENV{'TZ'};
  207.   if ($$rcfg{'timezone'}{$router} ne '') {
  208.     $ENV{'TZ'} = $$rcfg{'timezone'}{$router}
  209.   }  
  211.   print "Imaging node: $routern";
  212.   
  213.   # set the locale
  214.   my($LOC);
  215.   if( $$cfg{'language'} && defined($lang2tran::LOCALE{"L$$cfg{'language'}E"}))
  216.   {
  217.     $LOC=$lang2tran::LOCALE{"L$$cfg{'language'}E"};
  218.   }
  219.   else
  220.   {
  221.     $LOC=$lang2tran::LOCALE{'default'};
  222.   };
  224.    #Node test...
  225. if($$cfg{'testnodelocations'} =~ /y/i){
  226. action_draw_crosshair($ImageData, $cfg, $rcfg, $routers, $router, $$rcfg{'nodecenterx'}{$router},$$rcfg{'nodecentery'}{$router},$black);
  227. next;
  228. #Normal node processing
  229. }else{
  230. my ($incurrent, $outcurrent, $inlast, $outlast) = getnodevalues($$rcfg{'node'}{$router}, $router, $rcfg, $cfg);
  232. #DEBUG --- DEBUG --- DEBUG --- DEBUG --- DEBUG --- DEBUG --- DEBUG --- 
  233. #if ($router =~ /NewportNewsEmailX400Kirchdorf/i){
  234. #$inlast = 0;$incurrent = 50;
  235. #$inlast = 5000;$incurrent = 100;
  236. #}
  237. #DEBUG --- DEBUG --- DEBUG --- DEBUG --- DEBUG --- DEBUG --- DEBUG --- 
  239. my ($nodeinstatus,$nodeoutstatus) = getnodestatus($incurrent,$outcurrent,$$rcfg{'node'}{$router}, $router, $rcfg, $cfg); 
  240. my ($nodeinlaststatus,$nodeoutlaststatus) = getnodestatus($inlast,$outlast,$$rcfg{'node'}{$router}, $router, $rcfg, $cfg); 
  242. print "NodeStatus-Old: $nodeinlaststatus($inlast)/$nodeoutlaststatus($outlast)n";
  243. print "NodeStatus-New: $nodeinstatus($incurrent)/$nodeoutstatus($outcurrent)n";
  245. #Generate events for the log and status-email
  246. my $ineventid = "";
  247. my $outeventid = "";
  248. my $ineventtype = "";
  249. my $outeventtype = "";
  251. #Cool event (in)
  252. if($nodeinstatus eq "cool" && $nodeinlaststatus eq "alarm" && defined $$rcfg{'nodeincoolmsgid'}{$router}){$ineventid = lc($$rcfg{'nodeincoolmsgid'}{$router});$ineventtype = "Cool";};
  254. #Cool event (in)
  255. if($nodeinstatus eq "warning" && $nodeinlaststatus eq "alarm" && defined $$rcfg{'nodeincoolmsgid'}{$router}){$ineventid = lc($$rcfg{'nodeincoolmsgid'}{$router});$ineventtype = "Cool";};
  257. #Warning event (in)
  258. if($nodeinstatus eq "warning" && $nodeinlaststatus eq "cool" && defined $$rcfg{'nodeinwarningmsgid'}{$router}){$ineventid = lc($$rcfg{'nodeinwarningmsgid'}{$router});$ineventtype = "Warn";};
  260. #Alarm event (in)
  261. if($nodeinstatus eq "alarm" && ($nodeinlaststatus eq "cool" || $nodeinlaststatus eq "warning") && defined $$rcfg{'nodeinalarmmsgid'}{$router}){$ineventid = lc($$rcfg{'nodeinalarmmsgid'}{$router});$ineventtype = "Alarm";};
  263. #Cool event (out)
  264. if($nodeoutstatus eq "cool" && $nodeoutlaststatus eq "alarm" && defined $$rcfg{'nodeoutcoolmsgid'}{$router}){$outeventid = lc($$rcfg{'nodeoutcoolmsgid'}{$router});$outeventtype = "Cool";};
  266. #Cool event (out)
  267. if($nodeoutstatus eq "warning" && $nodeoutlaststatus eq "alarm" && defined $$rcfg{'nodeoutcoolmsgid'}{$router}){$outeventid = lc($$rcfg{'nodeoutcoolmsgid'}{$router});$outeventtype = "Cool";};
  269. #Warning event (out)
  270. if($nodeoutstatus eq "warning" && $nodeoutlaststatus eq "cool" && defined $$rcfg{'nodeoutwarningmsgid'}{$router}){$outeventid = lc($$rcfg{'nodeoutwarningmsgid'}{$router});$outeventtype = "Warn";};
  272. #Alarm event (out)
  273. if($nodeoutstatus eq "alarm" && ($nodeoutlaststatus eq "cool" || $nodeoutlaststatus eq "warning") && defined $$rcfg{'nodeoutalarmmsgid'}{$router}){$outeventid = lc($$rcfg{'nodeoutalarmmsgid'}{$router});$outeventtype = "Cool";};
  275. #Log events (in)
  276. if($ineventid ne ""){
  277. $newevents[$neweventcounter] = $$msg{$ineventid};
  278. #Translate variables in the event message
  279. $newevents[$neweventcounter] = transeventvar($cfg, $rcfg, $routers, $router, $incurrent, $outcurrent, $newevents[$neweventcounter]);
  280. #Anybody needs to know about this?
  281. if($$rcfg{'email'}{lc($ineventtype)}{$router}){
  282. $neweventstype[$neweventcounter] = "$ineventtype/e";
  283. sendmail($cfg, $rcfg, $routers, $router, $incurrent, $outcurrent, $newevents[$neweventcounter],$neweventstype[$neweventcounter],$$rcfg{'nodestatusemailtarget'}{$router});
  284. }else{
  285. $neweventstype[$neweventcounter] = $ineventtype;
  286. }
  287. $neweventcounter++;
  288. }
  290. #Log events (out)
  291. if($outeventid ne ""){
  292. $newevents[$neweventcounter] = $$msg{$outeventid};
  293. $neweventstype[$neweventcounter] = $outeventtype;
  294. #Translate variables in the event message
  295. $newevents[$neweventcounter] = transeventvar($cfg, $rcfg, $routers, $router, $incurrent, $outcurrent, $newevents[$neweventcounter]);
  296. #Anybody needs to know about this?
  297. if($$rcfg{'email'}{lc($outeventtype)}{$router}){
  298. $neweventstype[$neweventcounter] = "$outeventtype/e";
  299. sendmail($cfg, $rcfg, $routers, $router, $incurrent, $outcurrent, $newevents[$neweventcounter],$neweventstype[$neweventcounter],$$rcfg{'nodestatusemailtarget'}{$router});
  300. }else{
  301. $neweventstype[$neweventcounter] = $outeventtype;
  302. }
  303. $neweventcounter++;
  304. }
  306. #Main action loop, the right sequencing is important because of overlappling graphics in the status map
  307. for ($actioncounter = 0; $actioncounter <= $$rcfg{maxaction}{$router}; $actioncounter++){
  308. if (exists $$rcfg{"action.$actioncounter"}{$router}) {
  309. my $action = $$rcfg{"action.$actioncounter"}{$router};
  310. my @acfunctelements = split(/(/,$action);
  311. my $acfunc = $acfunctelements[0];
  312. #Cleanup the function name
  313. $acfunc=~s/s/ /g;  
  314. $acfunc=~s/^ *//g;  
  315. $acfunc=~s/ *$//g;  
  316. $acfunc=lc($acfunc);
  317. my @acfunctelements = split(/[()]/,$action);
  318. my @acargs = split(/,/,$acfunctelements[1]);
  319. #Cleanup the functions arguments and put them in parethesis...
  320. foreach $acarg (@acargs){
  321. $acarg=~s/s/ /g;  
  322. $acarg=~s/^ *//g;  
  323. $acarg=~s/ *$//g;  
  324. $acarg=lc($acarg);
  325. $acarg=""$acarg",";
  326. }
  328. #Execute Action
  329. eval("$acfunc($ImageData, $gdstyles, $cfg, $rcfg, $routers, $router, $msg, "$nodeinstatus", "$nodeoutstatus", "$incurrent" , "$outcurrent", @acargs);");
  330. die "* Problem with action statement: $acfunc($ImageData, $gdstyles, $cfg, $rcfg, $routers, $router, $msg, "$nodeinstatus", "$nodeoutstatus", "$incurrent" , "$outcurrent", @acargs);n" if $@;
  331. }
  332. }
  333. }
  335.   #put TZ things back in shape ... 
  336.   if ($savetz) {$ENV{'TZ'} =  $savetz;} else
  337.   {delete $ENV{'TZ'}};
  339. }
  341. #If there are no events, don't do anything
  342. if ($neweventcounter > 0){
  343. #Open current log file and get the old log entries
  344. open (LOGFILE,"<$$cfg{'workdir'}\mrtg-nsi.log") || print "WARNING: Couldn't open eventlog file for reading: $$cfg{'workdir'}//mrtg-nsi.logn";
  345. my @oldeventloglines = <LOGFILE>;
  346. close LOGFILE;
  348. #Open eventlog again and add new events
  349. open (LOGFILE,">$$cfg{'workdir'}\mrtg-nsi.log") || die "ERROR: Couldn't open eventlog file for writing: $$cfg{'workdir'}//mrtg-nsi.logn";
  350. open (HTMLLOG,">$$cfg{'eventlog'}") || die "ERROR: Couldn't open eventlog file for writing: $$cfg{'eventlog'}n";
  353. #Add header to the html-log
  354. print HTMLLOG "<html>n";
  355. print HTMLLOG "n";
  356. print HTMLLOG "<head>n";
  357. print HTMLLOG "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">n";
  358. print HTMLLOG "<meta http-equiv="Refresh" CONTENT="60">n";
  359. print HTMLLOG "<title>Home Page</title>n";
  360. print HTMLLOG "</head>n";
  361. print HTMLLOG "n";
  362. print HTMLLOG "<body topmargin="1" leftmargin="1" bordercolor="#FFFFFF" bgcolor="#FFFFFF">n";
  363. print HTMLLOG "n";
  364. print HTMLLOG "<p><strong><font face="Arial" size="5">Network Status Imager: Event Log</font><fontn";
  365. print HTMLLOG "face="Arial"><br>n";
  366. print HTMLLOG "</font></strong><font face="Arial" size="1">NSI v1.0 for MRTG, Created by Macn";
  367. print HTMLLOG "Kloberg <a href="mailto:mac.kloberg@lam.liebherr.com">&lt;mac.kloberg@lam.liebherr.com&gt;</a> <an";
  368. print HTMLLOG "href="mailto:mac@nacs.net">&lt;mac@nacs.net&gt;</a>)<br>n";
  369. print HTMLLOG "Credits to Tobias Oetiker <a href="mailto:oetiker@ee.ethz.ch">&lt;oetiker@ee.ethz.ch&gt;</a> and Dave Rand <an";
  370. print HTMLLOG "href="mailto:dlr@bungi.com">&lt;dlr@bungi.com&gt;</a>.<br>n";
  371. print HTMLLOG "Sofware distributed under the GNU copyleft.";
  372. print HTMLLOG "<br>n";
  373. print HTMLLOG "</font></p>n";
  374. print HTMLLOG "n";
  375. print HTMLLOG "<table border="1" cellpadding="0" cellspacing="0" width="575" bgcolor="#C0C0C0">n";
  376. print HTMLLOG "  <tr>n";
  377. print HTMLLOG "    <td valign="top" nowrap width="65"><strong><font size="2">Date</font></strong></td>n";
  378. print HTMLLOG "    <td valign="top" nowrap width="44"><strong><font size="2">Time</font></strong></td>n";
  379. print HTMLLOG "    <td valign="top" nowrap width="46" bgcolor="#C0C0C0" align="left"><strong><font size="2">Type</font></strong></td>n";
  380. print HTMLLOG "    <td valign="top" nowrap width="420" <font size="2"><strong> <font size="2">Event</font></strong></td>n";
  381. print HTMLLOG "  </tr>n";
  382. print HTMLLOG "</table>n";
  383. print HTMLLOG "n";
  384. print HTMLLOG "<table border="0" cellpadding="0" cellspacing="0" width="1575"> n";
  386. for ($logfileeventcounter = 0; $logfileeventcounter <= $$cfg{'eventlogmax'}; $logfileeventcounter++){
  388. #Add new events
  389. if($logfileeventcounter eq 0){
  390. for ($neweventlogcounter = 0; $neweventlogcounter < $neweventcounter; $neweventlogcounter++){
  391. my $shortdatestr = &shortdatestr(time);
  392. print LOGFILE "$shortdatestr - $neweventstype[$neweventlogcounter] - $newevents[$neweventlogcounter]n";
  393. my($htmldate,,$htmltime) = split(/ - /,$shortdatestr);
  394. print HTMLLOG "  <tr>n";
  395. print HTMLLOG "    <td valign="top" nowrap width="56"><font size="2">$htmldate</font></td>n";
  396. print HTMLLOG "    <td valign="top" nowrap width="9"><font size="2">-</font></td>n";
  397. print HTMLLOG "    <td valign="top" nowrap width="44"><font size="2">$htmltime</font></td>n";
  398. print HTMLLOG "    <td valign="top" nowrap width="46" bgcolor="#C0C0C0" align="left"><font size="2">$neweventstype[$neweventlogcounter]</font></td>n";
  399. if($neweventstype[$neweventlogcounter] =~ /cool.*/i){
  400. print HTMLLOG "    <td valign="top" nowrap width="5" bgcolor="#00FF00"><strong><font size="2"></font></strong></td>n";
  401. print HTMLLOG "    <td valign="top" nowrap width="1415" bgcolor="#00FF00"><strong><font size="2">$newevents[$neweventlogcounter]n";
  402. }
  403. if($neweventstype[$neweventlogcounter] =~ /warn.*/i){
  404. print HTMLLOG "    <td valign="top" nowrap width="5" bgcolor="#C0C0C0"><strong><font size="2"></font></strong></td>n";
  405. print HTMLLOG "    <td valign="top" nowrap width="1415" bgcolor="#C0C0C0"><strong><font size="2">$newevents[$neweventlogcounter]n";
  406. }
  407. if($neweventstype[$neweventlogcounter] =~ /alarm.*/i){
  408. print HTMLLOG "    <td valign="top" nowrap width="5" bgcolor="#FF0000"><strong><font size="2"></font></strong></td>n";
  409. print HTMLLOG "    <td valign="top" nowrap width="1415" bgcolor="#FF0000"><strong><font size="2">$newevents[$neweventlogcounter]n";
  410. }
  411. print HTMLLOG "    </font></strong></td>n";
  412. print HTMLLOG "  </tr>n";
  413. }
  414. }
  416. #Add old events
  417. if($logfileeventcounter > 0 && $oldeventloglines[$logfileeventcounter-1] ne ""){
  418. print LOGFILE "$oldeventloglines[$logfileeventcounter-1]";
  419. #print "Writing oldevent ($logfileeventcounter): $oldeventloglines[$logfileeventcounter-1]<br>";
  420. my($htmldate,$htmltime,$htmleventtype,$htmlevent) = split(/ - /,$oldeventloglines[$logfileeventcounter-1]);
  421. print HTMLLOG "  <tr>n";
  422. print HTMLLOG "    <td valign="top" nowrap width="56"><font size="2">$htmldate</font></td>n";
  423. print HTMLLOG "    <td valign="top" nowrap width="9"><font size="2">-</font></td>n";
  424. print HTMLLOG "    <td valign="top" nowrap width="44"><font size="2">$htmltime</font></td>n";
  425. print HTMLLOG "    <td valign="top" nowrap width="46" bgcolor="#C0C0C0" align="left"><font size="2">$htmleventtype</font></td>n";
  426. if($htmleventtype =~ /cool.*/i){
  427. print HTMLLOG "    <td valign="top" nowrap width="5" bgcolor="#00FF00"><strong><font size="2"></font></strong></td>n";
  428. print HTMLLOG "    <td valign="top" nowrap width="1415" bgcolor="#00FF00"><strong><font size="2">$htmleventn";
  429. }
  430. if($htmleventtype =~ /warn.*/i){
  431. print HTMLLOG "    <td valign="top" nowrap width="5" bgcolor="#C0C0C0"><strong><font size="2"></font></strong></td>n";
  432. print HTMLLOG "    <td valign="top" nowrap width="1415" bgcolor="#C0C0C0"><strong><font size="2">$htmleventn";
  433. }
  434. if($htmleventtype =~ /alarm.*/i){
  435. print HTMLLOG "    <td valign="top" nowrap width="5" bgcolor="#FF0000"><strong><font size="2"></font></strong></td>n";
  436. print HTMLLOG "    <td valign="top" nowrap width="1415" bgcolor="#FF0000"><strong><font size="2">$htmleventn";
  437. }
  438. print HTMLLOG "    </font></strong></td>n";
  439. print HTMLLOG "  </tr>n";
  440. }
  441. }
  442. print HTMLLOG "</table>n";
  443. print HTMLLOG "</body>n";
  444. print HTMLLOG "</html>n";
  446. close HTMLLOG;
  447. close LOGFILE;
  448. }
  450. #Finally, timestamp the image
  451.    my($ImgSizeX,$ImgSizeY) = $ImageData->getBounds;
  453. $Today=&datestr(time);
  454. my $stampstring = "Network Status Imager for MRTG - $Today";
  455. my $stringwidth = GD::Font::width(gdSmallFont) * length($stampstring);
  456. $ImageData->string(gdSmallFont,$ImgSizeX - $stringwidth - 3,$ImgSizeY - 13,"$stampstring",$colors{'black'});
  458. #Write the whole thing to the status map
  459. open (STATUSMAP,">$$cfg{'workdir'}\\$$cfg{statusmapimagename}") || die "ERROR: Couldn't write to status map image $$cfg{'workdir'}\\$$cfg{statusmapimagename}";
  460. binmode STATUSMAP;
  461. print STATUSMAP $ImageData->gif;
  462. close STATUSMAP;
  464. # OK we are done, remove the lock files ... 
  465. print "Removing Lockfilesn";
  466. close LOCK; unlink ($templock, $lockfile);
  467. print "nMRTG - Network Status Imager unloading, gone and done...nn" if $main::DEBUG;
  468. }
  470. main;
  471. exit(0);
  476. sub readcfg {
  477. my ($first,$second,$key);
  478. my (%seen);
  479. my (@routers);
  480. my (%rcfg,%cfg,%pre,%post,%deflt,%defaulted);
  481. my ($cfgfile) = pop(@ARGV);
  482. open (CFG, $cfgfile) || do { print "ERROR: unable to open config file: $cfgfilenn"; &printusage };
  483. while (<CFG>) {
  484.   s/s+$//g; #remove whitespace at the end of the line
  485.   s/s/ /g;  #replace whitespace by space
  486.   next if /^s*#/; #ignore comment lines
  487.   next if /^s*$/;  #ignore empty lines
  488.   # oops spelling error
  489.   s/^supress/suppress/gi;
  491.   #Trashcan leading zeros in action statements
  492.   s/^action.0+/action./gi;
  493.   
  494.      #Also lets record the number of the highest action given for later
  495.   if ($first =~ /^action.+/){
  496. $actionnumber = $first;
  497. $actionnumber =~ s/action.//gi;
  498. if($actionnumber > $rcfg{'maxaction'}{$second}){
  499. $rcfg{'maxaction'}{$second} = $actionnumber;
  500. }
  501.   }
  503.   # append mode
  504.   if ($first && /^s+(.*S)s*$/) {
  505.     if ($second eq '^') {
  506. $pre{$first} .= " $1";
  507. next;
  508.     }
  509.     if ($second eq '$' ) {
  510. $post{$first} .= " $1";
  511. next;
  512.     }
  513.     if ($second eq '_') {
  514. $deflt{$first} .= " $1";
  515. next;
  516.     }
  518.     if ($second) {
  519. $rcfg{$first}{$second} .= " $1";
  520.     } else {
  521. $cfg{$first} .= " $1";
  522.     }
  523.     next;
  524.   }
  525.   
  526.   if ($first && $second && $post{$first} && ($second !~ /^[$^_]$/)) {
  527.     if ($defaulted{$first}{$second}) {
  528.       $rcfg{$first}{$second} = $post{$first};
  529.       delete $defaulted{$first}{$second};
  530.     } else {
  531.       $rcfg{$first}{$second} .= " $post{$first}"
  532.     }
  533.   }
  535.   if ($first && exists $deflt{$first} && ($second eq '_')) {
  536.     &quickcheck($first,$second,$deflt{$first},$.)
  537.   } elsif ($first && $second && ($second !~ /^[$^_]$/)) {
  538.     &quickcheck($first,$second,$rcfg{$first}{$second},$.)
  539.   } elsif ($first && ($second !~ /^[$^_]$/)) {
  540.     &quickcheck($first,0,$cfg{$first},$.)
  541.   }
  543.   if (/^([A-Za-z0-9.]+)[(S+)]s*:s*(.*S?)s*$/) {
  544.     print "readcfg: rcfg $1 $2  = $3n" if $main::DEBUG > 1; 
  545.     
  546.     $first = lc($1);
  547.     $second = lc($2);
  548.     if ($second eq '^')
  549.       { if ($3 ne '') {$pre{$first}=$3} else {delete $pre{$first}}; next; }
  550.     if ($second eq '$')
  551.       { if ($3 ne '') {$post{$first}=$3} else {delete $post{$first}}; next; }
  552.     if ($second eq '_')
  553.       { if ($3 ne '') {$deflt{$first}=$3} else {delete $deflt{$first}}; next; }
  555.     push (@routers, $second) unless grep (/^$second$/, @routers); 
  556.     
  557.     # make sure that default tags spring into existance upon first 
  558.     # call of a router
  560.     foreach $key (keys %deflt) {
  561. if (! exists $rcfg{$key}{$second}) {
  562.   $rcfg{$key}{$second} = $deflt{$key};
  563.   $defaulted{$key}{$second} = 1;
  564. }
  565.     }
  567.     # make sure that prefix-only tags spring into existance upon first 
  568.     # call of a router
  570.     foreach $key (keys %pre) {
  571. if (! exists $rcfg{$key}{$second}) {
  572.         delete $defaulted{$key}{$second} if $defaulted{$key}{$second};
  573.   $rcfg{$key}{$second} = "$pre{$key} ";
  574. }
  575.     }
  577.     if ($seen{$first}{$second}) {
  578. die ("nLine $. in CFG file contains a duplicate definition forn".
  579.      "$first[$second]. First definition is on line $seen{$first}{$second}n")
  580.     } else {
  581. $seen{$first}{$second} = $.;
  582.     }
  584.     if ($defaulted{$first}{$second}) {
  585.       $rcfg{$first}{$second} = '';
  586.       delete $defaulted{$first}{$second};
  587.     }
  588.     $rcfg{$first}{$second} .= $3;
  590.     next;
  592.   }
  593.   if (/^(S+):s*(.*S)s*$/) {
  594.     $first = lc($1);
  595.     $cfg{$first} = $2;
  596.     $second = '';
  597.     next;
  598.   }
  599.   die ( "nLine $. in CFG file does not make sensen" );
  600. }
  602. # append $ stuff to the very last tag in cfg file if necessary 
  603. if ($first && $second && $post{$first} && ($second !~ /^[$^_]$/)) {
  604.   if ($defaulted{$first}{$second}) {
  605.     $rcfg{$first}{$second} = $post{$first};
  606.     delete $defaulted{$first}{$second};
  607.   } else {
  608.     $rcfg{$first}{$second} .= " $post{$first}"
  609.   }
  610. }
  612. #Tobi, I don't know how you did this, but this is something else:
  613.    #Get highest action number for the last line in the config file...
  614.    if ($first =~ /^action.+/){
  615. $actionnumber = $first;
  616. $actionnumber =~ s/action.//gi;
  617. if($actionnumber > $rcfg{'maxaction'}{$second}){
  618. $rcfg{'maxaction'}{$second} = $actionnumber;
  619. }
  620.    }
  622. #check the last input line
  623.   if ($first && exists $deflt{$first} && ($second eq '_')) {
  624.   &quickcheck($first,$second,$deflt{$first},$.)
  625. } elsif ($first && $second) {
  626.   &quickcheck($first,$second,$rcfg{$first}{$second},$.)
  627. } elsif ($first) {
  628.   &quickcheck($first,0,$cfg{$first},$.)
  629. }
  631. close (CFG);
  632. (@routers, %cfg, %rcfg, $cfgfile);
  633. }
  636. sub cfgcheck {
  637. my ($routers, $cfg, $rcfg) = @_;
  638. my ($rou, $confname, $one_option);
  639. my %node;
  640. my $error="no";
  641. my(@known_options) = qw(alarmifnull);
  642. if (! $$cfg{workdir}) {
  643.     warn ("nERROR: "WorkDir" not specifiedn");
  644.     $error = "yes";
  645. }
  647. foreach $rou (@$routers) {
  648. if ($$rcfg{'directory'}{$rou})
  649. {
  650. # They specified a directory for this router.  Append the
  651. # pathname seperator to it (so that it can either be present or
  652. # absent, and the rules for including it are the same).
  653. $$rcfg{'directory'}{$rou} .= ${main::SL};
  654. # remove any stray spaces ...
  655. $$rcfg{'directory'}{$rou} =~ s/s//g;
  656. }
  658. # Configure e-mail notification for this node
  659. if (defined($$rcfg{'nodestatusemail'}{$rou})){
  660. if($$rcfg{'nodestatusemailtarget'}{$rou} ne ""){
  661. if($$rcfg{'nodestatusemail'}{$rou} =~ /[^cwa *]/i ){
  662. warn ("nERROR: NodeStatusEmail[$rou]: "$$rcfg{'nodestatusemail'}{$rou}" contains invalid options [cwa].n");
  663.       $error="yes";
  664. }else{
  665. if($$rcfg{'nodestatusemail'}{$rou} =~ /c/i ){
  666. $$rcfg{'email'}{'cool'}{$rou} = 1;
  667. }
  668. if($$rcfg{'nodestatusemail'}{$rou} =~ /w/i ){
  669. $$rcfg{'email'}{'warn'}{$rou} = 1;
  670. }
  671. if($$rcfg{'nodestatusemail'}{$rou} =~ /a/i ){
  672. $$rcfg{'email'}{'alarm'}{$rou} = 1;
  673. }
  674. }
  675. }else{
  676.   warn ("nERROR: NodeStatusEmail[$rou]: "$$rcfg{'nodestatusemail'}{$rou}" is given but no NodeStatusEmailTarget[$rou] was found.n");
  677.      $error="yes";
  678. }
  679. }
  681.    if (exists $$rcfg{"options"}{$rou}) {
  682.     foreach $one_option (split /[,s]+/, lc($$rcfg{"options"}{$rou})) {
  683. if (grep {$one_option eq $_} @known_options) {
  684.   $$rcfg{'options'}{$one_option}{$rou} = 1;
  685. } else {
  686.   warn ("nERROR: Option[$rou]: "$one_option" is unknownn");
  687.   $error="yes";
  688. }
  689.     }
  690.   }
  692.   if ($error eq "yes") {
  693.     die ("nnABORT: Please fix the error(s) in your config filenn");
  694.   }
  695. }
  696. %node;
  697. }
  699. sub quickcheck {
  700. my ($first,$second,$arg,$line) = @_;
  701. my %rules =
  702.   (# General CFG
  703.    'workdir' => 
  704.    ['$arg && (-d $arg)','"Directory $arg does not exist"'],
  706.    'eventlog' => 
  707.    ['$arg','"Eventlog path is missing"'],
  709.    'eventlogmax' => 
  710.    ['$arg =~ /d+/','"You must specify a value"'],
  712.    'icondir' => 
  713.    ['$arg && (-d $arg)','"Directory $arg does not exist"'],
  715.    'statusmapbackground' => 
  716.    ['$arg && (-f $arg)','"Image file $arg does not exist"'],
  717.    
  718.    'statusmapimagename' => 
  719.    ['$arg','"Target image name is missing"'],
  721.    'imgsourcedir' => 
  722.    ['$arg && (-d $arg)','"Directory $arg does not exist"'],
  724.    'msgfile' => 
  725.    ['$arg && (-f $arg)','"Message file $arg does not exist"'],
  727.    'statusemailorigin' => 
  728.    ['$arg =~ /w+/','"You must specify something for this option"'],
  730.    'refresh' => 
  731.    ['int($arg) >= 300', '"$arg should be 300 seconds or more"'],
  732.    
  733.    'interval' => 
  734.    ['int($arg) >= 5','"$arg should be more than 5 Minutes"'], 
  736.    'testnodelocations' => 
  737.    ['$arg =~ /[ynYN]/','"This option is either y or n"'],
  739.   #Nodes CFG
  740.    'node[]' => 
  741.    ['$arg =~ /w+/','"You must specify something for this option"'],
  743.    'nodecenterx[]' => 
  744.    ['int($arg) >= 0', '"$arg <-- Value cannot be negative"'],
  746.    'nodecentery[]' => 
  747.    ['int($arg) >= 0', '"$arg <-- Value cannot be negative"'],
  749.    'nodealarmthreshhold[]' => 
  750.    ['$arg =~ /d+/','"You must specify a value"'],
  752.    'nodewarningthreshhold[]' => 
  753.    ['$arg =~ /d+/','"You must specify a value"'],
  755.    'nodeincoolmsgid[]' => 
  756.    ['$arg =~ /w+/','"You must specify something for this option"'],
  758.    'nodeinwarningmsgid[]' => 
  759.    ['$arg =~ /w+/','"You must specify something for this option"'],
  761.    'nodeinalarmmsgid[]' => 
  762.    ['$arg =~ /w+/','"You must specify something for this option"'],
  764.    'nodeoutcoolmsgid[]' => 
  765.    ['$arg =~ /w+/','"You must specify something for this option"'],
  767.    'nodeoutwarningmsgid[]' => 
  768.    ['$arg =~ /w+/','"You must specify something for this option"'],
  770.    'nodeoutalarmmsgid[]' => 
  771.    ['$arg =~ /w+/','"You must specify something for this option"'],
  773.    'nodestatusemail[]' => 
  774.    ['$arg =~ /w+/','"You must specify something for this option"'],
  776.    'nodestatusemailtarget[]' => 
  777.    ['$arg =~ /w+/','"You must specify something for this option"'],
  779.       'options[]' =>
  780.       ['1','"Internal Error"'],
  782.    'action[]' => 
  783.    ['$arg =~ /w+/','"You must specify something for this option"'],
  784.   );
  785.  
  786. my $braces = $second ? '[]':'';
  788. #The actions are different from the other options
  789. if ($first =~ /^action.+/){
  790. if ($first =~ /action.d*/) {
  791.   return 1;
  792. }
  793. }elsif (exists $rules{$first.$braces}) {
  794.   if (eval($rules{$first.$braces}[0])) {
  795.     return 1;
  796.   } else {
  797.     if ($second) {
  798. die "nCFG Error in "$first[$second]", line $line: ".
  799.   eval($rules{$first.$braces}[1])."nn"; 
  800.     } else {
  801. die "nCFG Error in "$first", line $line: ".
  802.   eval($rules{$first.$braces}[1])."nn"; 
  803.     } 
  804.   }
  805. }
  806. die "nCFG Error: Unknown Option "$first" on line $line or above.n".
  807.   "           Check readme.html for Helpnn";
  808. }
  810. sub readmsgfile {
  811. my ($msgfile) = @_;
  812. my ($first,$second,$key);
  813. my (%seen);
  814. my (%rmsg,%msg,%pre,%post);
  816. open (MSGFILE, $msgfile) || do { print "ERROR: unable to open message file: $msgfilenn"};
  817. while (<MSGFILE>) {
  818.   s/s+$//g; #remove whitespace at the end of the line
  819.   s/s/ /g;  #replace whitespace by space
  820.   next if /^s*#/; #ignore comment lines
  821.   next if /^s*$/;  #ignore empty lines
  823.   # append mode
  824.   if ($first && /^s+(.*S)s*$/) {
  825.     if ($second eq '^') {
  826. $pre{$first} .= " $1";
  827. next;
  828.     }
  829.     if ($second eq '$' ) {
  830. $post{$first} .= " $1";
  831. next;
  832.     }
  834.     if ($second) {
  835. $rmsg{$first}{$second} .= " $1";
  836.     } else {
  837. $msg{$first} .= " $1";
  838.     }
  839.     next;
  840.   }
  842.   if (/^(S+):s*(.*S)s*$/) {
  843.     $first = lc($1);
  844.     $msg{$first} = $2;
  845.     $second = '';
  846.     next;
  847.   }
  848.   die ( "nLine $. in MSGFILE file does not make sensen" );
  849. }
  851. close (MSGFILE);
  852. (%msg);
  853. }
  856. sub action_draw_crosshair {
  857. #This one draws a crosshair symbol
  858. my($ImageData, $cfg, $rcfg, $routers, $router, $cox, $coy,$color) = @_;
  860. $cox = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, $cox);
  861. $cox = $cox + nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, $$rcfg{'nodelabeloffsetx'}{$router});
  863. $coy = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, $coy);
  864. $coy = $coy + nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, $$rcfg{'nodelabeloffsety'}{$router});
  866. #Draw the crosshair...
  867.    $ImageData->arc($cox,$coy,30,30,0,360,$color);
  868.    $ImageData->arc($cox,$coy,20,20,0,360,$color);
  869. $ImageData->arc($cox,$coy,10,10,0,360,$color);
  870. $ImageData->line($cox-17,$coy,$cox+17,$coy,$color);
  871. $ImageData->line($cox,$coy-17,$cox,$coy+17,$color);
  872. }
  874. sub datestr {
  875.   my ($time) = shift(@_) || return 0;
  876.   my ($wday) = ('Sunday','Monday','Tuesday','Wednesday',
  877. 'Thursday','Friday','Saturday')[(localtime($time))[6]];
  878.   my ($month) = ('January','February' ,'March' ,'April' ,
  879.  'May' , 'June' , 'July' , 'August' , 'September' , 
  880.  'October' ,
  881.  'November' , 'December' )[(localtime($time))[4]];
  882.   my ($mday,$year,$hour,$min,$sec) = (localtime($time))[3,5,2,1,0];
  883.   if ($min<10) {$min = "0$min";}
  884.   if ($sec<10) {$sec = "0$sec";}
  885.   return "$wday, $month $mday, ".($year+1900)." - $hour:$min:$sec";
  886. }
  888. sub shortdatestr {
  889.   my ($time) = shift(@_) || return 0;
  890.   my ($mday,$month,$year,$hour,$min,$sec) = (localtime($time))[3,4,5,2,1,0];
  891.   $month++;
  892.   if ($min<10) {$min = "0$min";}
  893.   if ($sec<10) {$sec = "0$sec";}
  894.   return "$month/$mday/".($year+1900)." - $hour:$min:$sec";
  895. }
  897. sub nsi_eval {
  898. #Replace references to other nodes and evaluate expressions
  899.    my($ImageData, $cfg, $rcfg, $routers, $router, $evali) = @_;
  901. #Replace .xy-references to other nodes
  902. foreach $eval_node (@$routers) {
  904. my $lceval_node = lc($eval_node);
  906. #Replace "node.x"
  907. $evali =~ s/[W]$lceval_node.x/$$rcfg{'nodecenterx'}{$eval_node}/gie;
  908. $evali =~ s/^$lceval_node.x/$$rcfg{'nodecenterx'}{$eval_node}/gie;
  910. #Replace "node.y"
  911. $evali =~ s/[W]$lceval_node.y/$$rcfg{'nodecentery'}{$eval_node}/gie;
  912. $evali =~ s/^$lceval_node.y/$$rcfg{'nodecentery'}{$eval_node}/gie;
  913. }
  915. #If something else expanded from the nodecenter, evaluate that too...
  916. $evali = lc($evali);
  917. foreach $eval_node (@$routers) {
  919. my $lceval_node = lc($eval_node);
  921. #Replace "node.x"
  922. $evali =~ s/[W]$lceval_node.x/$$rcfg{'nodecenterx'}{$eval_node}/gie;
  923. $evali =~ s/^$lceval_node.x/$$rcfg{'nodecenterx'}{$eval_node}/gie;
  925. #Replace "node.y"
  926. $evali =~ s/[W]$lceval_node.y/$$rcfg{'nodecentery'}{$eval_node}/gie;
  927. $evali =~ s/^$lceval_node.y/$$rcfg{'nodecentery'}{$eval_node}/gie;
  928. }
  930. #Evaluate and format the expression
  931. $evali = sprintf("%.0f",eval($evali));
  932. return $evali;
  933. }
  935. sub getnodevalues {
  936. my ($target, $rou, $rcfg, $cfg) = @_;
  938.    my $period = 0;
  939. my $lastperiod = 0;
  940. my $incurrent=0;
  941.    my $outcurrent=0;
  942. my $inlast = 0;
  943. my $outlast = 0;
  945. open (LOG, "<$$cfg{'workdir'}\\$target.log") or die "ERROR: Can't open .log file for this node: $targetn";
  946. my($counterline,$line,$lastline) = <LOG>;
  947. ($period,$incurrent,$outcurrent)=split(/D/,$line);
  948. ($lastperiod,$inlast,$outlast)=split(/D/,$lastline);
  949. close LOG;
  951. #Check the period (if we're too far out, we've probably lost contact with the node)
  952.    $time = time unless defined $time;
  954. my($timediff)=$time - $period;
  956. #Give it 2 more minutes, then report the node as down
  957. if($timediff > $$cfg{'interval'} * 60 + 120){
  958. $incurrent = -1;
  959. $outcurrent = -1;
  960. }
  961.    ($incurrent, $outcurrent, $inlast, $outlast);
  962. }
  964. sub getnodestatus{
  965. my ($incurrent,$outcurrent,$target, $router, $rcfg, $cfg) = @_;
  967. my $nodeinstatus = "cool";
  968. my $nodeoutstatus = "cool";
  970. #Node down?
  971. if($incurrent eq -1){
  972. $nodeinstatus = "alarm";
  973. $nodeoutstatus = "alarm";
  974. }else{
  975. #Which direction are we looking?
  976. if($$rcfg{'nodealarmthreshhold'}{$router} >= $$rcfg{'nodewarningthreshhold'}{$router}){
  977. #Straight forward
  978. if($incurrent > $$rcfg{'nodewarningthreshhold'}{$router}){
  979. $nodeinstatus = "warning";
  980. }
  981. if($outcurrent > $$rcfg{'nodewarningthreshhold'}{$router}){
  982. $nodeoutstatus = "warning";
  983. }
  984. if($incurrent > $$rcfg{'nodealarmthreshhold'}{$router}){
  985. $nodeinstatus = "alarm";
  986. }
  987. if($outcurrent > $$rcfg{'nodealarmthreshhold'}{$router}){
  988. $nodeoutstatus = "alarm";
  989. }
  990. }else{
  991. #Backwards
  992. if($incurrent < $$rcfg{'nodewarningthreshhold'}{$router}){
  993. $nodeinstatus = "warning";
  994. }
  995. if($outcurrent < $$rcfg{'nodewarningthreshhold'}{$router}){
  996. $nodeoutstatus = "warning";
  997. }
  998. if($incurrent < $$rcfg{'nodealarmthreshhold'}{$router}){
  999. $nodeinstatus = "alarm";
  1000. }
  1001. if($outcurrent < $$rcfg{'nodealarmthreshhold'}{$router}){
  1002. $nodeoutstatus = "alarm";
  1003. }
  1004. }
  1005. }
  1007. #Check for nulls
  1008. if($$rcfg{'options'}{'alarmifnull'}{$router}){
  1009. if($incurrent eq "0"){
  1010. $nodeinstatus = "alarm";
  1011. }
  1012. if($outcurrent eq "0"){
  1013. $nodeoutstatus = "alarm";
  1014. }
  1015. }
  1016. ($nodeinstatus,$nodeoutstatus);
  1017. }
  1019. sub drawnodeline{
  1020. my ($ImageData, $gdstyles, $cfg, $rcfg, $routers, $router, $msg, $nodeinstatus, $nodeoutstatus, $incurrent, $outcurrent, $direction, $cond, $source, $destination, $style) = @_;
  1022. #Expand our numeric arguments
  1023. my $sourcex = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$source.x");
  1024. my $sourcey = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$source.y");
  1025. my $destinationx = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$destination.x");
  1026. my $destinationy = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$destination.y");
  1028. my $absnodestatus = "$direction$cond";
  1029. my $absnodeinstatus = "in$nodeinstatus";
  1030. my $absnodeoutstatus = "out$nodeoutstatus";
  1032. #Draw something depending on the node's status
  1033. if ($absnodestatus eq $absnodeinstatus || $absnodestatus =~ /always/i){
  1034. $ImageData->setStyle(split(/,/,$$gdstyles{$style}{'style'}));
  1035. #$ImageData->setStyle($$gdstyles{$style}{'style'});
  1036. $ImageData->line($sourcex,$sourcey,$destinationx,$destinationy,gdStyled);
  1037. }
  1039. }
  1041. sub copyimage{
  1042. my ($ImageData, $gdstyles, $cfg, $rcfg, $routers, $router, $msg, $nodeinstatus, $nodeoutstatus, $incurrent, $outcurrent, $direction, $cond, $image, $coordx, $coordy) = @_;
  1043. #Expand our numeric arguments
  1045. my $coordx = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$coordx");
  1046. my $coordy = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$coordy");
  1048. my $absnodestatus = "$direction$cond";
  1049. my $absnodeinstatus = "in$nodeinstatus";
  1050. my $absnodeoutstatus = "out$nodeoutstatus";
  1052. #Draw something depending on the node's status
  1053. if ($absnodestatus eq $absnodeinstatus || $absnodestatus =~ /always/i){
  1054. open (SRCIMG,"<$$cfg{'icondir'}\\$image") || die "ERROR: Can't open source image for copy: $$cfg{'icondir'}\\$imagen";
  1055.     my($srcImageData) = newFromGif GD::Image(SRCIMG) || die "ERROR: GD::newFromGifn";
  1056.     close SRCIMG;
  1057.     my($srcImgDataSizeX,$srcImgDataSizeY) = $srcImageData->getBounds;
  1058. $ImageData->copy($srcImageData,$coordx,$coordy,0,0,$srcImgDataSizeX,$srcImgDataSizeY);
  1059. }
  1060. }
  1063. sub multicopyimage{
  1064. my ($ImageData, $gdstyles, $cfg, $rcfg, $routers, $router, $msg, $nodeinstatus, $nodeoutstatus, $incurrent, $outcurrent, $direction, $cond, $image, $coordx, $coordy, $howoften, $minoften, $maxoften, $stepsize, $angle) = @_;
  1065. #Expand our numeric arguments
  1067. print "Coordinates: $coordx/$coordyn";
  1069. my $coordx = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$coordx");
  1070. my $coordy = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$coordy");
  1071. my $howoften = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$howoften");
  1073. print "Coordinates: $coordx/$coordyn";
  1075. if ($howoften < $minoften){
  1076. $howoften = $minoften;
  1077. }
  1078. if ($howoften > $maxoften){
  1079. $howoften = $maxoften;
  1080. }
  1082. my $absnodestatus = "$direction$cond";
  1083. my $absnodeinstatus = "in$nodeinstatus";
  1084. my $absnodeoutstatus = "out$nodeoutstatus";
  1086. #Draw something depending on the node's status
  1087. if ($absnodestatus eq $absnodeinstatus || $absnodestatus =~ /always/i){
  1088. open (SRCIMG,"<$$cfg{'icondir'}\\$image") || die "ERROR: Can't open source image for copy: $$cfg{'icondir'}\\$imagen";
  1089.     my($srcImageData) = newFromGif GD::Image(SRCIMG) || die "ERROR: GD::newFromGifn";
  1090.     close SRCIMG;
  1092. my($srcImgDataSizeX,$srcImgDataSizeY) = $srcImageData->getBounds;
  1093. my $rad = ($angle * 3.141592654) / 180;
  1095. if ($stepsize >= 0){
  1096. for($multicounter = 0; $multicounter < $howoften; $multicounter++){
  1097.    my $hyp = $multicounter * $stepsize;
  1098. my $a = sprintf("%.0f",sin($rad) * $hyp);
  1099. my $b = sprintf("%.0f",cos($rad) * $hyp);
  1100. #print "Angle: $angle, Rad: $rad, a: $a, b: $bn";
  1101. $ImageData->copy($srcImageData,$coordx + $b,$coordy - $a,0,0,$srcImgDataSizeX,$srcImgDataSizeY);
  1102. }
  1103. }else{
  1104. $stepsize = abs($stepsize);
  1105. for($multicounter = $howoften - 1; $multicounter >= 0; $multicounter--){
  1106.    my $hyp = $multicounter * $stepsize;
  1107. my $a = sprintf("%.0f",sin($rad) * $hyp);
  1108. my $b = sprintf("%.0f",cos($rad) * $hyp);
  1109. #print "Angle: $angle, Rad: $rad, a: $a, b: $bn";
  1110. $ImageData->copy($srcImageData,$coordx + $b,$coordy - $a,0,0,$srcImgDataSizeX,$srcImgDataSizeY);
  1111. }
  1112. }
  1113. }
  1114. }
  1117. sub drawtext{
  1118. my ($ImageData, $gdstyles, $cfg, $rcfg, $routers, $router, $msg, $nodeinstatus, $nodeoutstatus, $incurrent, $outcurrent, $direction, $cond, $font, $coordx, $coordy, $textid, $color) = @_;
  1119. #Expand our numeric arguments
  1120. my $coordx = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$coordx");
  1121. my $coordy = nsi_eval($ImageData, $cfg, $rcfg, $routers, $router, "$coordy");
  1123. my $absnodestatus = "$direction$cond";
  1124. my $absnodeinstatus = "in$nodeinstatus";
  1125. my $absnodeoutstatus = "out$nodeoutstatus";
  1127. #Draw something depending on the node's status
  1128. if ($absnodestatus eq $absnodeinstatus || $absnodestatus =~ /always/i){
  1129. if(!defined($$msg{$textid})){
  1130. $$msg{$textid} = "MSG not defined!";
  1131. }
  1132. if($font eq 1){$ImageData->string(gdTinyFont,$coordx,$coordy,$$msg{$textid},$colors{$color});}
  1133. if($font eq 2){$ImageData->string(gdSmallFont,$coordx,$coordy,$$msg{$textid},$colors{$color});}
  1134. if($font eq 3){$ImageData->string(gdMediumBoldFont,$coordx,$coordy,$$msg{$textid},$colors{$color});}
  1135. if($font eq 4){$ImageData->string(gdLargeFont,$coordx,$coordy,$$msg{$textid},$colors{$color});}
  1136. }
  1137. }
  1139. sub transeventvar{
  1140. my ($cfg, $rcfg, $routers, $router, $incurrent, $outcurrent, $transstring) = @_;
  1143. my @transsplit = split(/$/,$transstring);
  1144. my $maxelements = $transsplit;
  1146. print "MAXELEMNTS: $transstringn";
  1148. for ($transcounter = 0; $transcounter <= $maxelements; $transcounter++){
  1149. $transstring =~ s/$NodeWarningThreshhold/$$rcfg{nodewarningthreshhold}{$router}/i;
  1150. $transstring =~ s/$NodeAlarmThreshhold/$$rcfg{nodealarmthreshhold}{$router}/i;
  1151. $transstring =~ s/$NodeIn/$incurrent/i;
  1152. $transstring =~ s/$NodeOut/$outcurrent/i;
  1153. }
  1155. return $transstring;
  1156. }
  1158. sub sendmail{
  1159. my ($cfg, $rcfg, $routers, $router, $incurrent, $outcurrent, $event, $eventtype, $address) = @_;
  1160. print "Sending e-mail to: $address from $$cfg{'statusemailorigin'}n";
  1162. my $smtp = Net::SMTP->new('hampton.lam.liebherr.com'); # connect to an SMTP server
  1164. foreach $target (split(/;/,$address)){
  1165.    $smtp->mail( $$cfg{'statusemailorigin'} );     # use the sender's address here
  1166.    $smtp->to($target);         # recipient's address
  1167.    $smtp->data();                      # Start the mail
  1169.    # Send the header.
  1170.    $smtp->datasend("To: $addressn");
  1171.    $smtp->datasend("From: $$cfg{'statusemailorigin'}n");
  1172. $smtp->datasend("Subject: $eventtype on Node "$router"n");
  1173.    $smtp->datasend("n");
  1175.     # Send the body.
  1176.    $smtp->datasend("$eventn");
  1177. $smtp->datasend("n");
  1178. $smtp->datasend("n");
  1179. $smtp->datasend("*******************************************************n");
  1180. $smtp->datasend("***   This was an automated network status update   ***n");
  1181. $smtp->datasend("***             message generated by:               ***n");
  1182. $smtp->datasend("***    NSI v1.0 for MRTG, Created by Mac Kloberg    ***n");
  1183. $smtp->datasend("***  <mac.kloberg@lam.liebherr.com> <mac@nacs.net>  ***n");
  1184. $smtp->datasend("*******************************************************n");
  1185.    $smtp->dataend();                   # Finish sending the mail
  1186. }
  1187. $smtp->quit;                        # Close the SMTP connection
  1188. }