From 64a061562ffe5af7036a4caac16ef51ad1efd724 Mon Sep 17 00:00:00 2001
From: slioch <slioch@eng-140.vyatta.com>
Date: Wed, 21 Oct 2009 11:25:01 -0700
Subject: sorts and generates priority statements from priority node.def
 entries

---
 scripts/priority.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 scripts/priority.pl

diff --git a/scripts/priority.pl b/scripts/priority.pl
new file mode 100644
index 0000000..a8cf9b6
--- /dev/null
+++ b/scripts/priority.pl
@@ -0,0 +1,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";
+} 
-- 
cgit v1.2.3