Source

perl-begin / lib / MyNavData.pm

package MyNavData;

my $hosts =
{
    'berlios' => 
    {
        'base_url' => "http://perl-begin.berlios.de/",
    },
};

my $tree_contents =
{
    'host' => "berlios",
    'text' => "Perl Beginners' Site",
    'title' => "A useful Portal for People New to Perl",
    'subs' =>
    [
        {
            'text' => "Home",
            'url' => "",
        },
        {
            'text' => "About",
            'url' => "about.html",
        },
        {
            'text' => "News",
            'url' => "news/",
            'title' => "Previous News Item",
        },
        {
            'text' => "Online Tutorials",
            'url' => "tutorials/",
            'subs' =>
            [
                {
                    'text' => "In Other Languages",
                    'url' => "tutorials/localized/",
                    'title' => "Tutorials in languages other than English",
                },
            ],
        },
        {
            'text' => "Books",
            'url' => "books/",
            'subs' =>
            [
                {
                    'url' => "books/advanced/",
                    'text' => "Advanced Books",
                    'title' => "Books that contain more information about Perl than the basics",
                },
                {
                    'url' => "books/topics/",
                    'text' => "Topic-related Books",
                    'title' => "Books that cover certain topics in detail",
                },
            ],
        },
        {
            'url' => "core-doc/",
            'text' => "Core Documentation",
        },
        {
            'url' => "articles/",
            'text' => "Article Collections",
        },
        {
            'separator' => 1,
            'skip' => 1,
        },
        {
            'text' => "Mailing Lists",
            'url' => "mailing-lists/",
            'title' => "Ask questions and receive answers about Perl by E-mail",
        },
        {
            'text' => "Web Forums",
            'url' => "web-forums/",
            'title' => "Ask questions and receive answers by using a web-browser",
        },
        {
            'text' => "IRC Channels",
            'url' => "irc/",
            'title' => "Chat online about Perl using the Internet Relay Chat (IRC)",
        },
        {
            'text' => "Site Resources",
            'url' => "site-resources/",
            'role' => "header",
            'show_always' => 1,
            'subs' =>
            [
                {
                    'text' => "Mailing List",
                    'url' => "site-resources/mailing-list/",
                    'title' => "A mailing list for helping Beginners",
                },
                {
                    'text' => "Wiki",
                    'title' => "A sub-site that can be freely edited with any information",
                    'url' => "site-resources/wiki/",
                },
                {
                    'text' => "Web Forum",
                    'url' => "site-resources/web-forum/",
                    'title' => "A web-based forum where you can post messages",
                },
            ],
        },
        {
            'text' => "Platforms",
            'url' => "platforms/",
            'role' => "header",
            'show_always' => 1,
            'subs' =>
            [
                {
                    'text' => "Mac OS",
                    'url' => "platforms/mac/",
                    'title' => "Macintosh and PowerPC/PowerMac Platforms",
                },
                {
                    'text' => "UNIX/Linux",
                    'url' => "platforms/unix/",
                },
                {
                    'text' => "Windows",
                    'url' => "platforms/windows/",
                },
            ],
        },
        {
            'text' => "Uses",
            'url' => "uses/",
            'title' => "Common Uses for Perl",
            'role' => "header",
            'show_always' => 1,
            'subs' =>
            [
                {
                    'text' => "Bio-Informatics",
                    'url' => "uses/bio-info/",
                },
                {
                    'text' => "QA and Testing",
                    'url' => "uses/qa/",
                },
                {
                    'text' => "Sys Admin",
                    'title' => "Using Perl for System Administration",
                    'url' => "uses/sys-admin/",
                },
                {
                    'text' => "Web/CGI",
                    'url' => "uses/web/",
                },
            ],
        },
        {
            'text' => "Contribute",
            'url' => "contribute/",
            'title' => "Contribute new content or corrections to this site",
            'role' => "header",
            'show_always' => 1,
            'subs' =>
            [
                {
                    'text' => "Site's Source Code",
                    'url' => "source/",
                },
            ],
        },
    ],
};

sub get_params
{
    return 
        (
            'hosts' => $hosts,
            'tree_contents' => $tree_contents,
        );
}

1;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.