#!/usr/bin/perl -w
 use lib qw(lib);
 use CGI;
 use HTML::Menu::TreeView;
 use strict;
 my $cgi           = new CGI;
 my $TreeView      = new HTML::Menu::TreeView;
 my $serversubtree = './';
 my $style         = $cgi->param('style') ? $cgi->param('style') : 'Crystal';
 my $folderfirst   = $TreeView->folderFirst();
 my $changeState   = $cgi->param('folderFirst') ? 0 : 1;
 my $sort          = $cgi->param('sort') ? 0 : 1;
 my $isSorted      = $TreeView->sortTree();
 $TreeView->folderFirst($cgi->param('folderFirst') ? 1 : 0);
 $TreeView->sortTree($cgi->param('sort')           ? 1 : 0);
 $TreeView->style($style);
 my @tree = (
             {
              text => 'Folderfirst',
              href => "./folderFirst.pl?folderFirst=$changeState&sort=$isSorted",
             },
             {
              text => 'Sort',
              href => "./folderFirst.pl?folderFirst=$folderfirst&sort=$sort",
             },
             {
              text    => 'Treeview.pm',
              href    => '/html-menu-treeview.html',
              onclick => '',
              subtree => [
                          {
                           text => 'Source Code',
                           href => 'treeviewsource.pl',
                          },
              ],
             },
             {
              text    => 'Examples',
              subtree => [
                          {
                           text => 'OO Syntax',
                           href => 'http://treeview.lindnerei.de/cgi-bin/oo.pl',
                          },
                          {
                           text => 'FO Syntax',
                           href => 'http://treeview.lindnerei.de/cgi-bin/fo.pl',
                          },
                          {
                           text => 'Crystal',
                           href => 'http://treeview.lindnerei.de/cgi-bin/crystal.pl',
                          },
                          {
                           text => 'Sorting the Tree',
                           href => 'http://treeview.lindnerei.de/cgi-bin/folderFirst.pl',
                          },
              ],
             },
             {
              text    => 'Related Sites',
              subtree => [
                          {
                           text   => 'search.cpan.org',
                           href   => 'http://search.cpan.org/dist/HTML-Menu-TreeView/',
                           target => '_parent',
                          },
                          {
                           text   => 'Forum',
                           href   => 'http://www.cpanforum.com/dist/HTML-Menu-TreeView/',
                           target => '_parent',
                          },
                          {
                           text   => 'Lindnerei.de',
                           href   => 'http://www.lindnerei.de',
                           target => '_parent',
                          },
                          {
                           text    => 'Treeview.pm',
                           href    => 'http://treeview.lindnerei.de/',
                           subtree => [
                                       {
                                        text => 'Source Code',
                                        href => 'treeviewsource.pl',
                                       },
                           ],
                          },
              ]
             },
             {
              text => 'Contact',
              href => 'mailto:dirk.lindner@gmx.de',
             }
 );
 print($cgi->header,
       $cgi->start_html(
                        -title  => 'Print Folders First',
                        -script => $TreeView->jscript() . $TreeView->preload(),
                        -style  => {-code => $TreeView->css()}
       ),
       $TreeView->Tree(\@tree),
       $cgi->end_html
 );