menu_gen.pl

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Win32::FileOp qw(ShellExecute);
#Open the menu file with the formatted menu name + filename list
#file format:
#Menu Name,TextFileName.txt
open(MENULIST, "<", "./menu.txt") or
	die("Error: cannot open file 'menu.txt'\n");
my @menu = <MENULIST>;
my $mw =MainWindow->new;
 
my $frame = $mw->Frame->pack;
 
mainmenu();
#Generate the main menu
sub mainmenu {
 
	$frame->destroy;
	$frame = $mw->Frame->pack;
	@menu = sort(@menu);
	foreach(@menu) {
		chomp $_;
		my ($menuname, $listfile) = split(",", $_);
		$frame->Button(-text => "$menuname", -width => 15, -command => sub { genlist("$listfile") } )->pack;
	}
 
	$frame->Button(-text => "Big List", -width => 15, -command => sub { genbiglist() } )->pack;
 
}
#Generate the submenu list based on the file passed to the sub
#file formate:
#Button Name,http://ButtonAddress
sub genlist {
	$frame->destroy;
	$frame = $mw->Frame->pack;
	my ($listfile) = (@_);
	#Open the file
        open(LIST, "<", $listfile) or
		die("Error: cannot open file $listfile\n");
	my @addlist = <LIST>;
	close (LIST);
	@addlist = sort(@addlist);
	foreach(@addlist) {
		chomp $_;
		my ($aname, $aurl) = split(",",$_);
		$frame->Button(-text => "$aname", -width => 15, -command => sub { openbrowser("$aurl") }, )->pack;
	}	
 
	$frame->Button(-text => "Menu", -command => sub { mainmenu() })->pack;
}
 
sub genbiglist {
	my @bigflist;
	my @bigfitems;
	$frame->destroy;
	$frame = $mw->Frame->pack;
	foreach(@menu) {
		chomp $_;
		my (undef, $txtf) = split(",", $_);
		push @bigflist, $txtf;
}
 
	foreach(@bigflist) {
		open(BIGMENU, "<", $_);
		push(@bigfitems, <BIGMENU>);
 
	}
	@bigfitems = sort(@bigfitems);
	foreach (@bigfitems) {
		chomp $_;
		my ($aname, $aurl) = split(",",$_);
		$frame->Button(-text => "$aname", -width => 15, -command => sub { openbrowser("$aurl") }, )->pack;
	}
	$frame->Button(-text => "Menu", -command => sub { mainmenu() })->pack;
}
 
 
  	sub openbrowser {
	    my ($url) = (@_);
	    #Actually open the webrowser, this method causes lag - to update to an API module at a later stage.
	    ShellExecute("$url");
 
	}
 
MainLoop;