view release on metacpan or  search on metacpan

cgi-bin/Content/links.pl  view on Meta::CPAN

use warnings;
no warnings 'redefine';
use vars qw(@t $ff $ss $folderfirst $sortstate);
$folderfirst = param('folderfirst') ? 1 : 0;
$ss          = param('sort')        ? 1 : 0;
folderFirst($folderfirst);

#Style("admin");
#size(22);
sub ShowBookmarks {
    loadTree( $m_hrSettings->{tree}{links} );
    *t = \@{ $HTML::Menu::TreeView::TreeView[0] };
    applyRights( \@t );

    #     print '<div class="showTables">';
    _showBookmarksNavi();
    print
qq(<table  style="padding-top:1.65em;" align="center"  border="0" cellpadding="0" cellspacing="0"  width="95%" summary="linkLayout"><tr><td valign="top">);
    print Tree( \@t );
    print qq(</td></tr></table>);
} ## end sub ShowBookmarks

sub _showBookmarksNavi {
    $ff = $folderfirst;
    $ff = $ff ? 0 : 1;
    sortTree($ss);
    $sortstate = $ss;
    $ss = $ss ? 0 : 1;
    print '<div align="left">'
      . a(
        {
            class => 'link',
            href  => "javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=links&sort=1','links','links')",
            title => translate('sort')
        },
        translate('sort')
      ) . ' ';
    print a(
        {
            class => $folderfirst ? 'currentLink' : 'link',
            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=links&sort=$sortstate&folderfirst=$ff','links','links')",
            title => translate('folderFirst')
        },
        translate('folderFirst')
    ) . ' ';
    print a(
        {
            class => 'link',
            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ExportOperaBookmarks','ExportOperaBookmarks','ExportOperaBookmarks')",
            title => translate('ExportOperaBookmarks')
        },
        translate('ExportOperaBookmarks')
    );
    print '<br/>'
      . a(
        {
            class => 'link',
            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=editTreeview&dump=links','editTreeview','editTreeview')",
            title => translate('edit')
        },
        translate('edit')
      ) if ( $m_nRight >= $m_oDatabase->getActionRight('editTreeview') );
    print ' '
      . a(
        {
            class => $m_sAction eq 'ImportOperaBookmarks'
            ? 'currentLink'
            : 'link',
            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ImportOperaBookmarks','ImportOperaBookmarks','ImportOperaBookmarks')",
            title => translate('ImportOperaBookmarks')
        },
        translate('ImportOperaBookmarks')
      ) if ( $m_nRight >= $m_oDatabase->getActionRight('ImportOperaBookmarks') );
    print ' '
      . a(
        {
            class => $m_sAction eq 'ImportFireFoxBookmarks'
            ? 'currentLink'
            : 'link',
            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ImportFireFoxBookmarks','ImportFireFoxBookmarks','ImportFireFoxBookmarks')",
            title => translate('importFireFox'),
            id    => 'ShareLink'
        },
        translate('importFireFox')
      ) if ( $m_nRight >= $m_oDatabase->getActionRight('ImportFireFoxBookmarks') );
    $msContent .= q|</div>| . br();
} ## end sub _showBookmarksNavi

sub ExportOperaBookmarks {
    loadTree( $m_hrSettings->{tree}{links} );
    *t = \@{ $HTML::Menu::TreeView::TreeView[0] };
    _showBookmarksNavi();
    print
      q(<table align="center"  border="0" cellpadding="0" cellspacing="0"  width="100%" summary="linkLayout"><tr><td align="center" valign="top">);
    print qq(<textarea style="width:98%;height:800px;">\nOpera Hotlist version 2.0\nOptions: encoding = utf-8, version=3\n);
    &_rec( \@t );
    print q(</textarea><br/></td></tr></table>);
} ## end sub ExportOperaBookmarks

sub _rec {
    my $tree = shift;
    for ( my $i = 0 ; $i < @$tree ; $i++ ) {
        if ( @$tree[$i] ) {
            my $text = defined @$tree[$i]->{text} ? @$tree[$i]->{text} : '';
            if ( ref @$tree[$i]->{subtree}[0] eq "HASH") {
                print "#FOLDER\n\tID=@$tree[$i]->{rid}\n\tNAME=$text\n\tUNIQUEID=@$tree[$i]->{rid}\n";
                _rec( \@{ @$tree[$i]->{subtree} } );
                print "-\n\n";
            } else {
                my $hrf = defined @$tree[$i]->{href} ? @$tree[$i]->{href} : '';
                print "#URL\n\tID=@$tree[$i]->{rid}\n\tNAME=$text\n\tURL=$hrf\n\tUNIQUEID=@$tree[$i]->{rid}\n";
            } ## end else [ if ( ref @{ @$tree[$i]...})]
        } ## end if ( defined @$tree[$i...])
    } ## end for ( my $i = 0 ; $i < ...)
} ## end sub _rec

sub ImportOperaBookmarks {
    my $save        = translate('save');
    my $choosefile  = translate('choosefile');
    my $newFolder   = translate('newFolder');