#!/usr/bin/perl -w
#this script will add action URLs to the nagios config files, right after the first '}' it encounters
use strict;
$^I = ".bak"; #use .bak backup extension
my $sitename; #relative sitename for each file

& get_the_sitename($sitename)
& write_the_action_url()

sub get_the_sitename { 			# loop thru the file and look for something like a sitename, store it in $sitename and end the IF loop if successful
while (<>) {
if (/host_name\s+((?:\w+\.\w+\.\w+))/) {
$sitename = $1;
last if (1==1);
				}
	}
}

#the problem with the ABOVE block of code is that it writes a blank file, but I only wanted to get the $sitename var to use in the substitution below.

sub write_the_action_url{ 		#add several new lines to the file using $sitename so new URL additions are relative
while(<>){
if (/}/) {			#match the first right curly 

#use substitute to add all these lines after the first } curly is found. Since There are several } curlys in the file, stop after it finds the first one and makes the substitutions.

  s:(}):}\n\n\#\# BEGIN EXTINFO\ndefine hostextinfo{\n\thost_name\t$sitename\n\taction_url\t$sitename/mrtg\n\ticon_image\torb2.gif\n\ticon_image_alt\tMRTG\n\n}\n\ndefine serviceextinfo{\n\thost_name\t$sitename\n\tservice_description\tServerStatus\n\tnotes\tLinks to ServerStatus page\n\taction_url\t$sitename/xr/status.xml\n\ticon_image\torb1.gif\n\ticon_image_alt\tStatus Page\n}\n\ndefine serviceextinfo{\n\thost_name\t$sitename\n\tservice_description\tHTTP\n\tnotes\t$sitename\n\taction_url\t$sitename\n\ticon_image\thome.gif\n\ticon_image_alt\tHomepage\n}\n\n$1\n\n\#\# END EXTINFO:;
#print $sitename;
        last if (1==1);

        }
   }

}

#!/usr/bin/perl -w
#this script will, for each file, match a sitename www.sitename.com then add a new
#relative URL to the file. Adds the new lines after the first '}' it matches.
use strict;
$^I = ".bak"; #use .bak backup extension
my $sitename; #relative sitename for each file

& get_the_sitename($sitename)
& write_the_action_url()

sub get_the_sitename { 			# loop thru the file and look for something like a sitename, store it in $sitename and end the IF loop if successful
while (<>) {
if (/host_name\s+((?:\w+\.\w+\.\w+))/) { #match "host_name www.sitename.com"
$sitename = $1;             # put the results of the match in $sitename
last if (1==1);             # there are multiple instances of www.sitename.com in the file, so stop the loop after the first one is encountered, then proceed.
				}
	}
}

#the problem with the ABOVE block of code is that it writes a blank file, but I only wanted to get the $sitename var to use in the substitution below.

sub write_the_action_url{ 		#add several new lines to the file using $sitename so new URL additions are relative
while(<>){
if (/}/) {			#match the first right curly 

#use substitute to add all these lines after the first } curly is found. Since There are several } curlys in the file, stop after it finds the first one and makes the substitutions.

  s/}/}\nline1\t$sitename\nline2\t$sitename/    #after the first curly, add a few lines of text with the contents of $sitename from the previous loop.
        last if (1==1);                         #there are muliple } curly files, so end the script after this to keep from adding redundant information.

        }
   }

}

#!/usr/bin/perl -w
use strict;

$^I=".bak";
undef $/;

while(<>) {
	my ($sitename) = /host_name\s+(\w+\.\w+\.\w+)/;
	s/}/}\nline1\t$sitename\nline2\t$sitename/;
	print;
}

perldoc perlstyle