/[soft]/drakx-net/trunk/lib/network/tools.pm
ViewVC logotype

Diff of /drakx-net/trunk/lib/network/tools.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1799 by tv, Wed Jul 27 10:30:56 2011 UTC revision 1800 by tv, Wed Jul 27 10:32:00 2011 UTC
# Line 264  sub host_hex_to_dotted { Line 264  sub host_hex_to_dotted {
264  sub get_routes() {  sub get_routes() {
265      my %routes;      my %routes;
266      my @routes = cat_("/proc/net/route");      my @routes = cat_("/proc/net/route");
267      require bootloader;      require any;
268      @routes = reverse(@routes) if bootloader::cmp_kernel_versions(c::kernel_version(), "2.6.39") >= 0;      @routes = reverse(@routes) if any::cmp_kernel_versions(c::kernel_version(), "2.6.39") >= 0;
269      foreach (@routes) {      foreach (@routes) {
270          if (/^(\S+)\s+([0-9A-F]+)\s+([0-9A-F]+)\s+[0-9A-F]+\s+\d+\s+\d+\s+(\d+)\s+([0-9A-F]+)/) {          if (/^(\S+)\s+([0-9A-F]+)\s+([0-9A-F]+)\s+[0-9A-F]+\s+\d+\s+\d+\s+(\d+)\s+([0-9A-F]+)/) {
271              if (defined $3) { $routes{$1}{gateway} = hex($3) ? host_hex_to_dotted($3) : $routes{$1}{network} }              if (defined $3) { $routes{$1}{gateway} = hex($3) ? host_hex_to_dotted($3) : $routes{$1}{network} }
Legend:
Removed from v.1799  
changed lines
  Added in v.1800
  ViewVC Help
Powered by ViewVC 1.1.30