view release on metacpan or  search on metacpan

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

                },
                'Chmod',
            ) : ''
          )
          . ' '
          . (
            $^O ne 'MSWin32' ? a(
                {
                    onclick =>
"var a;prompt('Enter User:',function(argv){a= argv;prompt('Enter Group:',function(b){if(a != null  && b != null)requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=chownFile&file=$esubfolder&user='+encodeURIComponent(a)+'&gid='+encod...
                    class => 'toolbarButton'
                },
                'Chown',
            ) : ''
          )
    );
    print
qq(<table class="ShowTables marginTop"><tr class="captionRadius"><td class="captionRadius" colspan="7"><a href="$hf" class="treeviewLink$m_hrSettings->{size}">$links $fname</a></td></tr><tr><td colspan="7" class="toolbar"><div id="toolbarcontent" cla...
      . ( $#t >= 0 ? $fileview->Tree( \@t, $m_sStyle ) : '' )
      . q(</td></tr></table>);
} ## end sub showDir

sub readFiles {
    my @TREEVIEW;
    my $dir  = shift;
    my $edir = uri_escape($dir);
    my $rk   = shift;
    $r++ if ($rk);
    if ( -d "$dir" && -r "$dir" ) {
        opendir DIR, $dir or warn "files.pl sub readFiles: $dir $!";
        foreach my $d ( readdir(DIR) ) {
            my $fl = "$dir/$d";
            my $sb = stat($fl);
          TYPE: {
                last TYPE if ( $d =~ /^\.+$/ );
                my $efl = uri_escape($fl);
                my $href =
                  "javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=FileOpen&file=$efl','FileOpen','FileOpen')";
                my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( $sb->mtime );
                $year += 1900;
                $mon  = sprintf( "%02d", $mon );
                $mday = sprintf( "%02d", $mday );
                $min  = sprintf( "%02d", $min );
                $hour = sprintf( "%02d", $hour );
                $sec  = sprintf( "%02d", $sec );
                my $trdelete = translate('delete');
                my $trnew    = translate('new');
                my $trrename = translate('rename');

                if ( -d $fl ) {
                    push @TREEVIEW, {
                        text    => $d,
                        href    => "$href",
                        empty   => 1,
                        subtree => [ {}, {} ],
                        mtime   => $sb->mtime,
                        size    => $sb->size,
                        columns => [
                            sprintf( "%s", $sb->size ),
                            ( $^O ne 'MSWin32' ? sprintf( "%04o", $sb->mode & 07777 ) : '' ),
                            ( $^O ne 'MSWin32' ? getpwuid( $sb->uid )->name : '' ),
                            ( $^O ne 'MSWin32' ? $sb->gid : '' ),
                            "$year-$mon-$mday $hour:$min:$sec",
                            qq|<table cellpading="0" cellspacing="0">
                            <tr><td class="batch">&#xe906;<a class="treeviewLink16" href="javascript:prompt('Enter Filename:',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=renameFile&file=$efl&newName=...
                              . (
                                $^O ne 'MSWin32'
                                ? qq|<td class="batch">&#xe971;<a class="treeviewLink16" href="javascript:prompt('Enter User:',function(c){ a = c; prompt('Enter Group:',function(b){ if(a != null  && b != null)requestURI('$m_hrSettings->{cgi}{serverNa...
                                : ''
                              )
                              . (
                                $^O ne 'MSWin32'
                                ? qq|<td class="batch">&#xe972;<a class="treeviewLink16" href="javascript:prompt('Enter Chmod: 0755',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=chmodFile&file=$efl&ch...
                                : ''
                              )
                              . qq|<td class="batch">&#xe9ac;<a class="treeviewLink16" href="javascript:confirm2('$trdelete ?',function(a){requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=deleteFile&file=$efl','deleteFile','delete...

                            </td></tr></table>|
                        ],
                    };
                    last TYPE;
                } ## end if ( -d $fl )
                if ( -f $fl ) {
                    my $suffix = $d =~ /\.([^\.]+)$/ ? $1 : '';
                    push @TREEVIEW, {
                        text    => "$d",
                        href    => "$href",
                        mtime   => $sb->mtime,
                        size    => $sb->size,
                        columns => [
                            sprintf( "%s",   $sb->size ),
                            sprintf( "%04o", $sb->mode & 07777 ),
                            ( $^O ne 'MSWin32' ? getpwuid( $sb->uid )->name : '' ),
                            $sb->gid,
                            "$year-$mon-$mday $hour:$min:$sec",
                            qq|

				  <table cellpading="0" cellspacing="0"><tr>

				  <td class="batch" style="font-size:14px;">&#xe906;<a class="treeviewLink16" href="javascript:prompt('Enter Filename:',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=renameFile&file=$efl&newName='+...

				  |
                              . (
                                $^O ne 'MSWin32'
                                ? qq|<td class="batch" style="font-size:14px;">&#xe971;<a class="treeviewLink16" href="javascript:prompt('Enter User:',function(c){a=c;prompt('Enter Group:',function(b){if(a != null  && b != null)requestURI('$m_hrSetti...
                                : ''
                              )
                              . (
                                $^O ne 'MSWin32'
                                ? qq|<td class="batch" style="font-size:14px;">&#xe972;<a class="treeviewLink16" href="javascript:prompt('Enter Chmod: 0755',function(a){;if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?acti...
                                : ''
                              )
                              . qq|<td class="batch" style="font-size:14px;">&#xe9ac;<a class="treeviewLink16" href="javascript:confirm2('$trdelete ?',function(a){requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=deleteFile&file=$e...

				  </tr></table>|,
                        ],
                        image => ( -e "$m_hrSettings->{cgi}{DocumentRoot}/style/$m_sStyle/$m_hrSettings->{size}/mimetypes/$suffix.png" )
                        ? "$suffix.png"
                        : 'link_overlay.png',
                    };
                } ## end if ( -f $fl )
            } ## end TYPE:
        } ## end foreach my $d ( readdir(DIR...))
        $r = 0;
        return @TREEVIEW;
    } ## end if ( -d "$dir" && -r "$dir")
} ## end sub readFiles

sub FileOpen {
    my $f = defined param('file') ? param('file') : shift;
    return unless defined $f;
  SWITCH: {
        if ( -d $f ) {
            &showDir($f);
            last SWITCH;
        } ## end if ( -d $f )
        if ( -T $f ) {
            my $content = openFile($f);
            &showEditor( $f, $content, 'saveFile', $f );
            last SWITCH;
        } else {
            print br() . qq(<div align="center">) . translate('no_ascii_file') . "</div>";
        } ## end else [ if ( -T $f ) ]
        if ( $f =~ /png|jpg|jpeg|gif$/ && $f =~ m~/var/www/htdocs/(.*)$~ ) {
            print br() . qq(<div align="center"><img alt="" src="/$1" align="center"/>) . br() . "</div>";
            last SWITCH;
        } ## end if ( $f =~ /png|jpg|jpeg|gif$/...)
        print br() . translate("UnsopportedFileType") . br();
    } ## end SWITCH:
} ## end sub FileOpen

sub saveFile {
    my $txt   = param('txt');