#!/usr/bin/perl -T

############################################################################################################################################
#
#  Instructions:: modify the hash to represent the tree structure of the page..
#                 create the necessary directory structure..
#                
#
#
###########################################################################################################################################
use lib qw(/www/html/research/projects/ngn/lib);

use WebApp;

use CGI;
use Data::Dumper;

use Tie::Hash::Indexed;

use Conference::Form;

tie my %hash, 'Tie::Hash::Indexed';

our $prognet03  = {
    id=>"prognet03",
    name=>"Prognet 2003",
    subpages=>[
	       {id=>"prog", name=>"Programme"}
	       ]
	       };

our $msn04  = {
    id=>"msn04",
    name=>"MSN 2004",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice", name=>"Notice Board"},
	       {id=>"prog",  name=>"Programme" },
	       {id=>"proc",  name=>"Proceedings"},
	       {id=>"travel", name=>"Travelling to Coseners"}
	       ]
	       };

our $prognet04  = {
    id=>"prognet04",
    name=>"Prognet 2004",
    subpages=>[
	       {id=>"intro",name=>"Introduction"},
	       {id=>"programme",name=>"Programme"}
	       ]
	       };

our $planetlab05  = {
    id=>"plab05",
    name=>"Planetlab 2005", 
    subpages=>[
	       {id=>"outline",name=>"Outline"},
	       {id=>"slides",name=>"Slides"}
	       ]
	       };

our $ns205  = {
    id=>"ns205",
    name=>"NS2 Tutorial 2005", 
    subpages=>[
	       {id=>"outline",name=>"Outline"},
	       {id=>"slides",name=>"Slides"}
	       ]
	       };

our $msn05  = {
    id=>"msn05",
    name=>"MSN 2005",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice",name=>"Notice Board"},
	       {id=>"reg",  name=>"Registration", module=>"Conference::Form"},
	       {id=>"prog",  name=>"Programme"  },
	       {id=>"proc",  name=>"Proceedings" },
	       {id=>"travel", name=>"Travelling to Coseners" },
	       {id=>"pics", name=>"Pictures" }
	       ]
	       };

our $msn06  = {
    id=>"msn06",
    name=>"MSN 2006",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice",name=>"Notice Board"},
	       	       {id=>"prog",  name=>"Programme"  },
	       {id=>"proc",  name=>"Proceedings" },
	       {id=>"travel", name=>"Travelling to Coseners" },
	       {id=>"pics", name=>"Pictures" }
	       ]
	       };

our $msn07  = {
    id=>"msn07",
    name=>"MSN 2007",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice",name=>"Notice Board"},
       	       {id=>"prog",  name=>"Programme"  },
	       {id=>"reg",  name=>"Registration", module=>"Conference::Form"},
	       {id=>"proc",  name=>"Proceedings" },
	       {id=>"travel", name=>"Travelling to Coseners" }
	       ]
	       };

our $msn08  = {
    id=>"msn08",
    name=>"MSN 2008",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice",name=>"Notice Board"},
       	       {id=>"prog",  name=>"Programme"  },
	       {id=>"reg",  name=>"Registration", module=>"Conference::Form"},
	       {id=>"proc",  name=>"Proceedings" },
	       {id=>"travel", name=>"Travelling to Coseners" }
	       ]
	       };
our $msn09  = {
    id=>"msn09",
    name=>"MSN 2009",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice",name=>"Notice Board"},
       	       {id=>"prog",  name=>"Programme"  },
	       {id=>"reg",  name=>"Registration", module=>"Conference::Form"},
	       {id=>"proc",  name=>"Proceedings" },
	       {id=>"travel", name=>"Travelling to Coseners" }
	       ]
	       };


our $msn10  = {
    id=>"msn10",
    name=>"MSN 2010",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice",name=>"Notice Board"},
       	       {id=>"prog",  name=>"Programme"  },
	       {id=>"reg",  name=>"Registration", module=>"Conference::Form"},
	       {id=>"proc",  name=>"Proceedings" },
	       {id=>"travel", name=>"Travelling to Coseners" }
	       ]
	       };

our $msn11  = {
    id=>"msn11",
    name=>"MSN 2011",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice",name=>"Notice Board"},
       	       {id=>"prog",  name=>"Programme"  },
	       {id=>"reg",  name=>"Registration", module=>"Conference::Form"},
	       {id=>"proc",  name=>"Proceedings" },
	       {id=>"travel", name=>"Travelling to Coseners" }
	       ]
	       };

our $msn12  = {
    id=>"msn12",
    name=>"MSN 2012",
    subpages=>[
	       {id=>"intro", name=>"Introduction"},
	       {id=>"notice",name=>"Notice Board"},
       	       {id=>"prog",  name=>"Programme"  },
	       {id=>"reg",  name=>"Registration", module=>"Conference::Form"},
	       {id=>"proc",  name=>"Proceedings" },
	       {id=>"travel", name=>"Travelling to Coseners" }
	       ]
	       };
our $msn13  = {
    id=>"msn13",
    name=>"MSN 2013",
    subpages=>[
               {id=>"intro", name=>"Introduction"},
               {id=>"notice",name=>"Notice Board"},
               {id=>"prog",  name=>"Programme"  },
               {id=>"reg",  name=>"Registration", module=>"Conference::Form"},
               {id=>"proc",  name=>"Proceedings" },
               {id=>"travel", name=>"Travelling to Coseners" }
               ]
               };
our $measurement06  = {
    id=>"measurement06",
    name=>"Network Measurement Tutorial 2006", 
    subpages=>[
	       {id=>"outline",name=>"Outline"},
	       {id=>"feedback",name=>"Feedback"},
	       {id=>"thanks",name=>"Thanks"},
	       {id=>"slides",name=>"Slides"}
	       ]
	       };
our $prognet06  = {
    id=>"prognet06",
    name=>"Prognet 2006",
    subpages=>[
	       {id=>"intro",name=>"Introduction"},
	       {id=>"programme",name=>"Programme"}
	       ]
	       };

our $junosphere11  = {
    id=>"junosphere11",
    name=>"Junosphere Tutorial 2011", 
    subpages=>[
	       {id=>"outline",name=>"Outline"},
	       {id=>"slides",name=>"Slides"}
	       ]
	       };


#{prognet03=>$prognet03},
#{msn04=>$msn04},
#{prognet04=>$prognet04},
#{plab05=>$plab05},
#{msn05=>$msn05}

our $ngn = [
	    {id=>"home",
	     name=>"Home",
	     subpages=>[
			{id=>"mission", name=>"Mission"},
			{id=>"committee", name=>"Committee"}
			]}, # end home ..
	    
	    {id=>"wshops",
	     name=>"Workshops",
	     subpages=>[{id=>"intro",name=>"Workshops"}, 
			$prognet03, 
			$prognet04,
			$planetlab05,
			$ns205,
			$prognet06,
		       $measurement06,
			$msn04,
			$msn05,
			$msn06,
			$msn07,
			$msn08,
			$msn09,
			$msn10,
			$msn11,
			$msn12,
			$msn13,
			$junosphere11
]
	     },

	    {id=>"mailing",
	     name=>"Mailing"},

	    {id=>"links",
	     name=>"Associated Links"},
	     ]; # end workshops ..
	     
$q = new CGI;
my %params = $q->Vars;


#my ($class, $struct, $params, $q) = @_;
print "Content-type:text/html\n\n";
eval {
    my $app = WebApp->new($ngn, \%params, $q);
#print $app->run("home/committee");
    print $app->run();
};

if ($@) {
    print $@;
}

#print Dumper($page);
#print ">>>".$tmpl."<<<\n";

#1;