view release on metacpan or  search on metacpan

lib/Apache/Voodoo/Install/Config.pm  view on Meta::CPAN

	# I had this as a print block, but it tripped up the cpan.org formatter
	print OUT "################################################################################\n";
	print OUT "#\n";
	print OUT "# Installation specific settings for Apache Voodoo are stored here.\n";
	print OUT "# Do not edit this file directly.  Use the \"voodoo-control\" command instead.\n";
	print OUT "#\n";
	print OUT "################################################################################\n";
	print OUT "package Apache::Voodoo::MyConfig;\n";
	print OUT "\n";

 view release on metacpan or  search on metacpan

Makefile.old  view on Meta::CPAN

# This Makefile is for the Apache::WAP::AutoIndex extension to perl.
#
# It was generated automatically by MakeMaker version
# 5.45 (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

Makefile.old  view on Meta::CPAN

# This Makefile is for the Apache::WAP::MailPeek extension to perl.
#
# It was generated automatically by MakeMaker version
# 5.45 (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

bin/amprapmon  view on Meta::CPAN

  % amprapmon <start|stop|restart>

=head1 CONFIGURATION

You should edit the top of the program where the configuration
parameters are located.  See the CONFIGURATION section of
Apache::Watchdog::RunAway for more info.

=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

WinBitHack.pm  view on Meta::CPAN

directive, a file will parsed by mod_include if the C<archive> 
attribute is B<unset>, which you can do by

   C:\> attrib -a file_name

Note that when a user's file is first created or when it is edited 
the C<archive> attribute will normally be set (and all others unset),
so you must intentionally unset the C<archive> attribute to enable 
server-parsing of the file.

=head2 XBitHack Full

 view release on metacpan or  search on metacpan

Wyrd/Input/Condenser.pm  view on Meta::CPAN

=head1 DESCRIPTION

The Condenser Input is so called because it condenses the results of
several enclosed Inputs into a single value.  It is meant to be an
abstract class from which Inputs can be derived which are used primarily
in editing multiple whole related records along with a reference record,
for example in relating track information to a CD on the same page/form
as the CD information.

=head2 HTML ATTRIBUTES

 view release on metacpan or  search on metacpan

lib/HTML/FormValidator.pm  view on Meta::CPAN

=item dependencies

This is an hash reference which contains dependencies information.
This is for the case where one optional fields has other requirements.
For example, if you enter your credit card number, the field cc_exp
and cc_type should also be present. Any fields in the dependencies
list that is missing when the target is present will be reported as
missing.

=item defaults

lib/HTML/FormValidator.pm  view on Meta::CPAN

=pod

=item cc_number

This is takes two parameters, the credit card number and the credit cart
type. You should take the hash reference option for using that constraint.

The number is checked only for plausibility, it checks if the number could
be valid for a type of card by checking the checksum and looking at the number
of digits and the number of digits of the number.

lib/HTML/FormValidator.pm  view on Meta::CPAN

=head1 CREDITS

Some of those input validation functions have been taken from MiniVend
by Michael J. Heins <mike@heins.net>

The credit card checksum validation was taken from contribution by
Bruce Albrecht <bruce.albrecht@seag.fingerhut.com> to the MiniVend
program.

=head1 AUTHOR

 view release on metacpan or  search on metacpan

lib/Apache2/API.pm  view on Meta::CPAN

sub reply
{
    my $self = shift( @_ );
    my( $code, $ref );
    my $use_rfc_error = $self->{use_rfc_error} // $USE_RFC_ERROR;
    # rfc9457 standard for REST API error response: <https://www.rfc-editor.org/rfc/rfc9457.html>
    # Legacy JSON payload like Google, Twitter, Facebook
    # Modern REST APIs now uses rfc9457 with a flattened payload.
    # When the use_rfc_error object property is true, we use rfc9457 flattened error, this will produce something like:
    # {
    #     error  => 'not_found',

lib/Apache2/API.pm  view on Meta::CPAN

Returns the values from L<Apache2::Server/set_handlers> by passing it whatever arguments were provided.

=head2 use_rfc_error

Boolean. When true, this will return rfc9457 style error L<https://www.rfc-editor.org/rfc/rfc9457.html>

=head2 warn( @list )

Given a list of string, this sends a warning using L<Apache2::Log/warn>

 view release on metacpan or  search on metacpan

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

  
  shift(@_);
	
	my $mode = $context->request->Form->{mode};
	
	return unless ( ! $mode ) || ( $mode !~ m/^(create|edit)$/ );
	
  my $filename = $s->compose_download_file_path( $context );
  my $file = $s->compose_download_file_name( $context );
  
  # Find its MIME type and set our 'ContentType' value:

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

  local $_ = $s->_args('mode');
  if( /^create$/ )
  {
    $s->before_create($context, $Upload);
  }
  elsif( /^edit$/ )
  {
    $s->before_update($context, $Upload);
  }
  else
  {

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

  $form = $context->request->Form;
  if( $form->{mode} =~ /^create$/ )
  {
    $s->after_create($context, $Upload);
  }
  elsif(  $form->{mode} =~ /^edit$/ )
  {
    $s->after_update($context, $Upload);
  }
  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

README  view on Meta::CPAN

        For more information, or to schedule a consult, visit our website at
        www.CharlestonSW.com

CONTRIBUTIONS
        Like the script and want to contribute?
        You can send payments via credit card or bank transfer using
        PayPal and sending money to our info@charlestonsw.com PayPal address.

COPYRIGHT
        (c) 2006, Charleston Software Associates
        This script is covered by the GNU GENERAL PUBLIC LICENSE.

 view release on metacpan or  search on metacpan

AuthNetLDAP.pm  view on Meta::CPAN

   return Apache2::Const::OK;
}
# Autoload methods go after =cut, and are processed by the autosplit program.

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

=head1 NAME

Apache2::AuthNetLDAP - mod_perl module that uses the Net::LDAP module for user authentication for Apache 

 view release on metacpan or  search on metacpan

smb/Smb.pm  view on Meta::CPAN

# Autoload methods go after =cut, and are processed by the autosplit program.

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

=head1 NAME

Authen::Smb - Perl extension to authenticate against an SMB server

 view release on metacpan or  search on metacpan

Auth/RCS/Makefile.old,v  view on Meta::CPAN

text
@# This Makefile is for the Apache::AuthenSecurID::Auth extension to perl.
#
# It was generated automatically by MakeMaker version
# 5.45 (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

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

ac.js  view on Meta::CPAN

S;p.disabled=false}else if(I>=3||D>=10){p.value="o";p.disabled=false}S=null;return true}}newwin=function(){window.open(d.value);B();return false};idkc=function(a){if($){if(W){Ua()}var b=d.value;if(b!=Z){j=0;Oa()}Z=b;setTimeout("idkc()",10)}};function...
k,b[0],b[1],K.completeDiv.prefixStrings)}else{D++;Qa=(new Date).getTime();if(F){ob(a)}else{ta("qu",a,null,E,null,null);frames["completionFrame"].document.location.reload(true)}}d.focus()}da=false}qa=k;setTimeout("idfn()",bb(D));return true};setTimeou...
for(var c=0;c<A;c++){if(U[c]==n){r=c;break}}},ib=function(){s(this,"aAutoComplete")};function sa(a){S="t";k=M;N(M);w=M;if(!U||A<=0)return;Sa();if(n)s(n,"aAutoComplete");if(a==A||a==-1){r=-1;d.focus();return}else if(a>A){a=0}else if(a<-1){a=A-1}r=a;n=...
f.length;A=h;U=f;pa=h;M=k;if(k==""||h==0){B()}else{Sa()}var g="";if(k.length>0){var l,o;for(var l=0;l<h;l++){for(o=0;o<a.prefixStrings.length;o++){var y=a.prefixStrings[o]+k;if(ha||!aa&&b(f.item(l)).toUpperCase().indexOf(y.toUpperCase())==0||aa&&l==0...
true;break;default:break}if(!wa&&n){var ea=k;s(n,"bAutoComplete");var Q;if(e)Q=b(n).substr(a.prefixStrings[o].length);else Q=ea;if(Q!=c.value){if(c.value!=k)return;if(J){if(c.createTextRange||c.setSelectionRange)N(Q);if(c.createTextRange){var xa=c.cr...
a+"="+b+(c?"; expires="+c.toGMTString():"")+(e?"; path="+e:"")+(f?"; domain="+f:"")+(h?"; secure":"");document.cookie=g}function Ra(){var a=document.body.scrollWidth-220;a=0.73*a;d.size=Math.floor(a/6.18)}function P(a){var b=-1;if(a.createTextRange){...
1);b=a.value.length-c.text.length}else if(a.setSelectionRange){b=a.selectionStart}else{b=-1}return b}function Wa(a){if(a.createTextRange){var b=a.createTextRange();b.moveStart("character",a.value.length);b.select()}else if(a.setSelectionRange){a.setS...
a.style.paddingLeft="3";a.style.paddingRight="3";a.style.height="16px";a.style.overflow="hidden";break;case "a":a.style.backgroundColor="white";a.style.color="black";if(a.displaySpan){a.displaySpan.style.color="green"}break;case "b":a.style.backgroun...
V;a.style.width=100-v+"%";if(x=="query"){a.style.fontSize="10px";a.style.textAlign=V;a.style.color="green";a.style.paddingTop="3px"}else{a.style.color="#696969"}break}}function Ba(){v=65;if(x=="query"){var a=110,b=Ha(),c=(b-a)/b*100;v=c}else{v=65}if(...
h="display: block; margin-"+G+": 0%; width: "+v+"%; float: "+G+";",g="display: block; margin-"+G+": "+v+"%;";if(x=="query"){g+="font-size: 10px; text-align: "+V+"; color: green; padding-top: 3px;"}else{g+="color: #696969;"}z(".mAutoComplete",b);z(".l...
s(f,"aAutoComplete");f.onmousedown=gb;f.onmousemove=hb;f.onmouseout=ib;var h=document.createElement("SPAN");s(h,"lAutoComplete");if(u.substring(0,2)=="zh")h.style.height=d.offsetHeight-4;else h.style.height=d.offsetHeight-6;var g=document.createEleme...

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

    ppport.h -- Perl/Pollution/Portability Version 3.19

    Automatically created by Devel::PPPort running under perl 5.012003.

    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
    includes in parts/inc/ instead.

    Use 'perldoc ppport.h' to view the documentation below.

----------------------------------------------------------------------

ppport.h  view on Meta::CPAN

sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
  eval { require Devel::PPPort };
  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
  if (eval \$Devel::PPPort::VERSION < $VERSION) {

 view release on metacpan or  search on metacpan

t/htdocs/index.html  view on Meta::CPAN

<!-- WARNING: this file is generated, do not edit
generated on Fri Jul  5 17:01:03 2013
01: /usr/local/lib/perl/5.14.2/Apache/TestConfig.pm:961
02: /usr/local/lib/perl/5.14.2/Apache/TestConfig.pm:979
03: /usr/local/lib/perl/5.14.2/Apache/TestConfig.pm:1327
04: /usr/local/lib/perl/5.14.2/Apache/TestConfig.pm:1558

 view release on metacpan or  search on metacpan

lib/Apache2/Controller/Render/Template.pm  view on Meta::CPAN

 sub default {
    my ($self, @first, @last) = @_;
    my @path_args = $self->my_detaint_path_args('name'); # from $self->{path_args}

    $self->{stash}{creditcards} = $self->pnotes->{a2c}{dbh}->fetchall_arrayref(
        q{  SELECT ccnum, exp, addr1, zip, cac 
            FROM customer_credit_cards 
            WHERE lname = ? AND fname = ?
        }, undef, @path_args
    );

    # request was like http://myserver.xyz/foo/Larry/Wall

lib/Apache2/Controller/Render/Template.pm  view on Meta::CPAN

 }

 __END__
 [%# /var/myapp/templates/foo/default.html %]
 <p>Here is the credit card info you requested for 
 everyone named [% path_args.reverse.join(' ') %]:</p>
 <ul>
 [% FOREACH card = creditcards %]
    [% FOREACH field = ['ccnum','exp','addr1','zip','cac'] %]
    <li><strong>[% field %]:</strong> [% card.$field %]</li>
    [% END %]
 [% END %]
 </ul>

 view release on metacpan or  search on metacpan

RELEASE  view on Meta::CPAN

1. 'make dist' - to make sure nothing is missing from the manifest,
   etc. Now test this generated package (not svn) with as many
   configurations as possible on as many platforms as possible.

  a. edit ./Changes:
     - find lib -type f -name "*.pm" | \
         xargs perl -pi -e 's,0.12-dev,0.12-RC1,g'
     - perl -pi -e 's,0.12-dev,0.12-RC1,g' Changes

     - don't commit these (see dev@ archives)

RELEASE  view on Meta::CPAN

  a. if problems are detected during stage 2, repeat stages 1 and 2.

3. when the package has been reported to be good, prepare a new
   package to be released

  a. edit ./Changes:
     - remove -RC\d+
     - add release date

  b. rerun:
     % perl Makefile.PL

RELEASE  view on Meta::CPAN

6. Prepare for the next cycle

  a. increment version in lib/Apache/Dispatch.pm

  b. edit ./Changes:
     - start a new item with incremented version + '-dev'

  =item 0.12-dev

  c. bump up version numbers in this file to make it easier to do the

 view release on metacpan or  search on metacpan

Makefile.old  view on Meta::CPAN

# This Makefile is for the Apache2::Dummy::Request extension to perl.
#
# It was generated automatically by MakeMaker version
# 7.24 (Revision: 72400) 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

FileManager.pm  view on Meta::CPAN

=head1 DESCRIPTION

The Apache2::FileManager module is a simple HTML file manager.  It provides
file manipulations such as cut, copy, paste, delete, rename, extract archive,
create directory, create file, edit file, and upload files.

Apache2::FileManager also has the ability to rsync the server htdocs tree to
another server with the click of a button.

FileManager.pm  view on Meta::CPAN

 #2 become root

 #3 give web server user (typically nobody) a home area
   I made mine /usr/local/apache/nobody
   - production_server> mkdir /usr/local/apache/nobody
   - edit passwd file and set new home area for nobody
   - production_server> mkdir /usr/local/apache/nobody/.ssh

 #4 log onto the development server

 #5 become root

 #6 give web server user (typically nobody) a home area
   - dev_server> mkdir /usr/local/apache/nobody
   - dev_server> chown -R nobody.nobody /usr/local/apache/nobody
   - edit passwd file and set new home area for nobody
   - dev_server> su - nobody
   - dev_server> ssh-keygen -t dsa      (don't use passphrase)
   - dev_server> ssh production_server 
     (will fail but will make known_hosts file)
   - log out from user nobody back to root user

FileManager.pm  view on Meta::CPAN

  return undef;
}


sub view_pre_editfile {
  my $o = shift;

  my $editfile = r->param('FILEMANAGER_editfile');
  my $base = "http://".r->hostname."/$editfile";
  $editfile =~ /([^\/]+)$/;
  my $filename = $1;

  my $fh;
  if (-T $filename && -w $filename) {
    $fh = IO::File->new("< ".$filename);

FileManager.pm  view on Meta::CPAN

          ACTION='".r->uri."'
          METHOD=POST>

      ".$o->html_hidden_fields()."

      <INPUT TYPE=HIDDEN NAME=FILEMANAGER_editfile
             VALUE=\"".r->param('FILEMANAGER_editfile')."\">

      <!-- Header -->
      <TABLE WIDTH=100% CELLPADDING=0 CELLSPAING=0>
        <TR>
          <TD>

FileManager.pm  view on Meta::CPAN

              </TR>
            </TABLE>
          </TD>
        </TR>

        <!-- file edit box -->
        <TR>
          <TD ALIGN=CENTER BGCOLOR=#efefef>
          <TEXTAREA NAME=FILEMANAGER_filedata
            COLS=$$o{EDIT_COLS}
            ROWS=$$o{EDIT_ROWS}>$data</TEXTAREA>

FileManager.pm  view on Meta::CPAN

    function get_num_checked() {
      var sel_ar = get_sel_ckbox_array();
      return sel_ar.length;
    }

    //function to edit file
    function edit_file () {
      var sel_ar = get_sel_ckbox_array();

      //make sure there is 1 and only 1 selected file
      if (sel_ar.length != 1) {
        window.alert('Please select ONE file to edit by clicking on a '+
                     'check box with the mouse.');
      }

      else {
        var f= window.document.FileManager;
        var cd = escape(f.FILEMANAGER_curr_dir.value);
        var editfile = escape(sel_ar[0].value);
        var w = window.open('".r->uri."?FILEMANAGER_cmd=editfile".
                                      "&FILEMANAGER_curr_dir='+cd+'".
                                      "&FILEMANAGER_editfile='+editfile,
                            'FileManagerEditFile',
                            'scrollbars,resizable');
        sel_ar[0].checked = false;
        w.focus();
      }

FileManager.pm  view on Meta::CPAN

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

    #Edit
    "<A HREF=# onclick=\"
        window.edit_file(); return false;\"
        ><FONT COLOR=WHITE><B>edit</B></FONT></A>",

    #Cut
    "<A HREF=# onclick=\"
        window.save_names('cut'); return false;\"
        ><FONT COLOR=WHITE><B>cut</B></FONT></A>",

FileManager.pm  view on Meta::CPAN

        var cd = f.FILEMANAGER_curr_dir.value;
        if (cd != '') {
          rv = cd+'/'+rv;
        }
        if ((rv != null) && (rv != '')) {
          var w = window.open('".r->uri."?FILEMANAGER_cmd=editfile".
                                        "&FILEMANAGER_curr_dir='+escape(cd)+'".
                                        "&FILEMANAGER_editfile='+escape(rv),
                              'FileManagerEditFile',
                              'scrollbars,resizable');
          w.focus();

        } else if (rv == '') {

FileManager.pm  view on Meta::CPAN

###############################################################################

sub cmd_savefiledata {
  my $o = shift;

  my $base = r->param('FILEMANAGER_editfile');
  $base =~ /([^\/]+)$/;
  my $filename = $1;
  remove $filename;
  my $fh = IO::File->new("> ".$filename);
  print $fh scalar(r->param('FILEMANAGER_filedata'));
  $$o{MESSAGE} = "file saved";
  $$o{view} = "pre_editfile";
  return undef;
}


sub cmd_editfile {
  my $o = shift;

  my $base = r->param('FILEMANAGER_editfile');
  $base =~ /([^\/]+)$/;
  my $filename = $1;

  if (! -e $filename) {
    my $fh = IO::File->new("> ".$filename);

FileManager.pm  view on Meta::CPAN

        if (window.opener && window.opener.document.FileManager) {
          window.opener.document.FileManager.submit();
        }";
    }
  }
  $$o{view} = "pre_editfile";
}


sub cmd_paste {
  my $o = shift;

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

# This Makefile.PL for Apache2-Filter-Minifier-CSS was generated by
# Dist::Zilla::Plugin::MakeMaker::ApacheTest 0.04
# and Dist::Zilla::Plugin::MakeMaker::Awesome 0.48.
# Don't edit it but the dist.ini and plugins used to construct it.

use strict;
use warnings;

use 5.008001;

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

# This Makefile.PL for Apache2-Filter-Minifier-JavaScript was generated by
# Dist::Zilla::Plugin::MakeMaker::ApacheTest 0.04
# and Dist::Zilla::Plugin::MakeMaker::Awesome 0.48.
# Don't edit it but the dist.ini and plugins used to construct it.

use strict;
use warnings;

use 5.008001;

 view release on metacpan or  search on metacpan

t/TEST  view on Meta::CPAN

#!/usr/bin/perl
# WARNING: this file is generated, do not edit
# 01: /usr/lib/perl5/Apache/TestConfig.pm:940
# 02: /usr/lib/perl5/Apache/TestConfig.pm:1030
# 03: /usr/lib/perl5/Apache/TestMM.pm:135
# 04: Makefile.PL:8

 view release on metacpan or  search on metacpan

t/TEST  view on Meta::CPAN

#!/csf2/apps/bin/perl
# WARNING: this file is generated, do not edit
# generated on Thu Aug  7 23:16:37 2008
# 01: /csf2/apps/lib/perl5/site_perl/5.8.8/x86_64-linux/Apache/TestConfig.pm:955
# 02: /csf2/apps/lib/perl5/site_perl/5.8.8/x86_64-linux/Apache/TestConfig.pm:1045
# 03: /csf2/apps/lib/perl5/site_perl/5.8.8/x86_64-linux/Apache/TestRun.pm:1284
# 04: Makefile.PL:11

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

    ppport.h -- Perl/Pollution/Portability Version 3.19

    Automatically created by Devel::PPPort running under perl 5.012003.

    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
    includes in parts/inc/ instead.

    Use 'perldoc ppport.h' to view the documentation below.

----------------------------------------------------------------------

ppport.h  view on Meta::CPAN

sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
  eval { require Devel::PPPort };
  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
  if (eval \$Devel::PPPort::VERSION < $VERSION) {

 view release on metacpan or  search on metacpan

ModProxyPerlHtml.pm  view on Meta::CPAN

that should be parsed by ModProxyPerlHTML. The default value is the following
Perl regular expresssion:

	PerlAddVar ProxyHTMLContentType    (text\/javascript|text\/html|text\/css|text\/xml|application\/.*javascript|application\/.*xml)

If you know exactly what you are doing by editing this regexp fill free to add
the missing Content-Type that must be parsed by ModProxyPerlHTML. Otherwise drop
me a line with the content type, I will give you the rigth expression. If you don't
know about the content type, with FireFox simply type Ctrl+i on the web page.

Some MS Office files may conflict with the above ProxyHTMLContentType regex like .docx or .xlsx

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

    ppport.h -- Perl/Pollution/Portability Version 3.19

    Automatically created by Devel::PPPort running under perl 5.010001.

    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
    includes in parts/inc/ instead.

    Use 'perldoc ppport.h' to view the documentation below.

----------------------------------------------------------------------

ppport.h  view on Meta::CPAN

sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
  eval { require Devel::PPPort };
  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
  if (eval \$Devel::PPPort::VERSION < $VERSION) {

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