package Apache::ProxyScan;
use ExtUtils::MakeMaker qw(prompt WriteMakefile);
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
@magicguess = ( "/etc/httpd/magic", "/etc/httpd/conf/magic", "/etc/magic",
"/etc/mime-magic", "/usr/share/misc/magic.mime",
"/usr/share/magic.mime", "/usr/share/magic");
foreach $mm (@magicguess) {
if ( -s "$mm" ) {
$guess = $mm;
last;
}
}
do {
$magic = prompt("Path of your (Apache) mime magic file: [$guess]");
$magic = $guess if ($magic =~ m/^\s*$/igs);
print "Path: $magic\n";
} until (-s $magic);
system('perl','-p','-i.bak','-e','s§^my\s+\$MIME\s*=\s*File::MMagic::new.*$§my \$MIME = File::MMagic::new('."'$magic'".');§g','ProxyScan.pm');
#use Apache::ExtUtils qw(command_table);
#use Apache::src();
# upcoming changes
#my @directives = (
# { name => 'ProxyScanTemporaryDirectory',
# errmsg => 'a directory to store downloaded files temporary',
# args_how => 'TAKE1',
# req_override => 'RSRC_CONF'
# },
# { name => 'ProxyScanPredeliverSize',
# errmsg => 'minimum size before a file is pre-delivered',
# args_how => 'TAKE1',
# req_override => 'RSRC_CONF'
# },
# { name => 'ProxyScanTrustedMIME',
# errmsg => 'a list of trusted mime types',
# args_how => 'ITERATE',
# req_override => 'RSRC_CONF'
# },
# { name => 'ProxyScanTrustedExtension',
# errmsg => 'a list of trusted file extensions',
# args_how => 'ITERATE',
# req_override => 'RSRC_CONF'
# },
# );
#
#command_table(\@directives);
WriteMakefile(
'NAME' => 'Apache::ProxyScan',
'VERSION_FROM' => 'ProxyScan.pm',
# 'INC' => Apache::src->new->inc,
'PREREQ_PM' => {
'Apache2' => '0', # or a minimum workable version
'LWP::UserAgent' => '0',
'File::MMagic' => '0',
'URI::URL' => '0',
}
);