view release on metacpan or  search on metacpan

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

        return OK;
}
 
1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

Apache::MagicPOST - Perl module to emulate arbitray HTTP methods through POST

 view release on metacpan or  search on metacpan

MiniWiki.pm  view on Meta::CPAN

  $newtext = &prettify($newtext);
    
  $template->param('vroot', $vroot || "no vroot");
  $template->param('title', $uri);
  $template->param('body', $newtext);
  $template->param('editlink', "$vroot/\(edit\)\/$uri");
  $template->param('loglink', "$vroot/\(log\)\/$uri");
  $template->param('pageurl', "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{REQUEST_URI}");
  
  my $output = $template->output;
  

MiniWiki.pm  view on Meta::CPAN

    $text = $q->param('text');
    $text =~ s/\r//g;
  }

  if ($q->param("Save") =~ /preview/i) {
    return &edit_function($r, $uri, $text);
  }

  my $comment = $q->param('comment');
  my $user = $r->connection->user || "anonymous";

MiniWiki.pm  view on Meta::CPAN

  $file->ci('-u', "-w$user", "-m$comment") or confess $!;

  $uri = "index" if ($uri and $uri eq 'template');

  if (not &is_img($uri) and &is_binary($uri)) {
    return &edit_function($r, $uri, undef);
  } else { 
    return &view_function($r, $uri);
  }
}

MiniWiki.pm  view on Meta::CPAN

  $newtext .= qq([<a href="${vroot}/${uri}">Return</a>]<p>);

  $template->param('vroot', $vroot);
  $template->param('title', $uri);
  $template->param('body', $newtext);
  $template->param('editlink', "$vroot/\(edit\)\/$uri");
  $template->param('loglink', "$vroot/\(log\)\/$uri");
  $template->param("lastmod", &get_lastmod("${datadir}/${fileuri},v"));

  $r->send_http_header('text/html');
  print $template->output;

MiniWiki.pm  view on Meta::CPAN

	);
  
	$template->param('vroot', $vroot);
	$template->param('title', $uri);
	$template->param('body', $formhtml);
	$template->param('editlink', "$vroot/\(edit\)\/$uri");
	$template->param('loglink', "$vroot/\(log\)\/$uri");
	$template->param("lastmod", &get_lastmod("${datadir}/${fileuri},v"));

	my $output = $template->output;
	$output =~ s/\n(\s*)\n(\s*)\n/\n\n/g;

MiniWiki.pm  view on Meta::CPAN

	print $output;

	return OK;
}

# The edit function checks out a page from RCS and provides a text
# area for the user where he or she can edit the content.
sub edit_function {
  my ($r, $uri, $preview_wikitext) = @_;

  my $fileuri = uri_to_filename($uri);
  
  my $q = new CGI;

MiniWiki.pm  view on Meta::CPAN

  $text .= qq(<input type="submit" name="Save" value="Save"></fieldset></form>);

  $template->param('vroot', $vroot);
  $template->param('title', $uri);
  $template->param('body', $text);
  $template->param('editlink', "$vroot/\(edit\)\/$uri");
  $template->param('loglink', "$vroot/\(log\)\/$uri");
  $template->param("lastmod", &get_lastmod("${datadir}/${fileuri},v"));

  my $output = $template->output;
  $output =~ s/\n(\s*)\n(\s*)\n/\n\n/g;

MiniWiki.pm  view on Meta::CPAN

    }
  
    $template->param('vroot', $vroot || "no vroot");
    $template->param('title', $uri);
    $template->param('body', $newtext);
    $template->param('editlink', "$vroot/\(edit\)\/$uri");
    $template->param('loglink', "$vroot/\(log\)\/$uri");
    $template->param('pageurl', "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{REQUEST_URI}");
    $template->param("lastmod", &get_lastmod("${datadir}/${fileuri},v"));
  
    my $output = $template->output;

MiniWiki.pm  view on Meta::CPAN

  open (OUT, "> $filename") || die $!;
  print OUT $data;
  close(OUT);
}

# returns the name of the last page that was editted in the wiki
sub get_lastchanged {
  open (CMD, "cd ${datadir}; /bin/ls -1at *,v | head -1 |") || die $!;
  my $filename = <CMD>;
  close (CMD);
	$filename =~ s/\t|\r|\n//g;

MiniWiki.pm  view on Meta::CPAN

	  }
      else {
        $link = qq{<a href="$vroot/$rawname">$desc</a>};
      }
      if (is_binary($rawname) || is_img($rawname)) {
        $link .= qq { <sup><a href="$vroot/(edit)$rawname">[E]</a></sup>};
      }
      $newtext =~ s/\[\[[^\]]*\]\]/$link/;
    } else {
      $tmplink = "$desc <a href=\"${vroot}\/(edit)/${rawname}\"><sup>?<\/sup><\/a>";
      $newtext =~ s/\[\[[^\]]*\]\]/$tmplink/;
    }
    }
    $newtext =~ s/\\\[\\\[/\[\[/g;
  

MiniWiki.pm  view on Meta::CPAN

  $diffbody .= &diff_form($uri);

  $template->param('vroot', $vroot);
  $template->param('title', $uri);
  $template->param('body', $diffbody);
  $template->param('editlink', "$vroot/\(edit\)\/$uri");
  $template->param('loglink', "$vroot/\(log\)\/$uri");
  $template->param("lastmod", &get_lastmod("${datadir}/${uri},v"));

  $r->send_http_header('text/html');
  print $template->output;

MiniWiki.pm  view on Meta::CPAN

  $logbody .= &diff_form($uri);

  $template->param('vroot', $vroot);
  $template->param('title', $uri);
  $template->param('body', $logbody);
  $template->param('editlink', "$vroot/\(edit\)\/$uri");
  $template->param('loglink', "$vroot/\(log\)\/$uri");
  $template->param("lastmod", &get_lastmod("${datadir}/${fileuri},v"));

  $r->send_http_header('text/html');
  print $template->output;

MiniWiki.pm  view on Meta::CPAN

<p>
<hr/>
<i>This is a default template. For a full example of wiki pages, 
use those provided in the Apache::MiniWiki distribution.</i>
<hr/>
[<a href="<TMPL_VAR NAME=editlink>">Edit</a> | 
<a href="<TMPL_VAR NAME=loglink>">Archive</a> |
<a href="<TMPL_VAR NAME=vroot>/">Home</a> ]
<br/><br/>
Last Modified: <TMPL_VAR NAME="lastmod">
</body></html>

MiniWiki.pm  view on Meta::CPAN

		my $ul_id = "links_${rawname}";
		$ul_id =~ s/(\.| )//g; 
		$spanhtml .= qq|<ul id="$ul_id" style="display:none">\n|;
		foreach my $link (@links) {
			my $href = $link->[2];
			next if ($href =~ /\(edit\)|template-/i or $href eq "${vroot}/template");
			next if ($href eq "http://"); # not real
			if ($href =~ /^${vroot}/) {
				next if (!-f &strip_virtual($href));
				$href = "#" . &strip_virtual($href);
				$total_in++;

MiniWiki.pm  view on Meta::CPAN

	return $changes;
}

# If enabled as a PerlAccessHandler, allows public viewing of
# a Wiki, but leaves existing authentication in place for editing
# content.
sub access_handler {
  my $r = shift;

  return OK unless $r->some_auth_required;

  my $uri = $r->uri;
  unless ($uri =~ /\((edit|save|revert)\)/) {
    $r->set_handlers(PerlAuthenHandler => [\&OK]);
    $r->set_handlers(PerlAuthzHandler => [\&OK])
      if grep { lc($_->{requirement}) ne 'valid-user' } @{$r->requires};
  }

MiniWiki.pm  view on Meta::CPAN

     AuthName "Sample Wiki"
     AuthUserFile /home/foo/db/htpasswd 
     Require valid-user
  </Location>

  Public can read, but need password to edit/save/revert a page:
  
  <Location /wiki>
     PerlAddVar datadir "/home/foo/db/wiki/"
     PerlAddVar vroot "/wiki"
     PerlAddVar authen "/home/foo/db/htpasswd"

MiniWiki.pm  view on Meta::CPAN

template in the RCS file template,v in the C<datadir>. Upon execution,
MiniWiki will check out this template and use it. If you make any
modifications to the RCS file, a new version will be checked out.

You can modify the template from within MiniWiki by visiting the URL
http://your.server.name/your-wiki-vroot/(edit)/template

If you don't install a template, a default one will be used.

The C<datadir> variable defines where in the filesystem that the RCS
files that MiniWiki uses should be stored. This is also where MiniWiki

MiniWiki.pm  view on Meta::CPAN

  PerlAddVar templates fvlug linux

By doing this, pages that contain those words will use the matching template.
For example, the /your-wiki-vroot/LinuxDatabases page will then use the template-linux page,
instead of template. You will need to create the template by going to
/wiki/your-wiki-vroot/(edit)/template-<the_template> first.

(Optional) To disable file uploads such as binary attachments and inline images,
set uploads to no. By default it is yes. Note that inline images requires the
Image::Magick module to be installed for generating thumbnails.

MiniWiki.pm  view on Meta::CPAN

	  /wiki
  title:
    the title of a page. Comes from the first line of text.
  body:
    HTMLified version of a wiki page
  editlink:
    Link to the edit page. E.g.:
	  http://www.nyetwork.org/wiki/(edit)/MiniWiki
  loglink:
    Link to the Archive page. e.g.:
	  http://www.nyetwork.org/wiki/(log)/MiniWiki
  pageurl:
    Fully qualified link to the page based on the last request, e.g.:

MiniWiki.pm  view on Meta::CPAN

chance that pages will get rolled back as the spider
goes in circles following links. This has happened! Add
these links to your robots.txt so that robots can
only view the actual current pages:

Disallow: /wiki/(edit)/
Disallow: /wiki/(log)/
Disallow: /wiki/(revert)/
Disallow: /wiki/(save)/
Disallow: /wiki/(view)/
Disallow: /wiki/lastchanges

 view release on metacpan or  search on metacpan

Motd.pm  view on Meta::CPAN

 i.e. MessageFile /usr/local/apache/motd.txt

If the file is not found in the specified directory all requests will not be 
directed to the B<motd>.  Therefore you can rename,delete this file from the 
specified location to disable the B<motd> without having to edit the 
httpd.conf entry and/or restart the web server.

See B<MessageFile Format> for a description how the message should
be used.

 view release on metacpan or  search on metacpan

NNTPGateway.pm  view on Meta::CPAN

    $refs .= $msgid;
    # Quote body
    my $body = "\n " . &message( 'msg_cite', $msgid, $Article->{Header}{from} ) . ":\n\n";
    $Article->{Body} =~ s/^\s*(.*)$/ > $1/gm;
    $body .= $Article->{Body} . "\n\n";
    # Print a form for user to edit fields and post.
    &print_html_post_form( $r, $subject, $body, $refs );
    # The remaining, that is the real NNTP posting is handled by
    # action_post() which is called from a submit (POST method) with
    # the form with the right arguments.

 view release on metacpan or  search on metacpan

Makefile.old  view on Meta::CPAN

# This Makefile is for the Apache::OWA extension to perl.
#
# It was generated automatically by MakeMaker version
# 5.4302 (Revision: 1.222) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
#	ANY CHANGES MADE HERE WILL BE LOST!
#
#   MakeMaker ARGV: ()
#

 view release on metacpan or  search on metacpan

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

}

1;

__END__
# Below is stub documentation for your module. You better edit it!

=head1 NAME

Apache::OneTimeURL - One-time use URLs for sensitive data

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.14  Sun Apr 30 13:00:00 2003
	- Added ability to do caching to the Apache::PAR::Static module
	  (see documentation in that module for details.)  To use caching
	  the Cache::Cache module is required 
	- Some general code cleanup performed
	- Switched to Eclipse IDE for editing / CVS management of project
	- Removed use warnings to work with old versions of Perl
	- Removed exporter tags from PAR.pm since we weren't using
	  them anyway.
	- Removed Win32 "fix" that wasn't necessary

 view release on metacpan or  search on metacpan

lib/Template/PSP/autoform.psp  view on Meta::CPAN

     accepts="name,lookup">
<perl>

=head2 AutoFill message tag

The C<automessage> tag displays a non-editable field.

Usage: 

  <automessage name="full_nm" />

lib/Template/PSP/autoform.psp  view on Meta::CPAN

     accepts="name, href, fields, cond">
<perl>

=head2 AutoFill link tag

The C<autolink> tag displays a non-editable link.

Usage:

  <autolink href="view_user.psp" name="full_nm" />

lib/Template/PSP/autoform.psp  view on Meta::CPAN

     accepts="href, fields">
<perl>

=head2 AutoFill forward tag

The C<autoforward> tag displays a non-editable link.

Usage:

  <autoforward href="view_user.psp" fields="" />

 view release on metacpan or  search on metacpan

eg/Model/MyPageKit/Common.pm  view on Meta::CPAN

  $model->output(link_color => $session->{'link_color'} || '#ff9933');
  $model->output(text_color => $session->{'text_color'} || '#000000');
  $model->output(bgcolor => $session->{'bgcolor'} || '#dddddd');
  $model->output(mod_color => $session->{'mod_color'} || '#ffffff');

  # toggle on-line editing tools
  if($model->input('pkit_admin')) {
    $session->{'pkit_admin'} = $model->input('pkit_admin') eq 'on' ? 1 : 0;
  }
  $model->output(pkit_admin => $session->{'pkit_admin'});
}

 view release on metacpan or  search on metacpan

ISO3166CountryCodes.txt  view on Meta::CPAN

Newsletter III-60, 1994-01-26
  Cambodia, changing information not included in this file. Offical name
  change to Kingdom of Cambodia

Announcement, 1994-02-02
  At this point the fourth edition of ISO 3166 appears. It can *now* be
  ordered from national standards institutions. 
  The RIPE NCC will continue tracking changes.

Newsletter IV-1, 1996-04-03
  Vatican, change name from VATICAN CITY STATE (HOLY SEE) to
  HOLY SEE (VATICAN CITY STATE)

Annual Report 1996, 1996-12-20
  No further changes have been made to 3166-IV.

  The fifth edition will consist of three parts:
  3166-1 country codes / DIS published April 96 / IS expected summer|fall 97
  "The list of country names remains basically unchanged."
  3166-2 country subdivision code / DIS published November 1996
  3166-3 Code for formerly used names of countries / DIS expected spring 97

 view release on metacpan or  search on metacpan

ProxyRewrite.pm  view on Meta::CPAN

directives from the "Writing Apache Modules with Perl and C"
book page 287:

  The only trick is to remember to put double quotes around the
  configuration value if it contains whitespace and not to allow
  your text editor to wrap it to another line. You can use
  backslash as a continuation character if you find long lines a
  pain to read.

=back

 view release on metacpan or  search on metacpan

.project  view on Meta::CPAN

	<comment></comment>
	<projects>
	</projects>
	<buildSpec>
		<buildCommand>
			<name>org.epic.perleditor.perlbuilder</name>
			<arguments>
			</arguments>
		</buildCommand>
	</buildSpec>
	<natures>
		<nature>org.epic.perleditor.perlnature</nature>
	</natures>
</projectDescription>

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

      copyright notice that is included in or attached to the work
      (an example is provided in the Appendix below).

      "Derivative Works" shall mean any work, whether in Source or Object
      form, that is based on (or derived from) the Work and for which the
      editorial revisions, annotations, elaborations, or other modifications
      represent, as a whole, an original work of authorship. For the purposes
      of this License, Derivative Works shall not include works that remain
      separable from, or merely link (or bind by name) to the interfaces of,
      the Work and Derivative Works thereof.

 view release on metacpan or  search on metacpan

RewritingProxy.pm  view on Meta::CPAN

    while (my $tolkens = $p->get_token )
      {
      my $text = "";
      # We process all of the possible token types.  
      # text and comments are printed unmolested to the browser.
      # Javascript would have to be parsed out by editing the text
      # between script tags.
      if ($tolkens->[0] eq 'T')
	{
  	if ($textHandlerSub)
	  {

 view release on metacpan or  search on metacpan

lib/Apache/SPARQL/RDFStore.pm  view on Meta::CPAN

=head1 SEE ALSO

 Apache::SPARQL
 http://www.w3.org/TR/rdf-sparql-protocol/
 http://www.w3.org/2001/sw/DataAccess/proto-wd/ (editor working draft)
 http://www.w3.org/2001/sw/DataAccess/prot26
 http://www.w3.org/TR/rdf-sparql-query/
 http://www.w3.org/2001/sw/DataAccess/rq23/ (edit working draft)

=head1 LICENSE

see LICENSE file included into this distribution

 view release on metacpan or  search on metacpan

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

=head1 SEE ALSO

 Apache::SPARQL::RDFStore
 http://www.w3.org/TR/rdf-sparql-protocol/
 http://www.w3.org/2001/sw/DataAccess/proto-wd/ (editor working draft)
 http://www.w3.org/2001/sw/DataAccess/prot26
 http://www.w3.org/TR/rdf-sparql-query/
 http://www.w3.org/2001/sw/DataAccess/rq23/ (edit working draft)

=head1 LICENSE

see LICENSE file included into this distribution

 view release on metacpan or  search on metacpan

lib/Apache/SdnFw/bin/conf.pl  view on Meta::CPAN

use strict;

print <<END;
### Autogenerated httpd.conf
##
## Do not edit this file. All changes will be lost the next time the server
## starts, restarts, reloads, or is configtested
##
## If you need to make a change to this, please change conf.pl
##
END

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

Issue 1: The Caching Problem

Even if no passive or active adversary is sitting between the client
and server, an unauthorized user might still see the wrong data because
any web-caching device along the way might cough up a request such
as http://www.acme.com/creditcards.txt without ever referring it to
the server, if a previous authorized user made the same request.  This
is a no-no for the web-cache to do, but it happens anyway.

Solution: There is no real solution, and RFC2964 is correct to discourage
plaintext cookie-based authentication even over secure networks (like on an 

 view release on metacpan or  search on metacpan

cpanfile  view on Meta::CPAN

# This file is generated by Dist::Zilla::Plugin::CPANFile v6.037
# Do not edit this file directly. To change prereqs, edit the `dist.ini` file.

requires "Crypt::SysRandom" => "0.007";
requires "perl" => "5.006";
requires "strict" => "0";
requires "warnings" => "0";

 view release on metacpan or  search on metacpan

Lazy.pm  view on Meta::CPAN

  !$@;
}

1;
__END__
# Below is stub documentation for your module. You better edit it!

=head1 NAME

Apache::Session::Lazy - Perl extension for opening Apache::Sessions on first read/write access.

 view release on metacpan or  search on metacpan

lib/Apache/Session/Memcached.pm  view on Meta::CPAN

   %> make
   %> make test
   %> make install

Note: for live tests, you must run at least a memcached daemon and you could
need to edit t/CONFIG file, in order to set correct parameters used for
testing. 

=head1 SEE ALSO

L<Apache::Session::Store::Memcached|Apache::Session::Store::Memcached>,

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

open FH, ">SessionX/Config.pm" or die "Cannot open SessionX/Config.pm for writing ($!)" ;
print FH qq{
#
# Apache::SessionX configuration
#
# Autogenerated by Makefile.PL, do not edit!
#

package Apache::SessionX::Config ;

\$default = '$conf[$default]' ;

 view release on metacpan or  search on metacpan

GETTING_STARTED  view on Meta::CPAN

2) gunzip and untar this package.  Obviously, you've gotten this far or
you wouldn't be reading this.  :^)

3) Check out Makefile.PL.  If you understand it, and you know what you're
doing, you might want to edit it.  If you don't, that's ok.  Perl will
probably take care of the details for you.  

4) Run 

  perl Makefile.PL;

GETTING_STARTED  view on Meta::CPAN

(/usr/lib/perl5/site_perl/5.005/Apache/SetWWWTheme.pm for example).  It
must be in an Apache directory, whatever the case.  If you can't get it
installed, email me and I'll help (chogan@uvastro.phys.uvic.ca)

6) Ok, we've got it in -- we just need to get it running.  Edit your
httpd.conf file and add in the following (edited to suit your site)

 <Location /somewhere>
	SetHandler perl-script
	PerlHandler Apache::SetWWWTheme
	PerlSetVar CONFIG_FILE /WWW/Configuration
 </Location>

You'll need to edit that to suit your particular tree.  "/somewhere"
should be a subtree in your web directory.  If you want the module to
affect the entire web tree, just put <Location />.  You can do as many of
these <Location [subtree]> directives as you want.  Apache will handle
them all.  You'll also need to change the CONFIG_FILE value from
"/WWW/Configuration" to point to the name of the configuration file for

GETTING_STARTED  view on Meta::CPAN

          PerlSetVar CONFIG_FILE /WWW/apache/htdocs/Configuration

	-copy SetWWWTheme/templates/LookAndFeelConfig to any subdirectory
	 in your webtree.  If you like, put it in the document root.

	-edit Configuration and LookAndFeelConfig until you're happy with
	 them.  Read the pod or the manpage to figure out what all the
	 directives do (if you can't figure it out by playing with it)

	-take a look at the SetWWWTheme/templates/example.html file to
	 see how you embed directives into HTML files.  You could even

 view release on metacpan or  search on metacpan

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

For example, your mason component might look like this:

   <HTML>
      <HEAD> ... </HEAD>
   % if($manager->can($currentUser, "edit", $table)) {
         <FORM METHOD=POST ACTION="...">
            <P><INPUT TYPE=TEXT NAME="x" VALUE="<% $table->{x} %>">
            ...
         </FORM>
   % } else {

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

      copyright notice that is included in or attached to the work
      (an example is provided in the Appendix below).

      "Derivative Works" shall mean any work, whether in Source or Object
      form, that is based on (or derived from) the Work and for which the
      editorial revisions, annotations, elaborations, or other modifications
      represent, as a whole, an original work of authorship. For the purposes
      of this License, Derivative Works shall not include works that remain
      separable from, or merely link (or bind by name) to the interfaces of,
      the Work and Derivative Works thereof.

 view release on metacpan or  search on metacpan

t/External/Apache-Sling-User.t  view on Meta::CPAN

    "User Test: User \"$test_user\" exists." );
ok( ! $user->add( $test_user, $test_pass, \@test_properties ),
    "User Test: Already existing User \"$test_user\" not added successfully again." );

# Check can update properties:
@test_properties = ( "user_test_editor=$super_user" );
ok( $user->update( $test_user, \@test_properties ),
    "User Test: User \"$test_user\" updated successfully." );
ok( ! $user->update( "non-existent-$test_user", \@test_properties ),
    "User Test: non-existent user properties not updated successfully." );

t/External/Apache-Sling-User.t  view on Meta::CPAN

ok( $group_member->add( $test_group, $test_user ),
    "User Test: Member \"$test_user\" added to \"$test_group\"." );
ok( $group_member->check_exists( $test_group, $test_user ),
    "User Test: Member \"$test_user\" exists in \"$test_group\"." );
# Check can still update properties:
@test_properties = ( "user_test_edit_after_group_join=true" );
ok( $user->update( $test_user, \@test_properties ),
    "User Test: User \"$test_user\" updated successfully." );
# Delete test user from group:
ok( $group_member->del( $test_group, $test_user ),
    "User Test: Member \"$test_user\" deleted from \"$test_group\"." );

t/External/Apache-Sling-User.t  view on Meta::CPAN

# Switch to test_user
ok( $authn->switch_user( $test_user, $test_pass ),
    "User Test: Successfully switched to user: \"$test_user\" with basic auth" );

# Check can update properties:
@test_properties = ( "user_test_editor=$test_user" );
ok( $user->update( $test_user, \@test_properties ),
    "User Test: User \"$test_user\" updated successfully." );

# switch back to admin user:
ok( $authn->switch_user( $super_user, $super_pass ),

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

connections become unusable for any other reason.

The eg/ directory has a sample conpool.cfg file, as well as
a simple pool.cgi script that illustrates usage.

Credit where credit is due department: I initially got this 
technique from Kenny MacLeod, who suggested it when I was
inquiring about connection pooling in the Sybase newsgroups
about a year ago.

Comments are as usual welcome!

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

      copyright notice that is included in or attached to the work
      (an example is provided in the Appendix below).

      "Derivative Works" shall mean any work, whether in Source or Object
      form, that is based on (or derived from) the Work and for which the
      editorial revisions, annotations, elaborations, or other modifications
      represent, as a whole, an original work of authorship. For the purposes
      of this License, Derivative Works shall not include works that remain
      separable from, or merely link (or bind by name) to the interfaces of,
      the Work and Derivative Works thereof.

 view release on metacpan or  search on metacpan

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

    return unless $ssldir and -d $ssldir;

    my $name = $self->{current_install_name};

    my $ssl_mod = "$name/modules/ssl";
    info "editing $ssl_mod/modules.mk";

    if (DRYRUN) {
        return;
    }

 view release on metacpan or  search on metacpan

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

1;

1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

Apache::TopicMaps - Perl extension for serving topic maps.