package
fa_menu;
### OPEN SOURCE LICENSE - GNU AFFERO PUBLIC LICENSE Version 3.0 #######
#
# Net::FullAuto - Powerful Network Process Automation Software
# Copyright (C) 2000-2014 Brian M. Kelly
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as
# published by the Free Software Foundation, either version 3 of the
# License, or any later version.
#
# This program is distributed in the hope that it will be useful,
# but **WITHOUT ANY WARRANTY**; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public
# License along with this program. If not, see:
#
#######################################################################
use
strict;
use
warnings;
#################################################################
## Do NOT alter code ABOVE this block.
#################################################################
## -------------------------------------------------------------
## ADD CUSTOM MENU BLOCKS HERE:
## -------------------------------------------------------------
our
%Menu_1
=(
Label
=>
'Menu_1'
,
Item_1
=> {
Text
=>
"HELLO WORLD TEST"
,
Result
=>
"&hello_world()"
,
},
Item_2
=> {
Text
=>
"HOWDY WORLD TEST"
,
Result
=>
"&howdy_world()"
,
},
Item_3
=> {
Text
=>
"Image Magick"
,
Result
=>
"&image_magick()"
,
},
Item_4
=> {
Text
=>
"Menu Demo"
,
Result
=>
"&menu_demo()"
,
},
Select
=>
'One'
,
Banner
=>
"\n Choose a Task to Perform :\n\n"
);
our
$start_menu_ref
=\
%Menu_1
;
########### END OF MENUS ########################
## Important! The '1' at the Bottom is NEEDED!
1;