}
$lines++;
-
+
}
+ $chains{$chainname."end"} = $lines-1;
close (FILE);
# now the chain hash is extracted to get the correct name of the chain
# colored gui
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n<select name='selectedchain' style='width: 250px'>\n";
- foreach (keys(%chains)){
+ foreach (sort(keys(%chains))){
if ( $_ =~ /end$/ ){
next;
$manlines++;
}
+ $chainsman{$chainname."end"} = $manlines-1;
close (FILE);
# now the chain hash is extracted to get the correct name of the chain
# colored gui
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n<select name='selectedchain' style='width: 250px'>\n";
- foreach (keys(%chainsman)){
+ foreach (sort(keys(%chainsman))){
if ( $_ =~ /end$/ ){
next;
$natlines++;
}
+ $chainsnat{$chainname."end"} = $natlines-1;
close (FILE);
# now the chain hash is extracted to get the correct name of the chain
# colored gui
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n<select name='selectedchain' style='width: 250px'>\n";
- foreach (keys(%chainsnat)){
+ foreach (sort(keys(%chainsnat))){
if ( $_ =~ /end$/ ){
next;