sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-07-13 23:39:20 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions
ports/net-mgmt/aspathtree/files/patch-update-rtree
Martin Wilke e1840655aa - Clean up: remove old terminology and disable 6Bone specific code 
PR:		123764
Submitted by:	Janos Mohacsi <janos.mohacsi@bsd.hu> (maintainer)
2008-05-18 14:00:51 +00:00

192 lines
10 KiB
Text
Raw Blame History

$FreeBSD$
--- 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";
}
Reference in a new issue View git blame Copy permalink