So to keep the URL exactly the same and go to a different web server there is really no way.
you guys write in code and are probably DBA's??
Well you can code something in one line when it takes some one else a few paragraphs.
#!/bin/bashset -eu#grabs the DROP list from spamhaus, and updates from router. after first run updates only changes mydir=/var/scripts/droplistcloginpath=/var/lib/rancid/binrouters="ip's of routers"cd $mydir#y will test if this is the first time the script has been run, if so we will launch the update script with only the current droplist and no comparisiony="0"if [ ! -e DropFileNameList ]; thentouch DropFileNameListy="1"fi# set the parameters to be passed to the update perl script, the last updated DROP listif [ $y != 1 ]; then OlderDropFile=`tail --lines=1 DropFileNameList` plmod='-o'else OlderDropFile='' plmod=''fi#grab the DROP list, store the most recent droplist in variable NewDropFile wget --output-document=$(date +%F) www.spamhaus.org/drop/drop.lassodate +%F >> DropFileNameListNewDropFile=`tail --lines=1 DropFileNameList`#run the script if the drop list is smaller than 500 linessizeoflist=`wc -l DropFileNameList | cut -f 1 -d " "`if [ $sizeoflist -lt 500 ]; then #call the update program push route configuration commands to the DroPush file, overwrite ./dropupdate.pl $plmod $OlderDropFile $NewDropFile > DropPush echo -e "config term\n$(cat DropPush)\nend\nwr mem\nexit\n" > DropPushfi#make sure ip route commands existif [ $(grep ip DropPush) ]; then$cloginpath/clogin -x $mydir/DropPush $routersfi
#!/usr/bin/perl# -*- perl -*-use Getopt::Std;use strict;use vars qw{%nets $n $m $opt_o};getopts('o:');while(<>) { if(($n, $m) = m{(\d+\.\d+\.\d+\.\d+)/(\d+)}) { # local sanity check die "local network $n" if $n =~ /^127.|^your networks here|^0.0/; die "mask /$m to large" if $m < 7; $nets{$n} = $m; } else {# $x = 1; }}# do old thing here sometimeif($opt_o) { open(OLD, $opt_o) or die "Cannot open $opt_o $!"; while(<OLD>) { if(($n, $m) = m{(\d+\.\d+\.\d+\.\d+)/(\d+)}) { my $mask = join '.',unpack "CCCC", pack "N", -1<<(32-$m); if(exists $nets{$n} and $nets{$n} == $m) {# print "# exists route add -net $n/$m\n"; delete $nets{$n}; } else { print "no ip route $n $mask Null0\n"; #route delete -net $n -netmask $mask\n"; #print "route delete -net $n/$m\n"; } } else { #print "#??? $_\n"; # $x = 1; } } close OLD;}while(($n, $m) = each %nets) { my $mask = join '.',unpack "CCCC", pack "N", -1<<(32-$m); #print "route add -net $n -netmask $m 127.1 -blackhole # m\n"; #print "route add -net $n/$m 127.1 -blackhole\n"; print "ip route $n $mask Null0\n";}