-sub genmenu\r
-{\r
- ... snip ...\r
- if ( ! -e "${General::swroot}/proxy/enable" && ! -e "${General::swroot}/proxy/enable_blue" ) {\r
- splice (@{$menu{'2.status'}{'subMenu'}}, 4, 1);\r
- splice (@{$menu{'7.mainlogs'}{'subMenu'}}, 2, 1);\r
- }\r
-\r
- # Read additionnal menus entry\r
- # this have to be hardened and accepted. To be extended.\r
- opendir (DIR, "${General::swroot}/addon-menu");\r
- while (my $menuitem = readdir (DIR)) {\r
-\r
- if ( $menuitem =~ /^menu\.([1-6]\..*)\..*/) { #model is "menu.(N.submenu).filename"\r
- my $submenu = $1;\r
- open (FILE,"${General::swroot}/addon-menu/$menuitem") or die;\r
- while (my $text = <FILE>) { # file may content many entry\r
- splice (@{$menu{$submenu}{'subMenu'}} ,-1,0, [ eval($text) ] );\r
- }\r
- close (FILE);\r
- }\r
- }\r
- closedir (DIR);\r
-}\r
+sub genmenu
+{
+ ... snip ...
+ if ( ! -e "${General::swroot}/proxy/enable" && ! -e "${General::swroot}/proxy/enable_blue" ) {
+ splice (@{$menu{'2.status'}{'subMenu'}}, 4, 1);
+ splice (@{$menu{'7.mainlogs'}{'subMenu'}}, 2, 1);
+ }
+
+ # Read additionnal menus entry
+ # this have to be hardened and accepted. To be extended.
+ opendir (DIR, "${General::swroot}/addon-menu");
+ while (my $menuitem = readdir (DIR)) {
+
+ if ( $menuitem =~ /^menu\.([1-6]\..*)\..*/) { #model is "menu.(N.submenu).filename"
+ my $submenu = $1;
+ open (FILE,"${General::swroot}/addon-menu/$menuitem") or die;
+ while (my $text = <FILE>) { # file may content many entry
+ splice (@{$menu{$submenu}{'subMenu'}} ,-1,0, [ eval($text) ] );
+ }
+ close (FILE);
+ }
+ }
+ closedir (DIR);
+}