view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    # notify the user about mod_perl 2
    BEGIN { print q{
        **************** NOTICE *********************
        If you are planning to use mod_perl2 and Apache2, please, do not
        answer yes when prompted to install mod_perl.  You will need to
        download mod_perl2 manually from
        http://perl.apache.org/download/index.html
        *********************************************
    } }    

 view release on metacpan or  search on metacpan

Auth/Auth.pm  view on Meta::CPAN

=head1 DESCRIPTION

This module allows authentication against a SecurID server.  A request
is redirected to this handler if the authentication cookie does not
exist or is no longer valid.  The handler will prompt for username and 
passcode.  It will then construct and encrypt a UDP packet and send it to 
the Ace request daemon.  This is necessary since libsdiclient.a needs to 
persist for NEXT TOKEN MODE and SET PIN MODE.  If the authentication is 
valid an encrypted Authentication Cookie is set and the request is redirected 
to the originating URI.  If the user needs to enter NEXT TOKEN or set their 
PIN they will be prompted to do so and if valid the request is then redirected 
to the originating URI.


=head1 LIST OF TOKENS

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    # notify the user about mod_perl 2
    BEGIN { print q{
        **************** NOTICE *********************
        If you are planning to use mod_perl2 and Apache2, please, do not
        answer yes when prompted to install mod_perl.  You will need to
        download mod_perl2 manually from
        http://perl.apache.org/download/index.html
        *********************************************
    } }    

 view release on metacpan or  search on metacpan

AuthzCache.pm  view on Meta::CPAN

# extent caused by the acts or omissions of such Commercial
# Contributor in connection with its distribution of the Program in a
# commercial product offering. The obligations in this section do not
# apply to any claims or Losses relating to any actual or alleged
# intellectual property infringement. In order to qualify, an
# Indemnified Contributor must: a) promptly notify the Commercial
# Contributor in writing of such claim, and b) allow the Commercial
# Contributor to control, and cooperate with the Commercial
# Contributor in, the defense and any related settlement negotiations.
# The Indemnified Contributor may participate in any such claim at its
# own expense.

 view release on metacpan or  search on metacpan

AuthzLDAP.pm  view on Meta::CPAN

# extent caused by the acts or omissions of such Commercial
# Contributor in connection with its distribution of the Program in a
# commercial product offering. The obligations in this section do not
# apply to any claims or Losses relating to any actual or alleged
# intellectual property infringement. In order to qualify, an
# Indemnified Contributor must: a) promptly notify the Commercial
# Contributor in writing of such claim, and b) allow the Commercial
# Contributor to control, and cooperate with the Commercial
# Contributor in, the defense and any related settlement negotiations.
# The Indemnified Contributor may participate in any such claim at its
# own expense.

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    # notify the user about mod_perl 2
    BEGIN { print q{
        **************** NOTICE *********************
        If you are planning to use mod_perl2 and Apache2, please, do not
        answer yes when prompted to install mod_perl.  You will need to
        download mod_perl2 manually from
        http://perl.apache.org/download/index.html
        *********************************************
    } }    

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    # notify the user about mod_perl 2
    BEGIN { print q{
        **************** NOTICE *********************
        If you are planning to use mod_perl2 and Apache2, please, do not
        answer yes when prompted to install mod_perl.  You will need to
        download mod_perl2 manually from
        http://perl.apache.org/download/index.html
        *********************************************
    } }
    

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    # notify the user about mod_perl 2
    BEGIN { print q{
        **************** DEPENDENCY NOTICE *********************
        If you are planning to use mod_perl2 and Apache2, please, do not
        answer yes when prompted to install mod_perl.  You will need to
        download mod_perl2 manually from
        http://perl.apache.org/download/index.html
        *********************************************
      } 
    }    

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    # notify the user about mod_perl 2
    BEGIN { print q{
        **************** NOTICE *********************
        If you are planning to use mod_perl2 and Apache2, please, do not
        answer yes when prompted to install mod_perl.  You will need to
        download mod_perl2 manually from
        http://perl.apache.org/download/index.html
        *********************************************
    } }    

 view release on metacpan or  search on metacpan

inc/Module/AutoInstall.pm  view on Meta::CPAN

            $TestOnly = 1;
        }
    }
}

# overrides MakeMaker's prompt() to automatically accept the default choice
sub _prompt {
    goto &ExtUtils::MakeMaker::prompt unless $AcceptDefault;

    my ( $prompt, $default ) = @_;
    my $y = ( $default =~ /^[Yy]/ );

    print $prompt, ' [', ( $y ? 'Y' : 'y' ), '/', ( $y ? 'n' : 'N' ), '] ';
    print "$default\n";
    return $default;
}

# the workhorse

inc/Module/AutoInstall.pm  view on Meta::CPAN

        if (
            !$SkipInstall
            and (
                $CheckOnly
                or _prompt(
                    qq{==> Auto-install the }
                      . ( @required / 2 )
                      . ( $mandatory ? ' mandatory' : ' optional' )
                      . qq{ module(s) from CPAN?},
                    $default ? 'y' : 'n',

inc/Module/AutoInstall.pm  view on Meta::CPAN

        elsif ( !$SkipInstall
            and $default
            and $mandatory
            and
            _prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
            =~ /^[Nn]/ )
        {
            push( @Missing, @required );
            $DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
        }

inc/Module/AutoInstall.pm  view on Meta::CPAN

    return
      if defined( _version_check( _load($class), $ver ) );  # no need to upgrade

    if (
        _prompt( "==> A newer version of $class ($ver) is required. Install?",
            'y' ) =~ /^[Nn]/
      )
    {
        die "*** Please install $class $ver manually.\n";
    }

inc/Module/AutoInstall.pm  view on Meta::CPAN

# check if we're connected to some host, using inet_aton
sub _connected_to {
    my $site = shift;

    return (
        ( _load('Socket') and Socket::inet_aton($site) ) or _prompt(
            qq(
*** Your host cannot resolve the domain name '$site', which
    probably means the Internet connections are unavailable.
==> Should we try to install the required module(s) anyway?), 'n'
          ) =~ /^[Yy]/

inc/Module/AutoInstall.pm  view on Meta::CPAN

*** You are not allowed to write to the directory '$path';
    the installation may fail due to insufficient permissions.
.

    if (
        eval '$>' and lc(`sudo -V`) =~ /version/ and _prompt(
            qq(
==> Should we try to re-execute the autoinstall process with 'sudo'?),
            ((-t STDIN) ? 'y' : 'n')
        ) =~ /^[Yy]/
      )

inc/Module/AutoInstall.pm  view on Meta::CPAN

        print << ".";
*** The 'sudo' command exited with error!  Resuming...
.
    }

    return _prompt(
        qq(
==> Should we try to install the required module(s) anyway?), 'n'
    ) =~ /^[Yy]/;
}

 view release on metacpan or  search on metacpan

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

descriptor, and it is added to the cache.

Any Perl script can use DBI::BabyConnect to create as many DBI::BabyConnect objects;
however, DBI::BabyConnect will only create a new object if not found in the cache.
Programmers do not need to keep track of what is being cached, and they
can write code as if the script is to be run from the command prompt.

It is recommended that you use a set of prefedined database descriptors
that you load at the startup of Apache. See B<babystartup.pl> script later
in this document. However, you can always use a new database descriptor
to create a DBI::BabyObject. 

 view release on metacpan or  search on metacpan

inc/Module/Install/Makefile.pm  view on Meta::CPAN

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
	shift;

	# Infinite loop protection
	my @c = caller();
	if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
		die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
	}

	# In automated testing or non-interactive session, always use defaults
	if ( ($ENV{AUTOMATED_TESTING} or -! -t STDIN) and ! $ENV{PERL_MM_USE_DEFAULT} ) {
		local $ENV{PERL_MM_USE_DEFAULT} = 1;
		goto &ExtUtils::MakeMaker::prompt;
	} else {
		goto &ExtUtils::MakeMaker::prompt;
	}
}

# Store a cleaned up version of the MakeMaker version,
# since we need to behave differently in a variety of

 view release on metacpan or  search on metacpan

Centipaid.pm  view on Meta::CPAN

based on the payment B<duration> specified in the configuration file.  
Everytime a user visits protected areas in a site, the cookie is 
inspected, and if it exists it is matched with the receipt database.  if 
it is found, and the expiry date has not been met, then they are granted 
access.  If the receipt is non existent, or past its expiry date, the 
user is prompted to make payment again.  

Please reffer to centipaid.com for the most updated version of this 
module, since other methods of tracking payment may be available.

 view release on metacpan or  search on metacpan

t/lib/Apache/test.pm  view on Meta::CPAN

    return 1;
}

sub _ask {
    # Just a function for asking the user questions
    my ($prompt, $default, $mustfind) = @_;

    my $response;
    do {
	print "$prompt [$default]: ";
	chomp($response = <STDIN>);
	$response ||= $default;
    } until (!$mustfind || (-e $response || !print("$response not found\n")));

    return $response;

 view release on metacpan or  search on metacpan

t/httpd02.conf  view on Meta::CPAN

#   See the mod_ssl documentation for a complete list.
#SSLCipherSuite ALL:!ADH:!EXPORT56:RC4+RSA:+HIGH:+MEDIUM:+LOW:+SSLv2:+EXP:+eNULL

#   Server Certificate:
#   Point SSLCertificateFile at a PEM encoded certificate.  If
#   the certificate is encrypted, then you will be prompted for a
#   pass phrase.  Note that a kill -HUP will prompt again. A test
#   certificate can be generated with `make certificate' under
#   built time. Keep in mind that if you've both a RSA and a DSA
#   certificate you can configure both in parallel (to also allow
#   the use of DSA ciphers, etc.)
SSLCertificateFile /usr/share/ssl/certs/www.xyz.com.pem

 view release on metacpan or  search on metacpan

FileManager.pm  view on Meta::CPAN

     }
     return false;
\"><FONT COLOR=WHITE><B>delete</B></FONT></A>",

  #Rename
  "<A HREF=# onclick=\"var f=window.document.FileManager; if (get_num_checked() != 1) { window.alert('Please select ONE file to rename by clicking on a check box with the mouse.'); } else { var rv=window.prompt('enter new name',''); if ((rv != null)&...

  #Extract
  "<A HREF=# onclick=\"var f=window.document.FileManager; if (get_num_checked() == 0) { window.alert('Please select a file to extract by clicking on a check box with the mouse.'); } else { f.FILEMANAGER_cmd.value='extract'; f.submit(); } return false...

  #New File 
  "<A HREF=# onclick=\"
var f=window.document.FileManager; 
var rv = window.prompt('new file name',''); 
var cd = f.FILEMANAGER_curr_dir.value;
if (cd != '') {
  rv = cd+'/'+rv;
}
if ((rv != null)&&(rv != '')) { 

FileManager.pm  view on Meta::CPAN

}
return false;
\"><FONT COLOR=WHITE><B>new file</B></FONT></A>",

  #New Directory
  "<A HREF=# onclick=\"var f=window.document.FileManager; var rv=window.prompt('new directory name',''); if ((rv != null)&&(rv != '')) { f.FILEMANAGER_arg.value=rv; f.FILEMANAGER_cmd.value='mkdir'; f.submit(); } else if (rv == '') { window.alert('can...

  #Upload
  "<A HREF=# onclick=\"window.print_upload(); return false;\"><FONT COLOR=WHITE><B>upload<B></FONT></A>"
  );

 view release on metacpan or  search on metacpan

t/lib/Apache/test.pm  view on Meta::CPAN

    return 1;
}

sub _ask {
    # Just a function for asking the user questions
    my ($prompt, $default, $mustfind, $canskip) = @_;

    my $skip = defined $canskip ? " ('$canskip' to skip)" : '';
    my $response;
    do {
	print "$prompt [$default]$skip: ";
	chomp($response = <STDIN>);
	$response ||= $default;
    } until (!$mustfind || ($response eq $canskip) || (-e $response || !print("$response not found\n")));

    return $response;

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

sub which_modperl {
  my $ans;
  eval {require mod_perl2;};
  unless ($@) {
    $ans = prompt('Install mod_perl-2 version?', 'yes');
    return 'Apache2' if ($ans =~ /^y/);
  }
  eval {require Apache::src;};
  unless ($@) {
    $ans = prompt('Install mod_perl-1 version?', 'yes');
    return 'Apache' if ($ans =~ /^y/);
  }
  warn qq{Please install either mod_perl 1 or mod_perl 2 first};
  exit 0;
}

 view release on metacpan or  search on metacpan

Client/Makefile.PL  view on Meta::CPAN

	return $make ;
}


if (! $Apache::HTTunnel::Makefile){
	my $url = prompt("Please enter the URL of your Apache::HTTunnel server (for the test suite):", '') ;
	open(URL, ">t/server_url") or die("Can't open 't/server_url' for writing: $!") ;
	print URL "$url\n" ;
	close(URL) ;
}

 view release on metacpan or  search on metacpan

t/lib/Apache/test.pm  view on Meta::CPAN

    return 1;
}

sub _ask {
    # Just a function for asking the user questions
    my ($prompt, $default, $mustfind, $canskip) = @_;

    my $skip = defined $canskip ? " ('$canskip' to skip)" : '';
    my $response;
    do {
	$response = prompt("$prompt $skip:", $default);
	$response = $canskip
	    if $mustfind && defined $canskip && $response eq $default && !-e $response;
    } until (!$mustfind || ($response eq $canskip) || (-e $response || !print("$response not found\n")));

    return $response;

 view release on metacpan or  search on metacpan

DBI.pm  view on Meta::CPAN

you'll need to install a Subversion client. Then, to get the source
code, do:

  svn checkout http://svn.perl.org/modules/dbi/trunk

If it prompts for a username and password use your perl.org account
if you have one, else just 'guest' and 'guest'. The source code will
be in a new subdirectory called C<trunk>.

To keep informed about changes to the source you can send an empty email
to dbi-changes@perl.org after which you'll get an email with the

 view release on metacpan or  search on metacpan

bin/install_deps.pl  view on Meta::CPAN

};

$EUID == 0 or die "You will have better luck if you run me as root.\n";

# this causes problems when CPAN is not configured.
#$ENV{PERL_MM_USE_DEFAULT} = 1;       # supress CPAN prompts

$ENV{FTP_PASSIVE} = 1;        # for FTP behind NAT/firewalls

my @failed;
foreach ( @{ $deps->{apps} } ) {

 view release on metacpan or  search on metacpan

MultiAuth.pm  view on Meta::CPAN

=head1 DESCRIPTION

Apache::MultiAuth allows you to specify multiple authentication
modules, to be tried in order.  If any module in the list returns OK,
then the user is considered authenticated; if none return OK, then the
MultiAuth module returns AUTH_REQUIRED and the user is reprompted for 
credentials. This, depending on the browser, results in a 401 authorization
required message.

This is useful for cases where, for example, you have several
authentication schemes:  for example, NIS, SMB, and htpasswd, and some

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

3.4.1. Third Party Claims. If You have knowledge that a party claims an intellectual property right in particular
functionality or code (or its utilization under this License), you must include a text file with the source code
distribution titled "LEGAL" which describes the claim and the party making the claim in sufficient detail that a
recipient will know whom to contact. If you obtain such knowledge after You make Your Modification available as
described in Section 3.2, You shall promptly modify the LEGAL file in all copies You make available thereafter and
shall take other steps (such as notifying AnIdea and appropriate mailing lists or newsgroups) reasonably
calculated to inform those who received the Governed Code that new knowledge has been obtained. In the event that
You are a Contributor, You represent that, except as disclosed in the LEGAL file, your Modifications are your original
creations and, to the best of your knowledge, no third party has any claim (including but not limited to intellectual
property claims) relating to your Modifications. You represent that the LEGAL file includes complete details of any

 view release on metacpan or  search on metacpan

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

the name of a module on web page, then select the bookmark, and go
directly to the documentation for that module. Selecting the bookmark
without having anything highlighted will result in a pop-up dialog in
which you can type a module name.

 javascript:Qr=document.getSelection();if(!Qr){void(Qr=prompt('Module
 name',''))};if(Qr)location.href='http://localhost/perldoc/'+escape(Qr)

Note that that's all one line, split here for display purposes. I know
this works in Netscape and Mozilla. Can't vouch for IE.

 view release on metacpan or  search on metacpan

ProxyRewrite.pm  view on Meta::CPAN

# extent caused by the acts or omissions of such Commercial
# Contributor in connection with its distribution of the Program in a
# commercial product offering. The obligations in this section do not
# apply to any claims or Losses relating to any actual or alleged
# intellectual property infringement. In order to qualify, an
# Indemnified Contributor must: a) promptly notify the Commercial
# Contributor in writing of such claim, and b) allow the Commercial
# Contributor to control, and cooperate with the Commercial
# Contributor in, the defense and any related settlement negotiations.
# The Indemnified Contributor may participate in any such claim at its
# own expense.

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

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", 

Makefile.PL  view on Meta::CPAN

    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');

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    
    unless (eval "use Module::Build::Compat 0.02; 1" ) {
      print "This module requires Module::Build to install itself.\n";
      
      require ExtUtils::MakeMaker;
      my $yn = ExtUtils::MakeMaker::prompt
	('  Install Module::Build now from CPAN?', 'y');
      
      unless ($yn =~ /^y/i) {
	die " *** Cannot install without Module::Build.  Exiting ...\n";
      }

 view release on metacpan or  search on metacpan

RequestNotes.pm  view on Meta::CPAN

It should be noted that Apache::Request 0.3103 and above now offers
the Apache::Request->instance() method, which offers the ability
to access the same Apache::Request object over and over again.
While the availability of instance() does absorb the problems that
prompted Apache::RequestNotes, namely the ability to read from POST
more than once, you still have to parse the various data yourself.
Thus, the utility of Apache::RequestNotes is now simply the ability
to have a common API for all your handlers to use.

Apache::RequestNotes can really be called from just about any request

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

		$httpd_path = $file;
		last;
	    }
	}
    }
    $cfg->{'httpd_path'} = prompt("Path of the Apache server: ",
				  $httpd_path || '/usr/sbin/httpd');
    die "Cannot execute HTTPD server $cfg->{'httpd_path'}: No such file"
	unless -x $cfg->{'httpd_path'};

    my $httpd_V_output = `$cfg->{'httpd_path'} -V`;
    my $httpd_conf_path =
	($httpd_V_output =~ /\s+-D\s+SERVER_CONFIG_FILE="(.*?)"/) ?
	    $1 : "/etc/httpd/httpd.conf";
    $cfg->{'httpd_conf_path'} = prompt("Path of the httpd.conf file: ",
				       $httpd_conf_path);
    my $httpd_conf_contents;
    die "Failed to read httpd config file $cfg->{'httpd_conf_path'}: $!"
	unless open(FILE, "<$cfg->{'httpd_conf_path'}");

Makefile.PL  view on Meta::CPAN

	}
	$_;
    } @module_list;
    $cfg->{'dynamic_module_list'} = join("", @module_list);

    $cfg->{'httpd_user'} = prompt("HTTPD's UID for running tests: ",
				  $cfg->{'httpd_user'} || ('#' . $>));
    my $gid = $);
    $gid =~ s/\s.*//;
    $cfg->{'httpd_group'} = prompt("HTTPD's GID for running tests: ",
				   $cfg->{'httpd_group'} || ('#' . $gid));
    $cfg->{'httpd_port'} = prompt("Port to use for running tests: ",
				  $cfg->{'httpd_port'} || 8259);

    my $tdir = $cfg->{'t_dir'} = File::Spec->catdir(Cwd::getcwd(), "t");
    $cfg->{'httpd_conf'} = File::Spec->catfile($tdir, "httpd.cnf");
    $cfg->{'access_conf'} = File::Spec->catfile($tdir, "access.cnf");

Makefile.PL  view on Meta::CPAN

	!(print STATUS $dump->Dump())  ||
	!close(STATUS)) {
	die "Error while creating file .status: $!";
    }

    my $reply = prompt("Do you want to configure the Apache::Roaming::LiPrefs module?", "y");
    if ($reply =~ /y/i) {
	foreach my $ref
	    (['Enable Autoupdate', 'bool', 'initial', 'autoupdate.enabled',
	      'false'],
	     ["Enable what's related?", 'bool', 'initial',

Makefile.PL  view on Meta::CPAN

  	      'security.email_as_ftp_password', 'true'],
	     ['Send Warning while submitting an insecure POST', 'bool',
  	      'initial', 'security.warn_entering_secure', 'true'],
	     ['Send Warning while entering a secure area', 'bool', 'initial',
  	      'security.warn_submit_insecure', 'true']) {
		my($prompt, $type, $initial, $var, $default, $in_filter,
		   $out_filter) = @$ref;
		if (exists($Apache::Roaming::LiPrefs::ALWAYS{$var})) {
		    $initial = 'always';
		    $default = $Apache::Roaming::LiPrefs::ALWAYS{$var};
		} elsif (exists($Apache::Roaming::LiPrefs::INITIAL{$var})) {

Makefile.PL  view on Meta::CPAN

			and  $default ne 'false') {
			$default = $default ? 'true' : 'false';
		    }
		}
		$default = defined($default) ?
		    prompt($prompt, $default) : prompt($prompt);
		if ($type eq 'bool') {
		    if (defined($default)
			and  $default ne 'true'
			and  $default ne 'false') {
			$default = $default ? 'true' : 'false';
		    }
		}
		$default = &$out_filter($default) if $out_filter;
		$initial = prompt("  Allow user to override this variable?",
				  ($initial eq 'initial') ? 'y' : 'n')
		    if defined($default);
		if ($initial =~ /y/i) {
		    delete $Apache::Roaming::LiPrefs::ALWAYS{$var};
		    $Apache::Roaming::LiPrefs::INITIAL{$var} = $default;