view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

      ['Apache::Filter' =>  'JAF is filter-aware'],
      ['Apache::Session::MySQL' => 'Used for transparent session handling'],
    ],
  ],
  [ 'JAF', 
    [
      ['5.6.0' => 'Perl 5.6.0 required'],
    ],
    [
      ['DBI 1.20' => 'most of modern sites are database-driven so you REALLY need this'],
      ['File::Path' => 'used for semi-automatic file uploads'],
      ['File::Basename' => 'used for semi-automatic file uploads'],
    ],
  ],
];

my @ews = (0, 0);
my @ros = qw(required optional);

for my $ro (1..2) {
  foreach my $module (@$modules) {
    print "Checking $ros[$ro-1] modules for $module->[0]...\n";

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

}

### Additional utility methods for getting params

sub param {
  my ($self, $p) = @_;
  my @params = map { $_ = JAF::Util::trim($_); length > 0 ? $_ : undef} ($self->{r}->param($p));
  return $params[0];
} 

sub upload_fh {
  my ($self, $p) = @_;
  if($self->param($p)) {
    my $upl = $self->{r}->upload($p);
    return $upl->fh if($upl && $upl->fh)
  }
  return undef
}

### Methods for simplify handlers for download content instead of viewing it

sub disable_header { undef $_[0]->{header} }
sub disable_footer { undef $_[0]->{footer} }
sub disable_header_footer { $_[0]->disable_header(); $_[0]->disable_footer(); }