git-svn-id: http://svn.ipfire.org/svn/ipfire/IPFire/source@16 ea5c0bd1-69bd-2848...

[ipfire-2.x.git] / config / cfgroot / header-menu.pl

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