Changeset dc803a7 for fedkit/gated_routing.pl
- Timestamp:
- Mar 12, 2010 2:37:32 AM (14 years ago)
- Branches:
- axis_example, compt_changes, info-ops, master, version-3.01, version-3.02
- Children:
- 7e50f69
- Parents:
- 310d419
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
fedkit/gated_routing.pl
r310d419 rdc803a7 6 6 7 7 my $IFCONFIG = "/sbin/ifconfig"; 8 my $GATED= "/usr/sbin/gated"; 8 my @GATEDS= ("/usr/sbin/gated", "/sbin/gated" ); 9 my $GATED; 9 10 10 11 my $fn = "/usr/local/federation/etc/gated.conf"; … … 21 22 } 22 23 $ifp->close(); 24 25 foreach my $g (@GATEDS) { 26 if (-x $g ) { 27 $GATED = $g; 28 last; 29 } 30 } 31 32 die "Can't find gated in " . join(",", @GATEDS) . "\n" unless $GATED; 23 33 24 34 my $f = new IO::File(">$fn") || die "Can't open $fn: $!\n";
Note: See TracChangeset
for help on using the changeset viewer.