view release on metacpan or  search on metacpan

lib/Apache/UploadSvr.pm  view on Meta::CPAN

  my $self = __PACKAGE__->new( 
			      CGI => $cgi,
			      R => $r,
			      USERCLASS => $r->dir_config("Apache_UploadSvr_Usermgr") || "Apache::UploadSvr::User"
			     );
  $self->dispatch;
}

sub as_string {
  my($self) = @_;
  require Data::Dumper;
  join "", "<PRE>", Data::Dumper::Dumper($self), "</PRE>\n";
}

sub dispatch {
  my($self) = @_;
  my $r = $self->{R};
  my $cgi = $self->{CGI};

  my($filename, $content,$stagedir,$stageuri,$what_we_did,
     $sectrans,$transdir);

lib/Apache/UploadSvr/Directory.pm  view on Meta::CPAN

package Apache::UploadSvr::Directory;

use Apache::Constants qw(OK DECLINED AUTH_REQUIRED SERVER_ERROR);
use Apache::UploadSvr;
use CGI;
use Data::Dumper;
use DirHandle;
use File::Basename qw(basename dirname);
use File::Path;
use Image::Magick;
use IO::File;
use strict;
use vars qw( $VERSION @ISA );

$VERSION = sprintf "%d.%03d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;

lib/Apache/UploadSvr/Directory.pm  view on Meta::CPAN

    if (exists $cache->{$olddirent}{seen}) {
      delete $cache->{$olddirent}{seen};
    } else {
      delete $cache->{$olddirent};
      $has_changed = 1;
    }
  }
  if ($has_changed) {
    my $fh = IO::File->new;
    if ($fh->open(">$directory/$DirCache/$DirCache")) {
      $fh->print(Data::Dumper->new([$cache],["cache"])->Dump);
    } else {
      warn "Could not write >$directory/$DirCache/$DirCache: $!";
    }
  }
  my(@chkbox,$columns,$red);
  if ($write_perm) {
    $columns = 6;
  } else {
    $columns = 5;
  }