hiegentlich moechte ich den befehl route in meinem perl script verwenden .
der normale aufruf sieht so aus.
~/bin >route add -net 10.11.222.0/24 195.39.223.205
route: writing to routing socket: File exists
add net 10.11.222.0/24: gateway 195.39.223.205: File exists
nun kann ich den 2ten teil der fehleremeldung verarbeiten ,
add net 10.11.222.0/24: gateway 195.39.223.205: File exists
jedoch das
route: writing to routing socket: File exists
bekomme ich nicht in den griff.
aktuell sieht mein code so aus
foreach my $z (@routings) {
if ( $z =~ /^\!route add/ ) {
$z =~ s/\!route add// ;
my $routecmd="$route_path/route add $z";
open (ROUTE, "$routecmd|") ;# or die syslog("err","$route_path/$route_prg not found" )or die "logging failed";
while (<ROUTE>) {
chomp ;
if ( $_ =~ /\: File exists$/ ) {
push (@output,$_) ;
}
}
}
}
die daten die er bekommt sehen so aus
inet 10.10.223.201 255.255.255.0 NONE group privat
!route add -net 10.90.1.0/24 10.10.223.15
!route add -net 10.100/22 10.10.223.15
!route add -net 10.202.1.0/24 10.10.223.242
!route add -net 10.203.1.0/24 10.10.223.242
!route add -host 192.168.171.40 10.10.223.242
rufe ich das ganze auf sieht das so aus.
route: writing to routing socket: File exists
route: writing to routing socket: File exists
route: writing to routing socket: File exists
route: writing to routing socket: File exists
route: writing to routing socket: File exists
route: writing to routing socket: File exists
route: writing to routing socket: File exists
hintergrund ist der das ich , wenn der fehler
"route ...... exists" auftritt ich in eine
entsprechende routine springen will und das routing neu zu setzen ( erst ein del dann ein add ) .
hat jemand eine idee ?
holger
Datum: 05.06.2007-17:04
route komando
