Result:
found more than 499 distributions - search limited to the first 2001 files matching your query
( run in 1.244 )
Apache-ASP
view release on metacpan or search on metacpan
to try an XSLT approach, also supported by Apache::ASP.
=head2 Editors
As Apache::ASP supports a mixing of perl and HTML,
any editor which supports development of one or the
other would work well. The following editors are
known to work well for developing Apache::ASP web sites:
* Emacs, in perl or HTML modes. For a mmm-mode config
that mixes HTML & perl modes in a single buffer, check
out the editors/mmm-asp-perl.el file in distribution.
* Vim, special syntax support with editors/aasp.vim file in distribution.
* UltraEdit32 ( http://www.ultraedit.com/ ) has syntax highlighting,
good macros and a configurable wordlist (so one can have syntax
highlighting both for Perl and HTML).
Please feel free to suggest your favorite development
environment for this list.
Working in a team environment where you have HTML coders and perl
coders, Apache::ASP makes it easy for the HTML folks to change the look
of the page without knowing perl. Using Apache::ASP (instead of another
embedded perl solution) allows the HTML jockeys to use a variety of HTML
tools that understand ASP, which reduces the amount of code they break
when editing the HTML. Using Apache::ASP instead of M$ ASP allows us to
use perl (far superior to VBScript) and Apache (far superior to IIS).
We've been very pleased with Apache::ASP and its support.
=item Planet of Music
setting for creating a more flexible includes search path.
=item $VERSION = 2.17; $DATE="6/17/2001";
+Added ASP perl mmm-mode subclass and configuration
in editors/mmm-asp-perl.el file for better emacs support.
Updated SYNTAX/Editors documentation.
+Better debugging error message for Debug 2 or 3 settings
for global.asa errors. Limit debug output for lines
preceding rendered script.
+$Response->{Cookies}{cookie_name}{Expires} = -86400 * 300;
works so negative relative time may be used to expire cookies.
+Count() + Key() Collection class API implementations
+Added editors/aasp.vim VIM syntax file for Apache::ASP,
courtesy of Jon Topper.
++Better line numbering with #line perl pragma. Especially
helps with inline includes. Lots of work here, & integrated
with Debug 2 runtime pretty print debugging.
Apache-AccessAbuse
view release on metacpan or search on metacpan
AccessAbuse.pm view on Meta::CPAN
# Preloaded methods go here.
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Apache::Access::Abuse - Perl extension for avoid access abuse to your web site
Apache-Admin-Config
view release on metacpan or search on metacpan
t/httpd.conf-dist view on Meta::CPAN
#
LanguagePriority en da nl et fr de \
el it pt ltz ca es sv
#
# AddType allows you to tweak mime.types without actually editing it, or to
# make certain files to be certain types.
#
# For example, the PHP 3.x module (not part of the Apache distribution - see
# http://www.php.net) will typically use:
#
t/httpd.conf-dist view on Meta::CPAN
# Set to one of: Off | On | Full | Block
#
#ProxyVia On
#
# To enable the cache as well, edit and uncomment the following lines:
# (no cacheing without CacheRoot)
#
#CacheRoot "@@ServerRoot@@/proxy"
#CacheSize 5
#CacheGcInterval 4
Apache-Album
view release on metacpan or search on metacpan
there are security implications here, so if EditMode is turned on that
location should probably have some kind of security. Albums can share
the same AlbumDir, so you can have something like:
/albums - ReadOnly version, no security
/albums_edit - Allow new album creation and picture uploads,
require authentication
both using the same AlbumDir.
=item AllowFinalResize
Apache-App-Mercury
view release on metacpan or search on metacpan
$self->{'state'} = 'message_center';
$self->show_mail_center;
$controller->sitemark('/messaging');
} elsif ($self->{'state'} eq 'edit_settings' or $args{'edit_mail_prefs'}) {
if ($q->param('add_box')) {
if ($self->verify_new_mailbox($q->param('new_box'))) {
$self->add_new_mailbox($q->param('new_box'));
$self->checkmail;
$q->param('delete_mail_in_box'));
$self->checkmail;
$q->delete('custom_box');
$q->delete('delete_mail_in_box');
} elsif ($q->param('commit_filter')) {
$self->edit_filters;
$self->checkmail;
# $q->delete('trans_filter');
} elsif ($q->param('update_auto_forward')) {
$self->update_auto_forward;
$self->checkmail;
}
$self->{'state'} = 'edit_settings';
$self->show_mail_settings;
$controller->sitemark('/messaging.settings');
} elsif ($self->{'state'} eq 'compose_message') {
$controller->infomsg(ucfirst($old_box)." has been deleted".($delete_mail_in_box ? " along with the $num_displaced messages stored there." : ". The $num_displaced messages stored there have been moved to your Inbox."));
}
}
sub edit_filters {
my ($self) = @_;
my $q = $self->{q};
if ($q->param('trans_filter') and
$q->param('trans_filter') ne $self->{user_manager}->mail_trans_filter) {
Apache::App::Mercury - Internal web messaging for Apache mod_perl (1.x)
=head1 SYNOPSIS
# first, edit Apache/App/Mercury/Config.pm and set variables appropriately
# from the mod_perl handler of your application
# Note: in these examples My::MVC::Controller is assumed to be a class
# which provides a persistence framework so object variables are kept
# across http requests; it also must implement some predefined methods
Apache-AuthCookie
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# This Makefile.PL for Apache-AuthCookie was generated by
# Dist::Zilla::Plugin::MakeMaker::ApacheTest 0.04
# and Dist::Zilla::Plugin::MakeMaker::Awesome 0.49.
# Don't edit it but the dist.ini and plugins used to construct it.
use strict;
use warnings;
use ExtUtils::MakeMaker;
Apache-AuthDigest
view release on metacpan or search on metacpan
contrib/AuthDigestDBI.pm view on Meta::CPAN
# do we want Windows-like case-insensitivity?
$user_sent = lc($user_sent) if $Attr->{uidcasesensitive} eq "off";
# select code to return if authorization is denied:
my $authz_denied= $Attr->{expeditive} eq 'on' ? FORBIDDEN : AUTH_REQUIRED;
# check if requirements exists
my ($ary_ref) = $r->requires;
unless ($ary_ref) {
if ($Attr->{authoritative} eq 'on') {
Apache-AuthExpire
view release on metacpan or search on metacpan
0.25 Wed Jun 14 15:20:00 2000
- updated version; modified by hand
- updated $r-dir_config entry for 'TIMEOUT_DEBUG'.
- cleaned up regexp that munges realm names to prevent a realm from being interpretted as a directory
- updated README to give credit to plaid from http://www.perlmonks.org/index.pl?node=plaid
0.21 Tue Jun 13 11:32:19 2000
- first release version; created by h2xs 1.20 with options
-AX -n Apache::AuthExpire
Apache-AuthNetLDAP
view release on metacpan or search on metacpan
AuthNetLDAP.pm view on Meta::CPAN
return MP2 ? Apache::OK : Apache::Constants::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
Apache::AuthNetLDAP - mod_perl module that uses the Net::LDAP module for user authentication for Apache
Apache-AuthPAM
view release on metacpan or search on metacpan
return @res;
}
1;
__END__
# Below is stub documentation for your module. You better edit it!
=head1 NAME
Apache::AuthPAM - Authenticate apache request using PAM services
Apache-AuthenNTLM
view release on metacpan or search on metacpan
# 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
Apache-AuthenSecurID
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: ()
#
Apache-AuthzNetLDAP
view release on metacpan or search on metacpan
AuthzNetLDAP.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
Apache::AuthzNetLDAP - Apache-Perl module that enables you to authorize a user for Website
based on LDAP attributes.
Apache-AuthzUnix
view release on metacpan or search on metacpan
lib/Apache/AuthzUnix.pm view on Meta::CPAN
return 0;
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Apache::AuthzUnix - Apache/Apache2 authorization handler for Unix permissions
Apache-AutoLogin
view release on metacpan or search on metacpan
AutoLogin.pm view on Meta::CPAN
}
1;
__END__
# Below is stub documentation for your module. You better edit it!
=head1 NAME
Apache::AutoLogin - Automatic login module based on encrypted cookies for sites using basic authentication.
Apache-AxKit-Language-LibXSLTEnhanced
view release on metacpan or search on metacpan
lib/Apache/AxKit/Language/LibXSLTEnhanced.pm view on Meta::CPAN
# Preloaded methods go here.
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Apache::AxKit::Language::LibXSLTEnhanced - AxKit extension to load perl callbacks for XSL
Apache-AxKit-Provider-PodSAX
view release on metacpan or search on metacpan
);
}
1;
__END__
# Below is stub documentation for your module. You better edit it!
=head1 NAME
Apache::AxKit::Provider::PodSAX - Dynamically Serve POD Files as XML
Apache-AxKit-Provider-RDBMS
view release on metacpan or search on metacpan
lib/Apache/AxKit/Provider/RDBMS.pm view on Meta::CPAN
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Apache::AxKit::Provider::RDBMS - Perl extension AxKit
Apache-AxKit-Provider-XMLDOMProvider
view release on metacpan or search on metacpan
lib/Apache/AxKit/Provider/XMLDOMProvider.pm view on Meta::CPAN
}
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Apache::AxKit::Provider::XMLDOMProvider - AxKit Provider for remote XML-DOMs available via HTTP
Apache-Blog
view release on metacpan or search on metacpan
It uses HTML::Template, so it is easy to design new layouts. There are
some samples included with the distribution.
All diary entries are stored as plain text files, there's no database
stuff going on here. This is to make it simple to add entries - any
editor can be used to write entries.
To use, decide on a directory which is to hold your weblog entries,
and set PerlHandler like in the example. The alias isn't nessasary,
but I like it that way.
Apache-Bootstrap
view release on metacpan or search on metacpan
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.
Apache-Centipaid
view release on metacpan or search on metacpan
Centipaid.pm view on Meta::CPAN
# centipaid.com payment system without making changes to their
# existing website.
#
# centipaid offers a micropayment solution that allows users
# to pay for online access using an internet stamp, inctead of
# paying using a credit card number, which requieres the user
# to divulge their credit card number to the site operator.
# for more information on the micro-payment system please visit
# http://www.centipaid.com/
#
#
# This module may be distributed under the GPL v2 or later.
Centipaid.pm view on Meta::CPAN
internet stamps.
Centipaid.com offers websites the flexibility to charge small amounts
of money, also refered to as B<micropayment>, to users wishing to
access to their web services without the complexity of setting up
e-commerce enabled site, or to deal with expensive credit card
processing options. Users benefit from not having to reveal their
identity or credit card information everytime they decide to visit a
website. Instead, centipaid allows users to simply pay using
a pre-paid internet stamp, by simply uploading the stamp to centipaid's
site. The stamps are valid in all sites using centipaid.com payment
system.
Apache-CodeRed
view release on metacpan or search on metacpan
# All modules must return a true value
1;
__END__
# Below is stub documentation for your module. You better edit it!
=head1 NAME
Apache::CodeRed - Responds to CodeRed worm attacks with e-mail warnings
Apache-CompressClientFixup
view release on metacpan or search on metacpan
0.07 Sun Jul 20 14:30:00 2003
- unnecessary warnings were patched with diff-file contributed by Rob Bloodgood.
0.06 Wed Jan 15 16:59:00 2003
- file TODO has been added to distribution
- documentation is edited.
5559 Jun 23 23:16 Apache-CompressClientFixup-0.06.tar.gz
0.05 Mon Jan 13 11:12:00 2003
- Partial Request branch is modified in order to make it configurable.
- documentation is edited.
5107 Jan 13 14:51 Apache-CompressClientFixup-0.05.tar.gz
0.04 Tue Jan 07 21:23:00 2003
- MSIE over SSL is modified in order to make it configurable.
- documentation is edited.
- article "ContentCompressionClients" deleted from the package.
4660 Jan 7 22:17 Apache-CompressClientFixup-0.04.tar.gz
0.03 Thu Jan 02 23:00:00 2003
- MSIE over SSL is modified.
- documentation is edited.
8064 Jan 2 23:31 Apache-CompressClientFixup-0.03.tar.gz
0.02 Sun Oct 20 22:51:00 2002
- further development in accordance with the results of discussion on "ContentCompressionClients".
- documentation is edited and incorporated.
- Thanks to Bob Eng for the link to Microsoft Knowledge Base articles Q313712/Q312496.
7855 Nov 10 23:09 Apache-CompressClientFixup-0.02.tar.gz
0.01 Tue Jun 11 13:10:11 2002
- original version; created by h2xs 1.21 with options
Apache-ConfigParser
view release on metacpan or search on metacpan
t/httpd02.conf view on Meta::CPAN
<IfModule mod_negotiation.c>
LanguagePriority en da nl et fr de el it ja kr no pl pt pt-br ru ltz ca es sv tw
</IfModule>
#
# AddType allows you to tweak mime.types without actually editing it, or to
# make certain files to be certain types.
#
# For example, the PHP 3.x module (not part of the Apache distribution - see
# http://www.php.net) will typically use:
#
t/httpd02.conf view on Meta::CPAN
# Set to one of: Off | On | Full | Block
#
# ProxyVia On
#
# To enable the cache as well, edit and uncomment the following lines:
# (no caching without CacheRoot)
#
# CacheRoot "/var/cache/httpd"
# CacheSize 5
# CacheGcInterval 4
Apache-DB
view release on metacpan or search on metacpan
can assist you with protecting a server, but it doesn't come without
its own set of issues. Debugging applications running on a box with
SELinux on it takes a couple of extra steps and unfortunately the
instructions that follow have only been tested on RedHat/Fedora.
1) You need to edit/create the file "local.te" and add the following:
if (httpd_tty_comm) {
allow { httpd_t } admin_tty_type:chr_file { ioctl getattr }; }
2) Reload your security policy.
Apache-DBI
view release on metacpan or search on metacpan
lib/Apache/AuthDBI.pm view on Meta::CPAN
#Using Two (or more) Methods Will Allow for Fallback to older Methods
'Auth_DBI_encryption_method'=> 'sha1hex/md5/crypt',
'Auth_DBI_uidcasesensitive' => 'on',
'Auth_DBI_pwdcasesensitive' => 'on',
'Auth_DBI_placeholder' => 'off',
'Auth_DBI_expeditive' => 'on',
);
# stores the configuration of current URL.
# initialized during authentication, eventually re-used for authorization.
my $Attr = {};
lib/Apache/AuthDBI.pm view on Meta::CPAN
$user_sent = lc $user_sent if $Attr->{uidcasesensitive} eq "off";
# select code to return if authorization is denied:
my $authz_denied;
if (MP2) {
$authz_denied = $Attr->{expeditive} eq 'on' ?
Apache2::Const::FORBIDDEN() : Apache2::Const::AUTH_REQUIRED();
}
else {
$authz_denied = $Attr->{expeditive} eq 'on' ?
Apache::Constants::FORBIDDEN() : Apache::Constants::AUTH_REQUIRED();
}
# check if requirements exists
my $ary_ref = $r->requires;
Apache-DnsZone
view release on metacpan or search on metacpan
lib/Apache/DnsZone.pm view on Meta::CPAN
}
# no A record exists that has the same address, no CNAME record exists with the same name
return 1;
}
sub check_before_edit_A {
my $dom_id = shift;
my $a_id = shift;
my $new_host = shift;
my $new_address = shift;
Debug(5, qq{check_before_edit_A($dom_id, $a_id, $new_host, $new_address) called});
my ($old_name, $old_address, $old_ttl) = $dbh->a_lookup($dom_id, $a_id);
return 1 if $old_name eq $new_host && $old_address eq $new_address;
if ($dbh->is_duplicate_A($dom_id, $new_host, $new_address)) {
return 0;
}
lib/Apache/DnsZone.pm view on Meta::CPAN
}
# no A record exists that has the same address, no CNAME record exists with the same name
return 1;
}
sub check_before_edit_AAAA {
my $dom_id = shift;
my $a_id = shift;
my $new_host = shift;
my $new_address = shift;
Debug(5, qq{check_before_edit_AAAA($dom_id, $a_id, $new_host, $new_address) called});
my ($old_name, $old_address, $old_ttl) = $dbh->aaaa_lookup($dom_id, $a_id);
return 1 if $old_name eq $new_host && $old_address eq $new_address;
if ($dbh->is_duplicate_AAAA($dom_id, $new_host, $new_address)) {
return 0;
}
lib/Apache/DnsZone.pm view on Meta::CPAN
return 0;
}
return 1;
}
sub check_before_edit_CNAME {
my $dom_id = shift;
my $cname_id = shift;
my $new_host = shift;
my $new_cname = shift;
Debug(5, qq{check_before_edit_CNAME($dom_id, $cname_id, $new_host, $new_cname) called});
my ($old_host, $old_cname, $old_ttl) = $dbh->cname_lookup($dom_id, $cname_id);
return 1 if $old_host eq $new_host && $old_cname eq $new_cname;
return 1 if $old_host eq $new_host;
if ($dbh->does_A_exist($dom_id, $new_host)) {
return 0;
lib/Apache/DnsZone.pm view on Meta::CPAN
return 0;
}
return 1;
}
sub check_before_edit_MX {
my $dom_id = shift;
my $mx_id = shift;
my $new_host = shift;
my $new_exchanger = shift;
my $new_preference = shift;
Debug(5, qq{check_before_edit_MX($dom_id, $mx_id, $new_host, $new_exchanger, $new_preference) called});
my ($old_name, $old_exchanger, $old_preference, $old_ttl) = $dbh->mx_lookup($dom_id, $mx_id);
return 1 if $old_name eq $new_host && $old_preference eq $new_preference;
if ($dbh->is_duplicate_MX($dom_id, $new_host, $new_preference)) {
return 0;
}
lib/Apache/DnsZone.pm view on Meta::CPAN
return 0;
}
return 1;
}
sub check_before_edit_NS {
my $dom_id = shift;
my $ns_id = shift;
my $new_host = shift;
my $new_ns = shift;
Debug(5, qq{check_before_edit_NS($dom_id, $ns_id, $new_host, $new_ns) called});
my ($old_name, $old_nameserver, $old_ttl) = $dbh->ns_lookup($dom_id, $ns_id);
return 1 if $old_name eq $new_host && $old_nameserver eq $new_ns;
if ($dbh->is_duplicate_NS($dom_id, $new_host, $new_ns)) {
return 0;
}
lib/Apache/DnsZone.pm view on Meta::CPAN
}
# no PTR record exists that has the same address
return 1;
}
sub check_before_edit_PTR {
my $dom_id = shift;
my $ptr_id = shift;
my $new_host = shift;
my $new_reverse = shift;
Debug(5, qq{check_before_edit_PTR($dom_id, $ptr_id, $new_host, $new_reverse) called});
my ($old_name, $old_reverse, $old_ttl) = $dbh->ptr_lookup($dom_id, $ptr_id);
return 1 if $old_name eq $new_host && $old_reverse eq $new_reverse;
if ($dbh->is_duplicate_PTR($dom_id, $new_host, $new_reverse)) {
return 0;
}
lib/Apache/DnsZone.pm view on Meta::CPAN
return 0;
}
return 1;
}
sub check_before_edit_TXT {
my $dom_id = shift;
my $txt_id = shift;
my $new_host = shift;
my $new_txt = shift;
Debug(5, qq{check_before_edit_TXT($dom_id, $txt_id, $new_host, $new_txt) called});
my ($old_name, $old_txt, $old_ttl) = $dbh->txt_lookup($dom_id, $txt_id);
return 1 if $old_name eq $new_host && $old_txt eq $new_txt;
if ($dbh->is_duplicate_TXT($dom_id, $new_host, $new_txt)) {
return 0;
}
lib/Apache/DnsZone.pm view on Meta::CPAN
}
}
if ($action eq 'view') {
Debug(3, qq{pushing view_domain() to PerlHandler});
$r->push_handlers(PerlHandler => \&view_domain);
} elsif ($action eq 'edit') {
Debug(3, qq{pushing edit_record() to PerlHandler});
$r->push_handlers(PerlHandler => \&edit_record);
} elsif ($action eq 'add') {
Debug(3, qq{pushing add_record() to PerlHandler});
$r->push_handlers(PerlHandler => \&add_record);
} elsif ($action eq 'delete') {
Debug(3, qq{pushing delete_record() to PerlHandler});
lib/Apache/DnsZone.pm view on Meta::CPAN
$dbh->close();
return REDIRECT;
}
# check for record_id & type
unless (apr()->param('type')) {
$r->log_reason("No type specified for edit");
output_redirect($r, 1, '/admin');
$dbh->close();
return REDIRECT;
}
my $type = uc apr()->param('type');
lib/Apache/DnsZone.pm view on Meta::CPAN
$dbh->close();
return REDIRECT;
}
# check for record_id & type
unless (apr()->param('type')) {
$r->log_reason("No type specified for edit");
output_redirect($r, 1, '/admin');
$dbh->close();
return REDIRECT;
}
my $type = uc apr()->param('type');
lib/Apache/DnsZone.pm view on Meta::CPAN
$dbh->close();
return OK;
}
}
sub edit_record {
my $r = shift || Apache->request();
Debug(3, qq{calling edit_record()});
init($r);
my $user = $r->connection->user;
my ($uid, $email, $lang_id, $lang) = $dbh->get_user_info($user);
# same as in view_domain() maybe a function should be built for this?
lib/Apache/DnsZone.pm view on Meta::CPAN
$dbh->close();
return REDIRECT;
}
# check for record_id & type
unless (apr()->param('type')) {
$r->log_reason("No type specified for edit");
output_redirect($r, 1, '/admin');
$dbh->close();
return REDIRECT;
}
my $type = uc apr()->param('type');
lib/Apache/DnsZone.pm view on Meta::CPAN
$dbh->close();
return REDIRECT;
}
if (apr()->param('button') && lc(apr()->param('button')) eq lc($lang{'SUBMIT'})) {
Debug(5, qq{This is a submit of edit_record request});
for ($type) {
if (/^SOA$/) {
my $soa_email = apr()->param('soa_email');
my $refresh = apr()->param('refresh');
my $retry = apr()->param('retry');
lib/Apache/DnsZone.pm view on Meta::CPAN
$page_title =~ s/\$record/$type/;
$page_title =~ s/\$domain/$domain/;
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'soa/edit.tpl');
$tpl->assign(ADMIN_EMAIL_VALUE => encode_entities(apr()->param('soa_email')));
$tpl->assign(REFRESH_VALUE => encode_entities(apr()->param('refresh')));
$tpl->assign(RETRY_VALUE => encode_entities(apr()->param('retry')));
$tpl->assign(EXPIRE_VALUE => encode_entities(apr()->param('expire')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('default_ttl')));
lib/Apache/DnsZone.pm view on Meta::CPAN
}
my $ttl = apr()->param('ttl');
if (!check_ttl($ttl)) {
$all_set = 0;
}
if ($all_set && check_before_edit_A($dom_id, $record_id, $host, $ip)) {
# update dns! and sql
# check wheter name is the same? so no need for update?
# check wheter an excact copy exists in dns to avoid errors
if (is_updated_A($dom_id, $record_id, $host, $ip, $ttl)) {
lib/Apache/DnsZone.pm view on Meta::CPAN
$page_title =~ s/\$record/$type/;
$page_title =~ s/\$domain/$domain/;
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'a/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(IP_ADDRESS_VALUE => encode_entities(apr()->param('ip')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
lib/Apache/DnsZone.pm view on Meta::CPAN
}
my $ttl = apr()->param('ttl');
if (!check_ttl($ttl)) {
$all_set = 0;
}
if ($all_set && check_before_edit_AAAA($dom_id, $record_id, $host, $ipv6)) {
# update dns! and sql
# check wheter name is the same? so no need for update?
# check wheter an excact copy exists in dns to avoid errors
if (is_updated_AAAA($dom_id, $record_id, $host, $ipv6, $ttl)) {
lib/Apache/DnsZone.pm view on Meta::CPAN
$page_title =~ s/\$record/$type/;
$page_title =~ s/\$domain/$domain/;
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'aaaa/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(IPV6_ADDRESS_VALUE => encode_entities(apr()->param('ipv6')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
lib/Apache/DnsZone.pm view on Meta::CPAN
my $ttl = apr()->param('ttl');
if (!check_ttl($ttl)) {
$all_set = 0;
}
# do the update dance!
if ($all_set && check_before_edit_CNAME($dom_id, $record_id, $host, $cname)) {
# update dns! and sql
# check wheter name is the same? so no need for update?
# check wheter an excact copy exists in dns to avoid errors
if (is_updated_CNAME($dom_id, $record_id, $host, $cname, $ttl)) {
lib/Apache/DnsZone.pm view on Meta::CPAN
$page_title =~ s/\$record/$type/;
$page_title =~ s/\$domain/$domain/;
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'cname/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(CNAME_VALUE => encode_entities(apr()->param('cname')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
lib/Apache/DnsZone.pm view on Meta::CPAN
}
my $ttl = apr()->param('ttl');
if (!check_ttl($ttl)) {
$all_set = 0;
}
if ($all_set && check_before_edit_MX($dom_id, $record_id, $host, $exchanger, $preference)) {
if (is_updated_MX($dom_id, $record_id, $host, $exchanger, $preference, $ttl)) {
if (dns_update_MX($dom_id, $record_id, $host, $exchanger, $preference, $ttl)) {
Debug(2, qq{dns_update_MX succeded\n});
} else {
Debug(2, qq{dns_update_MX failed\n});
lib/Apache/DnsZone.pm view on Meta::CPAN
$page_title =~ s/\$record/$type/;
$page_title =~ s/\$domain/$domain/;
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'mx/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(MX_VALUE => encode_entities(apr()->param('exchanger')));
$tpl->assign(PREFERENCE_VALUE => encode_entities(apr()->param('preference')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
lib/Apache/DnsZone.pm view on Meta::CPAN
}
my $ttl = apr()->param('ttl');
if (!check_ttl($ttl)) {
$all_set = 0;
}
if ($all_set && check_before_edit_NS($dom_id, $record_id, $zone, $nameserver)) {
if (is_updated_NS($dom_id, $record_id, $zone, $nameserver, $ttl)) {
if (dns_update_NS($dom_id, $record_id, $zone, $nameserver, $ttl)) {
Debug(2, qq{dns_update_NS succeded\n});
} else {
Debug(2, qq{dns_update_NS failed\n});
lib/Apache/DnsZone.pm view on Meta::CPAN
$page_title =~ s/\$record/$type/;
$page_title =~ s/\$domain/$domain/;
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'ns/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('zone')));
$tpl->assign(NS_VALUE => encode_entities(apr()->param('nsdname')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
lib/Apache/DnsZone.pm view on Meta::CPAN
}
my $ttl = apr()->param('ttl');
if (!check_ttl($ttl)) {
$all_set = 0;
}
if ($all_set && check_before_edit_PTR($dom_id, $record_id, $host, $reverse)) {
# update dns! and sql
# check wheter name is the same? so no need for update?
# check wheter an excact copy exists in dns to avoid errors
if (is_updated_PTR($dom_id, $record_id, $host, $reverse, $ttl)) {
lib/Apache/DnsZone.pm view on Meta::CPAN
$page_title =~ s/\$record/$type/;
$page_title =~ s/\$domain/$domain/;
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'ptr/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(REVERSE_HOST_VALUE => encode_entities(apr()->param('reverse')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
lib/Apache/DnsZone.pm view on Meta::CPAN
}
my $ttl = apr()->param('ttl');
if (!check_ttl($ttl)) {
$all_set = 0;
}
if ($all_set && check_before_edit_TXT($dom_id, $record_id, $host, $txtdata)) {
if (is_updated_TXT($dom_id, $record_id, $host, $txtdata, $ttl)) {
if (dns_update_TXT($dom_id, $record_id, $host, $txtdata, $ttl)) {
Debug(2, qq{dns_update_TXT succeded\n});
} else {
Debug(2, qq{dns_update_TXT failed\n});
lib/Apache/DnsZone.pm view on Meta::CPAN
my $page_title = $lang{PAGE_EDIT};
$page_title =~ s/\$record/$type/;
$page_title =~ s/\$domain/$domain/;
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'txt/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(TXT_VALUE => encode_entities(apr()->param('txtdata')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
lib/Apache/DnsZone.pm view on Meta::CPAN
output_redirect($r, 1, qq{/admin?action=view&dom_id=$dom_id});
$dbh->close();
return REDIRECT;
} else {
# is view
Debug(5, qq{This is a view of edit_record request});
my $tpl = new CGI::FastTemplate($cfg->{'cfg'}->{DnsZoneTemplateDir});
$tpl->define(layout => 'layout.tpl', menu => 'menu.tpl');
$tpl->assign(%lang);
$tpl->assign(DEBUG => '');
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(EXPLANATION => $lang{EDIT_FIELDS});
for ($type) {
if (/^SOA$/) {
my ($auth_ns, $soa_email, $serial, $refresh, $retry, $expire, $default_ttl) = $dbh->soa_lookup($dom_id);
$soa_email =~ s/\./\@/;
$tpl->define(record => 'soa/edit.tpl');
$tpl->assign(AUTH_NS_VALUE => $auth_ns);
$tpl->assign(SERIAL_VALUE => $serial);
$tpl->assign(ADMIN_EMAIL_VALUE => $soa_email);
$tpl->assign(REFRESH_VALUE => $refresh);
$tpl->assign(RETRY_VALUE => $retry);
$tpl->assign(EXPIRE_VALUE => $expire);
$tpl->assign(TTL_VALUE => $default_ttl);
}
elsif (/^A$/) {
my ($name, $address, $ttl) = $dbh->a_lookup($dom_id, $record_id);
$tpl->define(record => 'a/edit.tpl');
$tpl->assign(HOST_VALUE => $name);
$tpl->assign(IP_ADDRESS_VALUE => $address);
$tpl->assign(TTL_VALUE => $ttl);
}
elsif (/^AAAA$/) {
my ($name, $address, $ttl) = $dbh->aaaa_lookup($dom_id, $record_id);
$tpl->define(record => 'aaaa/edit.tpl');
$tpl->assign(HOST_VALUE => $name);
$tpl->assign(IPV6_ADDRESS_VALUE => $address);
$tpl->assign(TTL_VALUE => $ttl);
}
elsif (/^CNAME$/) {
my ($name, $cname, $ttl) = $dbh->cname_lookup($dom_id, $record_id);
$tpl->define(record => 'cname/edit.tpl');
$tpl->assign(HOST_VALUE => $name);
$tpl->assign(CNAME_VALUE => $cname);
$tpl->assign(TTL_VALUE => $ttl);
}
elsif (/^MX$/) {
my ($name, $exchanger, $preference, $ttl) = $dbh->mx_lookup($dom_id, $record_id);
$tpl->define(record => 'mx/edit.tpl');
$tpl->assign(HOST_VALUE => $name);
$tpl->assign(MX_VALUE => $exchanger);
$tpl->assign(PREFERENCE_VALUE => $preference);
$tpl->assign(TTL_VALUE => $ttl);
}
elsif (/^NS$/) {
my ($name, $nsdname, $ttl) = $dbh->ns_lookup($dom_id, $record_id);
$tpl->define(record => 'ns/edit.tpl');
$tpl->assign(ZONE_VALUE => $name);
$tpl->assign(NS_VALUE => $nsdname);
$tpl->assign(TTL_VALUE => $ttl);
}
elsif (/^PTR$/) {
my ($name, $ptrdname, $ttl) = $dbh->ptr_lookup($dom_id, $record_id);
$tpl->define(record => 'ptr/edit.tpl');
$tpl->assign(HOST_VALUE => $ptrdname);
$tpl->assign(REVERSE_HOST_VALUE => $name);
$tpl->assign(TTL_VALUE => $ttl);
}
elsif (/^TXT$/) {
my ($name, $txtdata, $ttl) = $dbh->txt_lookup($dom_id, $record_id);
$txtdata = encode_entities($txtdata);
$tpl->define(record => 'txt/edit.tpl');
$tpl->assign(HOST_VALUE => $name);
$tpl->assign(TXT_VALUE => $txtdata);
$tpl->assign(TTL_VALUE => $ttl);
}
}
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(SOA_RETRY_VALUE => $retry);
$tpl->assign(SOA_EXPIRE_VALUE => $expire);
$tpl->assign(SOA_TTL_VALUE => $default_ttl);
if ($rec_lock == 0) {
$tpl->assign(SOA_EDIT => qq{[ <a href="/admin?action=edit&dom_id=$dom_id&type=SOA">$lang{EDIT}</a> ]});
} else {
$tpl->assign(SOA_EDIT => qq{<i>$lang{LOCKED}</i>});
}
$tpl->parse(SOA_RR => "view_domain_soa");
lib/Apache/DnsZone.pm view on Meta::CPAN
}
$tpl->assign(A_HOST_VALUE => $A_name);
$tpl->assign(A_IP_VALUE => $A_address);
$tpl->assign(A_TTL_VALUE => $A_ttl);
if ($A_rec_lock == 0) {
$tpl->assign(A_CHANGE => qq{[ <a href="/admin?action=edit&dom_id=$dom_id&type=A&record_id=$A_id">$lang{EDIT}</a> | <a href="/admin?action=delete&dom_id=$dom_id&type=A&record_id=$A_id">$lang{REMOVE}</a> ]});
} else {
$tpl->assign(A_CHANGE => qq{<i>$lang{LOCKED}</i>});
}
$tpl->parse(A_RECORD => ".view_domain_a_record");
}
lib/Apache/DnsZone.pm view on Meta::CPAN
}
$tpl->assign(AAAA_HOST_VALUE => $AAAA_name);
$tpl->assign(AAAA_IPV6_VALUE => $AAAA_address);
$tpl->assign(AAAA_TTL_VALUE => $AAAA_ttl);
if ($AAAA_rec_lock == 0) {
$tpl->assign(AAAA_CHANGE => qq{[ <a href="/admin?action=edit&dom_id=$dom_id&type=AAAA&record_id=$AAAA_id">$lang{EDIT}</a> | <a href="/admin?action=delete&dom_id=$dom_id&type=AAAA&record_id=$AAAA_id">$lang{REMOVE}</a> ]});
} else {
$tpl->assign(AAAA_CHANGE => qq{<i>$lang{LOCKED}</i>});
}
$tpl->parse(AAAA_RECORD => ".view_domain_aaaa_record");
}
lib/Apache/DnsZone.pm view on Meta::CPAN
}
$tpl->assign(CNAME_HOST_VALUE => $CNAME_name);
$tpl->assign(CNAME_CNAME_VALUE => $CNAME_cname);
$tpl->assign(CNAME_TTL_VALUE => $CNAME_ttl);
if ($CNAME_rec_lock == 0) {
$tpl->assign(CNAME_CHANGE => qq{[ <a href="/admin?action=edit&dom_id=$dom_id&type=CNAME&record_id=$CNAME_id">$lang{EDIT}</a> | <a href="/admin?action=delete&dom_id=$dom_id&type=CNAME&record_id=$CNAME_id">$lang{REMOVE}</a> ]});
} else {
$tpl->assign(CNAME_CHANGE => qq{<i>$lang{LOCKED}</i>});
}
$tpl->parse(CNAME_RECORD => ".view_domain_cname_record");
}
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(MX_HOST_VALUE => $MX_name);
$tpl->assign(MX_MX_VALUE => $MX_exchanger);
$tpl->assign(MX_PREFERENCE_VALUE => $MX_preference);
$tpl->assign(MX_TTL_VALUE => $MX_ttl);
if ($MX_rec_lock == 0) {
$tpl->assign(MX_CHANGE => qq{[ <a href="/admin?action=edit&dom_id=$dom_id&type=MX&record_id=$MX_id">$lang{EDIT}</a> | <a href="/admin?action=delete&dom_id=$dom_id&type=MX&record_id=$MX_id">$lang{REMOVE}</a> ]});
} else {
$tpl->assign(MX_CHANGE => qq{<i>$lang{LOCKED}</i>});
}
$tpl->parse(MX_RECORD => ".view_domain_mx_record");
}
lib/Apache/DnsZone.pm view on Meta::CPAN
}
$tpl->assign(NS_ZONE_VALUE => $NS_name);
$tpl->assign(NS_NS_VALUE => $NS_nsdname);
$tpl->assign(NS_TTL_VALUE => $NS_ttl);
if ($NS_rec_lock == 0) {
$tpl->assign(NS_CHANGE => qq{[ <a href="/admin?action=edit&dom_id=$dom_id&type=NS&record_id=$NS_id">$lang{EDIT}</a> | <a href="/admin?action=delete&dom_id=$dom_id&type=NS&record_id=$NS_id">$lang{REMOVE}</a> ]});
} else {
$tpl->assign(NS_CHANGE => qq{<i>$lang{LOCKED}</i>});
}
$tpl->parse(NS_RECORD => ".view_domain_ns_record");
}
lib/Apache/DnsZone.pm view on Meta::CPAN
}
$tpl->assign(PTR_REVERSE_HOST_VALUE => $PTR_name);
$tpl->assign(PTR_HOST_VALUE => $PTR_ptrdname);
$tpl->assign(PTR_TTL_VALUE => $PTR_ttl);
if ($PTR_rec_lock == 0) {
$tpl->assign(PTR_CHANGE => qq{[ <a href="/admin?action=edit&dom_id=$dom_id&type=PTR&record_id=$PTR_id">$lang{EDIT}</a> | <a href="/admin?action=delete&dom_id=$dom_id&type=PTR&record_id=$PTR_id">$lang{REMOVE}</a> ]});
} else {
$tpl->assign(PTR_CHANGE => qq{<i>$lang{LOCKED}</i>});
}
$tpl->parse(PTR_RECORD => ".view_domain_ptr_record");
}
lib/Apache/DnsZone.pm view on Meta::CPAN
}
$tpl->assign(TXT_HOST_VALUE => $TXT_name);
$tpl->assign(TXT_TXT_VALUE => $TXT_txt);
$tpl->assign(TXT_TTL_VALUE => $TXT_ttl);
if ($TXT_rec_lock == 0) {
$tpl->assign(TXT_CHANGE => qq{[ <a href="/admin?action=edit&dom_id=$dom_id&type=TXT&record_id=$TXT_id">$lang{EDIT}</a> | <a href="/admin?action=delete&dom_id=$dom_id&type=TXT&record_id=$TXT_id">$lang{REMOVE}</a> ]});
} else {
$tpl->assign(TXT_CHANGE => qq{<i>$lang{LOCKED}</i>});
}
$tpl->parse(TXT_RECORD => ".view_domain_txt_record");
}
Apache-Dynagzip
view release on metacpan or search on metacpan
0.16 Sat Oct 09 19:30:00 2004
- bugfix. Content-Type was overwritten to default text/html during the streaming of a static
file because $r->header_out('Content-Type') was not set, however $r->content_type is set
properly in PerlLibTreeTrans URI_Translation_Handler. Fixed in two places.
- documentation was lightly edited, especially regarding the details of module installation
and appropriate mod_perl configuration. Thanks to Kevin Austin for the hints.
- README was reformatted back to plain text.
- META.yml was created manually and added to MANIFEST.
0.15 Sun May 02 15:11:00 2004
within the Filter chain. Documentation and the code were cleaned up in order to make sure
that UseCGIHeadersFromScript does not affect functionality inside the Filter chain.
23843 May 11 00:28 Apache-Dynagzip-0.15.tar.gz
0.14 Sat Apr 24 22:50:00 2004
- documentation was edited in order to make it more clear, especially
regarding previous code changes.
23642 Apr 30 21:15 Apache-Dynagzip-0.14.tar.gz
0.13 Mon Apr 05 22:40:00 2004
- bugfix. Richard Chen discovered the unconditional retrievement of HTTP headers
30927 Jul 20 01:09 Apache-Dynagzip-0.10.tar.gz
0.09 Sun Jan 05 01:45:00 2003
- Vlad Jebelev's patch was applied in order to serve possible dynamic Apache downgrade to HTTP/1.0
(especially processing MSIE requests over SSL).
- documentation was edited.
30564 Jan 5 02:45 Apache-Dynagzip-0.09.tar.gz
0.08 Sat Dec 07 23:15:00 2002
- bugfix. The bug was affecting the transmissions of plain static files only
when gzip compression is turned off and light compression is turned on.
30155 Dec 8 00:24 Apache-Dynagzip-0.08.tar.gz
0.07 Sun Aug 11 14:58:00 2002
- advanced control over the client/proxy cache is provided vith Vary extra value
optionally inputed from the configuration file.
- documentation is edited.
29819 Oct 6 14:16 Apache-Dynagzip-0.07.tar.gz
0.06 Mon Jun 24 13:05:00 2002
- HTTP/1.0 bug is fixed. No chunks for HTTP/1.0 since now.
Just no Content-Length, and Connection: close instead.
gzip compression is provided for HTTP/1.0 in accordance with Accept-Encoding.
- light compression exception for <PRE>...</PRE> tag is implemented.
- documentation is edited appropriately.
26322 Jul 24 16:17 Apache-Dynagzip-0.06.tar.gz
0.05 Sat Jun 15 18:00:00 2002
- Makefile.PL is fixed in order to survive CPAN tests
25110 Jun 15 18:28 Apache-Dynagzip-0.05.tar.gz
0.03 Sun May 26 14:26:00 2002
- fundamental revision of the code to avoid possible copyright questions from Outlook Technologies, Inc.
My own decision to publish the code on CPAN could never be considered an any kind of competition with OLT
business, since my layoff clearly demonstrates the fact, that OLT has no business interests
in this market of products and services, and does not plan to work on this market in future.
- documentation is edited appropriately.
23002 Jun 3 12:17 Apache-Dynagzip-0.03.tar.gz
0.02 Fri Mar 22 12:07
- documentation is edited - thanks to Tom Evans <tevans@outlook.net> for README Abstract.
11169 Apr 27 13:16 Apache-Dynagzip-0.02.tar.gz
0.01 Mon Jan 14 10:31:52 2002
- original version; created by h2xs 1.21 with options
-A -X -n Apache::Dynagzip
( run in 1.244 second using v1.01-cache-2.11-cpan-de7293f3b23 )