LJ Archive

Listing 5. Perl for Router Server

#!/usr/bin/perl
[...]
sub loadSettings {
   my($recv) = shift;
   [...]
   if ($recv eq "SLA_X") {
     # execute "ipchains-restore" for
     # this SLA & check for errors
   } else {
     # if we're here, we didn't
     # understand the SLA, so throw an error
   }
   [...]
}
LJ Archive