
$FreeBSD: ports/net-mgmt/aspathtree/files/patch-update-rtree,v 1.2 2008/05/18 14:00:51 miwi Exp $

--- update-rtree.orig
+++ update-rtree
@@ -1,13 +1,13 @@
-#!/usr/local/bin/perl
+#!%%PATHPERLBIN%%
 #### ASpath-tree v.4.2 - Released on Thu APR 17 2003, h.16:58:12
 #### File: update-rtree Last modified on Tue MAR 18 2003, h.22:59:48
 
 
 # Configuration File
-my $CONFIGFILE = "/etc/ASpath-tree.config";
+my $CONFIGFILE = "%%PREFIX%%/etc/ASpath-tree.config";
 
 # Global variables
-use vars qw ($HOMEDIR $RSHDIR $ROUTER $LOCAL $ROUTERADDR $ROUTERUSER $CONTACTNAME $CONTACTMAIL $SITENAME $SITEPICTURE $HTMLDIR
+use vars qw ($HOMEDIR $RSHDIR $ROUTER $LOCAL $ROUTERADDR $ROUTERUSER $ROUTERUSERPASS $CONTACTNAME $CONTACTMAIL $SITENAME $SITEPICTURE $HTMLDIR
              $WHOISLINK $QUIET $DEBUG $FILTEROUT $RIPEWHOISCLIENT $MORETREES);
 use vars qw ($DATADIR $ROOTPICTURE $LIB $ICONS $WARNINGTIME $HISTORYPERIOD $FLAG_COLLECT $LONGDATE $CURRENTTIME $LASTRUN);
 use vars qw ($SIXBONEDB $IPV6PREFIXTABLE $PTLA_FILE $HISTORYFILE $LASTRUNFILE $OLDASPATHSFILE $OLDDATEFILE $OLDBBASPATHSFILE
@@ -106,6 +106,7 @@
 		if ($line =~ /^\s*LOCAL\s*=\s*(.*)/)         {$LOCAL = $1}
 		if ($line =~ /^\s*ROUTERADDR\s*=\s*(.*)/)    {$ROUTERADDR = $1}
 		if ($line =~ /^\s*ROUTERUSER\s*=\s*(.*)/)    {$ROUTERUSER = $1}
+		if ($line =~ /^\s*ROUTERUSERPASS\s*=\s*(.*)/)    {$ROUTERUSERPASS = $1}
 		if ($line =~ /^\s*CONTACTNAME\s*=\s*(.*)/)   {$CONTACTNAME = $1}
 		if ($line =~ /^\s*CONTACTMAIL\s*=\s*(.*)/)   {$CONTACTMAIL = $1}
 		if ($line =~ /^\s*SITENAME\s*=\s*(.*)/)      {$SITENAME = $1}
@@ -120,9 +121,9 @@
 
 # DEFAULT values setting...(if not explicitely declared) and ERROR checking ...
 	die "ERROR in configuration file: parameter HOMEDIR not set!\n"    unless ($HOMEDIR);
-	die "ERROR in configuration file: parameter HOMEDIR not correct!\n"    unless (-e "$HOMEDIR/update-rtree");
+	die "ERROR in configuration file: parameter HOMEDIR not correct!\n"    unless (-d "$HOMEDIR");
 
-	$LOGDIR = "$HOMEDIR/log"; unless (-e "$LOGDIR") {mkdir("$LOGDIR", 0777)};
+	$LOGDIR = "$HOMEDIR/log"; unless (-e "$LOGDIR") {mkdir("$LOGDIR", 0775)};
 	if ($DEBUG) {open(LOGFILE, "> $LOGDIR/runlog.txt"); close(LOGFILE)}
 	&log_it_and_die("ERROR in configuration file: parameter SITENAME not set!")   unless ($SITENAME);
 	&log_it_and_die("ERROR in configuration file: parameter ROUTER = \"$ROUTER\" not acceptable!") if ($ROUTER && !grep(/^$ROUTER$/, ("CISCO", "JUNIPER" , "ZEBRA", "ZEBRA93")));
@@ -134,13 +135,13 @@
 	}
 	unless ($WHOISLINK)     {$WHOISLINK = "http://whois.6bone.net/cgi-bin/whois"}
 	unless ($DATADIR)       {$DATADIR = "$HOMEDIR/data"}
-	unless ($LIB)           {$LIB = "$HOMEDIR/lib"}
+	unless ($LIB)           {$LIB = "%%PREFIX%%/libexec/aspathtree"}
 	unless ($FILTEROUT)     {$FILTEROUT = 0}
 	$ICONS = "./icons";
 	$WARNINGTIME = 5;
 	$HISTORYPERIOD = 24;
 	$RIPEWHOISLINK         = "http://www.ripe.net/perl/whois?form_type=simple&full_query_string=&searchtext=-s+ARIN%2CAPNIC%2CRIPE";
-	$VER = "v.4.2";
+	$VER = "v.4.2 modif 6NET";
 	$logtext .= "  Configuration file: $file.\n";
 	$logtext .= "  HOMEDIR = $HOMEDIR\n";
 	$logtext .= "  Parser = ";
@@ -199,28 +200,28 @@
 	$logtext .= "  LASTRUNFILE = \"$LASTRUNFILE\"\n";
 	$logtext .= "  PTLASHISTORYDIR = \"$PTLASHISTORYDIR\" ";
 	if (-e "$PTLASHISTORYDIR") {$logtext .= "(ok)\n"}
-	else {mkdir("$PTLASHISTORYDIR", 0777); $logtext .= "(created)\n"}
+	else {mkdir("$PTLASHISTORYDIR", 0775); $logtext .= "(created)\n"}
 	$logtext .= "  OTHERHISTORYDIR = \"$OTHERHISTORYDIR\" ";
 	if (-e "$OTHERHISTORYDIR") {$logtext .= "(ok)\n"}
-	else {mkdir("$OTHERHISTORYDIR", 0777); $logtext .= "(created)\n"}
+	else {mkdir("$OTHERHISTORYDIR", 0775); $logtext .= "(created)\n"}
 	$logtext .= "  Complete tree dir = \"$HOMEDIR/history/completetree\" ";
 	if (-e "$HOMEDIR/history/completetree") {$logtext .= "(ok)\n"}
-	else {mkdir("$HOMEDIR/history/completetree", 0777); $logtext .= "(created)\n"}
+	else {mkdir("$HOMEDIR/history/completetree", 0775); $logtext .= "(created)\n"}
 	$logtext .= "  OLDASPATHSFILE = \"$OLDASPATHSFILE\"\n";
 	$logtext .= "  OLDDATEFILE = \"$OLDDATEFILE\"\n";
-	if ($MORETREES) {
+	if ($NOMORETREES) {
 		$OLDOTHASPATHSFILE     = "$HOMEDIR/history/othertree/aspaths.txt";
 		$OLDOTHDATEFILE        = "$HOMEDIR/history/othertree/lastchangedate.txt";
 		$OLDBBASPATHSFILE      = "$HOMEDIR/history/bbtree/bbaspaths.txt";
 		$OLDBBDATEFILE         = "$HOMEDIR/history/bbtree/lastchangedate.txt";
 		$logtext .= "  BB tree dir = \"$HOMEDIR/history/bbtree\" ";
 		if (-e "$HOMEDIR/history/bbtree") {$logtext .= "(ok)\n"}
-		else {mkdir("$HOMEDIR/history/bbtree", 0777); $logtext .= "(created)\n"}
+		else {mkdir("$HOMEDIR/history/bbtree", 0775); $logtext .= "(created)\n"}
 		$logtext .= "  OLDBBASPATHSFILE = \"$OLDBBASPATHSFILE\"\n";
 		$logtext .= "  OLDBBDATEFILE = \"$OLDBBDATEFILE\"\n";
 		$logtext .= "  2001 tree dir = \"$HOMEDIR/history/othertree\" ";
 		if (-e "$HOMEDIR/history/othertree") {$logtext .= "(ok)\n"}
-		else {mkdir("$HOMEDIR/history/othertree", 0777); $logtext .= "(created)\n"}
+		else {mkdir("$HOMEDIR/history/othertree", 0775); $logtext .= "(created)\n"}
 		$logtext .= "  OLDOTHASPATHSFILE = \"$OLDOTHASPATHSFILE\"\n";
 		$logtext .= "  OLDOTHDATEFILE = \"$OLDOTHDATEFILE\"\n";
 	} else {
@@ -236,7 +237,7 @@
 	$logtext .= "  OUTPUTCOMPLETE = \"$OUTPUTCOMPLETE\"\n";
 	$OUTPUTBB      = "$HTMLDIR_LOCAL/bgp-page-backbone.html";
 	$OUTPUTIANA    = "$HTMLDIR_LOCAL/bgp-page-otherIANA.html";
-	if ($MORETREES) {
+	if ($NOMORETREES) {
 		$logtext .= "  OUTPUTBB = \"$OUTPUTBB\"\n";
 		$logtext .= "  OUTPUTIANA = \"$OUTPUTIANA\"\n";
 	}
@@ -246,12 +247,12 @@
 		$CHANGESDIR            = "$HTMLDIR_LOCAL/changes";
 		$logtext .= "  CHANGESDIR = \"$CHANGESDIR\" ";
 		if (-e "$CHANGESDIR") {$logtext .= "(ok)\n"}
-		else {mkdir("$CHANGESDIR", 0777); $logtext .= "(created)\n"}
+		else {mkdir("$CHANGESDIR", 0775); $logtext .= "(created)\n"}
 		$OUTPUTCOMPLETECHANGES     = "$CHANGESDIR/bgp-page-complete-changes.html";
 		$logtext .= "  OUTPUTCOMPLETECHANGES = \"$OUTPUTCOMPLETECHANGES\"\n";
 		$OUTPUTBBCHANGES   = "$CHANGESDIR/bgp-page-backbone-changes.html";
 		$OUTPUTIANACHANGES = "$CHANGESDIR/bgp-page-otherIANAchanges.html";
-		if ($MORETREES) {
+		if ($NOMORETREES) {
 			$logtext .= "  OUTPUTBBCHANGES = \"$OUTPUTBBCHANGES\"\n";
 			$logtext .= "  OUTPUTIANACHANGES = \"$OUTPUTIANACHANGES\"\n";
 		}
@@ -260,19 +261,19 @@
 	$DETAILDIRCO           = "$DETAILDIR/complete";
 	$logtext .= "  DETAILDIR = \"$DETAILDIR\" ";
 	if (-e "$DETAILDIR") {$logtext .= "(ok)\n"}
-	else {mkdir("$DETAILDIR", 0777); $logtext .= "(created)\n"}
+	else {mkdir("$DETAILDIR", 0775); $logtext .= "(created)\n"}
 	$logtext .= "  DETAILDIRCO = \"$DETAILDIRCO\" ";
 	if (-e "$DETAILDIRCO") {$logtext .= "(ok)\n"}
-	else {mkdir("$DETAILDIRCO", 0777); $logtext .= "(created)\n"}
-	if ($MORETREES) {
+	else {mkdir("$DETAILDIRCO", 0775); $logtext .= "(created)\n"}
+	if ($NOMORETREES) {
 		$DETAILDIRBB   = "$DETAILDIR/backbone";
 		$DETAILDIRIANA = "$DETAILDIR/otherIANA";
 		$logtext .= "  DETAILDIRBB = \"$DETAILDIRBB\" ";
 		if (-e "$DETAILDIRBB") {$logtext .= "(ok)\n"}
-		else {mkdir("$DETAILDIRBB", 0777); $logtext .= "(created)\n"}
+		else {mkdir("$DETAILDIRBB", 0775); $logtext .= "(created)\n"}
 		$logtext .= "  DETAILDIRIANA = \"$DETAILDIRIANA\" ";
 		if (-e "$DETAILDIRIANA") {$logtext .= "(ok)\n"}
-		else {mkdir("$DETAILDIRIANA", 0777); $logtext .= "(created)\n"}
+		else {mkdir("$DETAILDIRIANA", 0775); $logtext .= "(created)\n"}
 	} else {
 		if (-e "$DETAILDIRBB") {system "rm -rf $DETAILDIRBB"}
 		if (-e "$DETAILDIRIANA") {system "rm -rf $DETAILDIRIANA"}
@@ -280,30 +281,30 @@
 	$HISTORYHTMLDIR        = "$HTMLDIR_LOCAL/24h_history";
 	$logtext .= "  HISTORYHTMLDIR = \"$HISTORYHTMLDIR\" ";
 	if (-e "$HISTORYHTMLDIR") {$logtext .= "(ok)\n"}
-	else {mkdir("$HISTORYHTMLDIR", 0777); $logtext .= "(created)\n"}
+	else {mkdir("$HISTORYHTMLDIR", 0775); $logtext .= "(created)\n"}
 	$ICONSDIR              = "$HTMLDIR_LOCAL/icons";
 	$logtext .= "  ICONSDIR = \"$ICONSDIR\"\n";
 	$logtext .= "  Trash dir = \"$HTMLDIR_LOCAL/trash\" ";
 	if (-e "$HTMLDIR_LOCAL/trash") {system "rm -rf $HTMLDIR_LOCAL/trash/*"; $logtext .= "(ok, empty)\n"}
-	else {mkdir("$HTMLDIR_LOCAL/trash", 0777); $logtext .= "(created)\n"}
+	else {mkdir("$HTMLDIR_LOCAL/trash", 0775); $logtext .= "(created)\n"}
 
 	$logtext .= "\n  HTMLDIR = \"$HTMLDIR\"\n";
 	if (-d $HTMLDIR) {
-		unless (-e "$HTMLDIR/details") {mkdir("$HTMLDIR/details", 0777); $logtext .= "  $HTMLDIR/details created.\n"}
-		unless (-e "$HTMLDIR/details/complete") {mkdir("$HTMLDIR/details/complete", 0777); $logtext .= "  $HTMLDIR/details/complete created.\n"}
-		if ($MORETREES) {
-			unless (-e "$HTMLDIR/details/backbone") {mkdir("$HTMLDIR/details/backbone", 0777); $logtext .= "  $HTMLDIR/details/backbone created.\n"}
-			unless (-e "$HTMLDIR/details/otherIANA") {mkdir("$HTMLDIR/details/otherIANA", 0777); $logtext .= "  $HTMLDIR/details/otherIANA created.\n"}
+		unless (-e "$HTMLDIR/details") {mkdir("$HTMLDIR/details", 0775); $logtext .= "  $HTMLDIR/details created.\n"}
+		unless (-e "$HTMLDIR/details/complete") {mkdir("$HTMLDIR/details/complete", 0775); $logtext .= "  $HTMLDIR/details/complete created.\n"}
+		if ($NOMORETREES) {
+			unless (-e "$HTMLDIR/details/backbone") {mkdir("$HTMLDIR/details/backbone", 0775); $logtext .= "  $HTMLDIR/details/backbone created.\n"}
+			unless (-e "$HTMLDIR/details/otherIANA") {mkdir("$HTMLDIR/details/otherIANA", 0775); $logtext .= "  $HTMLDIR/details/otherIANA created.\n"}
 		} else {
 			if (-e "$HTMLDIR/details/backbone") {system "rm -rf $HTMLDIR/details/backbone"}
 			if (-e "$HTMLDIR/details/otherIANA") {system "rm -rf $HTMLDIR/details/otherIANA"}
 		}
-		unless (-e "$HTMLDIR/24h_history") {mkdir("$HTMLDIR/24h_history", 0777); $logtext .= "  $HTMLDIR/24h_history created.\n"}
+		unless (-e "$HTMLDIR/24h_history") {mkdir("$HTMLDIR/24h_history", 0775); $logtext .= "  $HTMLDIR/24h_history created.\n"}
 		if ($CHANGESFLAG) {
-			unless (-e "$HTMLDIR/changes") {mkdir("$HTMLDIR/changes", 0777); $logtext .= "  $HTMLDIR/changes created.\n"}
+			unless (-e "$HTMLDIR/changes") {mkdir("$HTMLDIR/changes", 0775); $logtext .= "  $HTMLDIR/changes created.\n"}
 		}
 		unless (-e "$HTMLDIR/icons") {
-			mkdir("$HTMLDIR/icons", 0777);
+			mkdir("$HTMLDIR/icons", 0775);
 			system("cp $ICONSDIR/* $HTMLDIR/icons");
 			$logtext .= "  $HTMLDIR/icons created and template icons copied.\n";
 		}
@@ -312,7 +313,7 @@
 
 	$INDEXPAGE = "bgp.html";
 	$LINKDIR               = "details/complete";
-	if ($MORETREES) {
+	if ($NOMORETREES) {
 		$LINKDIRBB     = "details/backbone";
 		$LINKDIRIANA   = "details/otherIANA";
 	}
