scripts/priority.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#!/usr/bin/perl

my %pri;

    # first check if this file exists, and if so ensure this is a config file.
my @files = `find /opt/vyatta/share/vyatta-cfg -name 'node.def'`;
foreach my $f (@files) {
    my $result = `grep 'priority:' $f`;
   if (defined $result && length($result) != 0) {
       my @r = split " ", $result;
       if (defined $r[1]) {
	   $pri{$r[1]} = $f;
	   #stuff in hash here
       }
    }
}


#now sort

foreach my $key ( sort { $a <=> $b } keys %pri ) {
    my $loc = substr($pri{$key},0,-10);
    my $loc = substr($loc,39);
    print $key," ",$loc,"\n";
}