view release on metacpan or search on metacpan
lib/Apache/AxKit/Provider/File/Formatter.pm view on Meta::CPAN
my $contents = <$fh>;
my $whichformatter = $r->dir_config('FormatterModule');
AxKit::Debug(5, "Formatter Provider configured to use " . $whichformatter);
unless ($whichformatter =~ m/^Formatter::\w+::\w+$/) {
throw Apache::AxKit::Exception::Error( -text => "$whichformatter doesn't look like a formatter to me");
}
eval "use $whichformatter";
throw Apache::AxKit::Exception::Error( -text => $whichformatter . " not found, you may need to install it from CPAN") if $@;
my $formatter = "$whichformatter"->format($contents);
my $parser = XML::LibXML->new();
return $parser->parse_html_string($formatter->document);
}
lib/Apache/AxKit/Provider/File/Formatter.pm view on Meta::CPAN
sub get_strref { return \ shift->get_dom->toString; }
sub get_fh {
throw Apache::AxKit::Exception::IO( -text => "Can't get fh for Formatter" );
}
=head1 SEE ALSO
view release on metacpan or search on metacpan
# see if we can use File::MimeInfo::Magic
eval "use File::MimeInfo::Magic qw( mimetype )";
$noMimeInfo = 1 if $@;
#
# We can't output a filehandle, so throw the necessary exception
sub get_fh {
throw Apache::AxKit::Exception::IO( -text => "Can't get fh for Syntax" );
}
#
# perform the necessary mime-type processing magic
sub get_strref {
view release on metacpan or search on metacpan
OpenOffice.pm view on Meta::CPAN
sub get_fh {
my $self = shift;
my $zip = Archive::Zip->new();
if ($zip->read($self->{file}) != AZ_OK) {
throw Apache::AxKit::Exception::IO (-text => "Couldn't read OpenOffice file '$self->{file}'");
}
my $r = $self->apache_request;
my $member;
my $path_info = $r->path_info;
OpenOffice.pm view on Meta::CPAN
sub get_strref {
my $self = shift;
my $zip = Archive::Zip->new();
if ($zip->read($self->{file}) != AZ_OK) {
throw Apache::AxKit::Exception::IO (-text => "Couldn't read OpenOffice file '$self->{file}'");
}
my $r = $self->apache_request;
my $member;
my $path_info = $r->path_info;
OpenOffice.pm view on Meta::CPAN
else {
$member = $zip->memberNamed('content.xml') || $zip->memberNamed('Content.xml');
}
my ($data, $status) = $member->contents();
if ($status != AZ_OK) {
throw Apache::AxKit::Exception::Error(
-text => "Contents.xml could not be retrieved from $self->{file}"
);
}
if ( $path_info =~ /\.(png|gif|jpg)$/ ) {
my $image_type = $1;
$r->content_type( 'image/' . $image_type );
$r->send_http_header();
$r->print( $data );
throw Apache::AxKit::Exception::Declined(
-text => "[OpenOffice] Image detected, skipping further processing."
);
}
return \$data;
view release on metacpan or search on metacpan
use Pod::SAX;
sub get_strref {
my $self = shift;
if ($self->_is_dir()) {
throw Apache::AxKit::Exception::IO(
-text => "$self->{file} is a directory - please overload File provider and use AxContentProvider option");
}
my $outie;
my $w = XML::SAX::Writer->new( Output => \$outie );
eval {
$generator->parse_uri( $self->{file} );
};
if (my $error = $@) {
throw Apache::AxKit::Exception::IO(
-text => "PodSAX Generator Error: $error");
}
#warn "OUTIE $outie \n";
return \$outie
}
AxKit::Debug(5, "'$file' not recognised as POD");
return 0;
}
sub get_fh {
throw Apache::AxKit::Exception::IO(
-text => "Can't get filehandles from POD"
);
}
1;
view release on metacpan or search on metacpan
lib/Apache/AxKit/Provider/RDBMS/ContentProvider.pm view on Meta::CPAN
sub init {
}
sub getContent {
throw Apache::AxKit::Exception::Error( -text => "subclasses must implement this method" );
}
1;
view release on metacpan or search on metacpan
lib/Apache/AxKit/Provider/XMLDOMProvider.pm view on Meta::CPAN
$self->{id} = $url;
$self->{mtime_element} = $mtime_element;
}
# sub: get_fh
# we don't want to handle files, so we just throw an exception here.
sub get_fh {
throw Apache::AxKit::Exception::IO( -text => "Can't get filehandle for XMLDOMProvider (not yet implemented)!" );
}
# sub: get_strref
# since we refused to work with file handles, we HAVE to define this.
# returns a string containing the remote XML-DOM
lib/Apache/AxKit/Provider/XMLDOMProvider.pm view on Meta::CPAN
my $response = $self->{response};
my $string = $response->content();
# debug
#my $h = $response->server;
#throw Apache::AxKit::Exception::Error(-text => "Last Modified Header: \"$h\"");
# some XML validation
my $parser = XML::LibXML->new();
$parser->validation(0);
$parser->load_ext_dtd(0);
lib/Apache/AxKit/Provider/XMLDOMProvider.pm view on Meta::CPAN
my $dom;
eval {
$dom = $parser->parse_string($string);
};
if ($@) {
throw Apache::AxKit::Exception::Error( -text => "Input must be well-formed XML: $@" );
}
# if everything went fine, return xml-string-reference
return \$string;
}
lib/Apache/AxKit/Provider/XMLDOMProvider.pm view on Meta::CPAN
return $self->{id};
}
# sub: exists
# returns 1 if remote XML-DOM is accessible
# throws AxKit IO exception otherwise
sub exists {
my $self = shift;
my $response = $self->{response};
my $url = $self->{xmlfile};
if ( $response->is_success() ) {
return 1;
}
else {
throw Apache::AxKit::Exception::IO( -text => $response->status_line() . ": Cannot access upstream resource: \"$url\"" );
}
}
1;
__END__
view release on metacpan or search on metacpan
t/00-load.t view on Meta::CPAN
skip "Skipping dual bootstrap", 2 if ( $skip_mp1 or $skip_mp2 );
$dual_bootstrap =
eval { $pkg->new( { mod_perl => 0, mod_perl2 => 1.99022 } ); };
# this should not throw an exception since individual bootstraps worked
ok( !$@, 'no exception thrown for dual bootstrap: ' . $@ );
isa_ok( $dual_bootstrap, $pkg );
}
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
view release on metacpan or search on metacpan
bin/webstat_mail.pl view on Meta::CPAN
$stat{usercount} = 0;
my %visitors = ();
while (my ($counts, $remoteip) = $sth->fetchrow) {
# only count those who've looked at more than one page
# (throw away spiders (and other who doesn't support cookies))
if ($counts > 1) {
# count it, he support cookies
$stat{usercount}++;
} else {
# remember the looser by hand
view release on metacpan or search on metacpan
lib/Apache/Emulator/Apache.pm view on Meta::CPAN
local $_;
print STDOUT while defined ($_ = <$fd>);
}
# Should this perhaps throw an exception?
# sub internal_redirect {}
# sub internal_redirect_handler {}
# Do something with ErrorDocument?
# sub custom_response {}
view release on metacpan or search on metacpan
lib/Apache/ExtDirect/Router.pm view on Meta::CPAN
sub handler {
my ($r) = @_;
local $RPC::ExtDirect::Router::DEBUG = $DEBUG;
# If anything but POST method is used, throw an error
return Apache2::Const::DECLINED
if $r->method ne 'POST';
my $cgi = CGI->new($r);
view release on metacpan or search on metacpan
Client/lib/HTTunnel/Client.java view on Meta::CPAN
private String fhid = null ;
private String proto = null ;
private String peer_info = null ;
public Client(String _url) throws MalformedURLException {
url = new URL(_url) ;
}
public int connect(String proto, String host, int port) throws ClientException {
return connect(proto, host, port, 0) ;
}
public int connect(String _proto, String host, int port, int timeout) throws ClientException {
proto = _proto ;
if ((proto == null)||(proto.equals(""))){
proto = "tcp" ;
}
if ((host == null)||(host.equals(""))){
Client/lib/HTTunnel/Client.java view on Meta::CPAN
return 1 ;
}
public String read(int len) throws ClientException {
return read(len, 0) ;
}
public String read(int len, int timeout) throws ClientException {
if (timeout <= 0){
timeout = 15 ;
}
if (fhid == null){
throw new ClientException("HTTunnel.Client object is not connected") ;
}
while (true){
String addr = null ;
String port = null ;
Client/lib/HTTunnel/Client.java view on Meta::CPAN
}
catch (ClientTimeoutException hcte){
continue ;
}
catch (ClientException hce){
throw hce ;
}
return data ;
}
}
Client/lib/HTTunnel/Client.java view on Meta::CPAN
public String get_peer_info(){
return peer_info ;
}
public int print(String data) throws ClientException {
if (fhid == null){
throw new ClientException("HTTunnel.Client object is not connected") ;
}
execute(
"write",
new String [] { fhid, proto },
Client/lib/HTTunnel/Client.java view on Meta::CPAN
return 1 ;
}
public int close() throws ClientException {
if (fhid != null){
execute(
"close",
new String [] { fhid }
) ;
Client/lib/HTTunnel/Client.java view on Meta::CPAN
return 0 ;
}
private String execute(String cmd, String args[]) throws ClientException {
return execute(cmd, args, null) ;
}
private String execute(String cmd, String args[], String data) throws ClientException {
StringBuffer furlsb = new StringBuffer(url.toString() + "/" + cmd) ;
for (int i = 0 ; i < args.length ; i++){
furlsb.append("/" + args[i]) ;
}
Client/lib/HTTunnel/Client.java view on Meta::CPAN
}
response_callback(huc) ;
is = huc.getInputStream() ;
if (huc.getResponseCode() != HttpURLConnection.HTTP_OK){
throw new ClientException("HTTP error : " + huc.getResponseCode() +
" (" + huc.getResponseMessage() + ")") ;
}
byte buf[] = new byte[16834] ;
int len = 0 ;
while ((len = is.read(buf)) != -1){
rdata.append(new String(buf, 0, len)) ;
}
}
catch (IOException ioe){
throw new ClientException(ioe.getClass().getName() + ": " + ioe.getMessage()) ;
}
finally {
if (is != null){
try {
is.close() ;
Client/lib/HTTunnel/Client.java view on Meta::CPAN
}
String content = rdata.toString() ;
String code = content.substring(0, 3) ;
if (code.equals("err")){
throw new ClientException("Apache::HTTunnel error:" + content.substring(3)) ;
}
else if (code.equals("okn")){
return null ;
}
else if (code.equals("okd")){
return content.substring(3) ;
}
else if (code.equals("okt")){
throw new ClientTimeoutException() ;
}
else{
throw new ClientException("Invalid Apache::HTTunnel response code '" + code + "'") ;
}
}
protected void request_callback(HttpURLConnection huc){
view release on metacpan or search on metacpan
lib/Apache/Handlers.pm view on Meta::CPAN
};
=head2 Errors
If code causes an error (such that an eval would set $@), then the request
will throw a SERVER_ERROR and write $@ to either STDERR (if not in mod_perl
and there is no C<die> handler, such as the L<Error|Error> module) or to
the Apache error log with a log level of debug.
=head2 C<Use>ing modules
view release on metacpan or search on metacpan
lib/Apache/HeavyCGI/Exception.pm view on Meta::CPAN
=head1 DESCRIPTION
The execution of the Apache::HeavyCGI::prepare method is protected by
an eval. Within that block the above mentioned exceptions can be
thrown. For a discussion of the semantics of these errors, see
L<Apache::HeavyCGI>.
You need not C<require> the Apache::HeavyCGI::Error module, it is
already required by Apache::HeavyCGI.
view release on metacpan or search on metacpan
lib/Apache/JemplateFilter.pm view on Meta::CPAN
__PACKAGE__,
$r->uri,
$@;
$msg =~ s/\'/\\'/g; # '
$msg =~ s/[\x0A\x0D]/ /g;
$js = "throw('$msg')";
$log->error($msg);
}
$r->set_content_length( length $js );
$r->content_type('application/x-javascript');
$r->send_http_header($r->content_type);
view release on metacpan or search on metacpan
lib/Apache/LoadAvgLimit.pm view on Meta::CPAN
use Sys::Load;
builder {
enable 'HTTPExceptions';
enable_if { (Sys::Load::getload())[0] > 3.00 }
sub { sub { HTTP::Exception::503->throw } };
$app;
};
You can run mod_perl1 application as psgi with L<Plack::Handler::Apache1>.
view release on metacpan or search on metacpan
If you turn C<RaiseError> on then you'd normally turn C<PrintError> off.
If C<PrintError> is also on, then the C<PrintError> is done first (naturally).
Typically C<RaiseError> is used in conjunction with C<eval { ... }>
to catch the exception that's been thrown and followed by an
C<if ($@) { ... }> block to handle the caught exception.
For example:
eval {
...
return what set_err() returns, as shown in the example above.
If the handle has C<RaiseError>, C<PrintError>, or C<HandleError>
etc. set then the set_err() method will honour them. This means
that if C<RaiseError> is set then set_err() won't return in the
normal way but will 'throw an exception' that can be caught with
an C<eval> block.
You can stash private data into DBI handles
via C<$h-E<gt>{private_..._*}>. See the entry under L</ATTRIBUTES
COMMON TO ALL HANDLES> for info and important caveats.
view release on metacpan or search on metacpan
lib/Apache/Mailtrack.pm view on Meta::CPAN
my $data;
our %config;
#
# If we didn't get set up correctly, warn about this and throw a really ugly error.
#
foreach(qw/db_dsn db_user db_pass db_table/)
{
error($r, 'Apache::Mailtrack> Please configure me correctly (check my manpage).')
unless $config{$_} = $r->dir_config($_);
view release on metacpan or search on metacpan
docsrc/reference.xml view on Meta::CPAN
</para>
<para>
pkit_on_error catch only fatal errors (die) NOT warnings.
</para>
<para>
If your code likes to throw an error let it die.
</para>
</refsect1>
</refentry>
<refentry id="model.api.pkit_session_setup">
view release on metacpan or search on metacpan
PerlVINC.pm view on Meta::CPAN
local @INC = @INC;
unshift @INC, @{ $cfg->{'VINC'} };
for (keys %{ $cfg->{'Files'} })
{
delete $INC{$_};
#let mod_perl catch any error thrown here
require $_;
}
return OK;
}
view release on metacpan or search on metacpan
lib/Apache/Perldoc.pm view on Meta::CPAN
} else {
$perldoc ||= "perldoc";
$pod2html ||= "pod2html";
}
# Get the path name and throw away errors on stderr
my $filename = qx( $perldoc -l $pod 2> /dev/null );
if ($?) {
print
"No such perldoc. Either you don't have that module installed, or the author neglected to provide documentation.";
view release on metacpan or search on metacpan
lib/Apache/Roaming.pm view on Meta::CPAN
(Instance Method) This method is checking whether the user has authorized
himself. The current implementation is checking only whether user name
is given via $r->connection()->user(), in other words you can use simple
basic authentication or something similar.
The method should throw an exception in case of problems.
=cut
sub Authenticate {
my $self = shift;
lib/Apache/Roaming.pm view on Meta::CPAN
(Instance method) Once the user is authenticated, this method should
determine whether the user is permitted to access the requested URI.
The current implementation verifies whether the user is accessing
a file in the directory $basedir/$user. If not, a Perl exception is
thrown with $ar_req->{'status'} set to FORBIDDEN.
=cut
sub CheckDir {
my $self = shift;
view release on metacpan or search on metacpan
lib/Apache/SdnFw/js/controls.js view on Meta::CPAN
// enables autocompletion on multiple tokens. This is most
// useful when one of the tokens is \n (a newline), as it
// allows smart autocompletion after linebreaks.
if(typeof Effect == 'undefined')
throw("controls.js requires including script.aculo.us' effects.js library");
var Autocompleter = { };
Autocompleter.Base = Class.create({
baseInitialize: function(element, update, options) {
element = $(element);
lib/Apache/SdnFw/js/controls.js view on Meta::CPAN
parameters: 'editorId=' + encodeURIComponent(this.element.id),
onComplete: Prototype.emptyFunction,
onSuccess: function(transport) {
var js = transport.responseText.strip();
if (!/^\[.*\]$/.test(js)) // TODO: improve sanity check
throw('Server returned an invalid collection representation.');
this._collection = eval(js);
this.checkForExternalText();
}.bind(this),
onFailure: this.onFailure
});
view release on metacpan or search on metacpan
lib/Apache/Session/Wrapper.pm view on Meta::CPAN
if ( $err =~ /Object does not exist/ && defined $session_id )
{
return if $self->{allow_invalid_id};
Apache::Session::Wrapper::Exception::NonExistentSessionID->throw
( error => "Invalid session id: $session_id",
session_id => $session_id );
}
else
{
my $error =
$err ? $err : "Tying to Apache::Session::$self->{session_class_piece} failed but did not throw an exception";
die $error;
}
}
sub _bake_cookie
lib/Apache/Session/Wrapper.pm view on Meta::CPAN
=item * new
This method creates a new C<Apache::Session::Wrapper> object.
If the parameters you provide are not correct (wrong type, missing
parameters, etc.), this method throws an
C<Apache::Session::Wrapper::Exception::Params> exception. You can
treat this exception as a string if you want.
=item * session
lib/Apache/Session/Wrapper.pm view on Meta::CPAN
If this is true, an attempt to create a session with a session id that
does not exist in the session storage will be ignored, and a new
session will be created instead. If it is false, a
C<Apache::Session::Wrapper::Exception::NonExistentSessionID> exception
will be thrown instead.
This defaults to true.
=item * session_id => string
view release on metacpan or search on metacpan
SimpleTemplate.pm view on Meta::CPAN
=head2 template processing
Any errors in evaluating a code block should get logged to the error_log.
The compilation process tries to keep the line numbers consistent with
the template, but <%! %> declarations/definitions that are not at the
top of the template may throw line numbers off.
Any additional variables you wish to use must be declared (with 'my').
If you declare them in <%! %> or <% %> blocks, they will be accessible
in later blocks.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
view release on metacpan or search on metacpan
t/External/Apache-Sling-Authn.t view on Meta::CPAN
$sling->{'Pass'} = 'badpasswordwillnotwork';
# Check creation with verbosity turned up:
$sling->{'Verbose'} = 3;
my $authn = Apache::Sling::Authn->new( \$sling );
isa_ok $authn, 'Apache::Sling::Authn', 'authentication';
throws_ok{ $authn->login_user() } qr%Basic Auth log in for user "$super_user" at URL "$sling_host" was unsuccessful%, 'Check authn object creation croaks with bad password and high verbosity';
# reset verbosity level:
$sling->{'Verbose'} = $verbose;
$authn = Apache::Sling::Authn->new( \$sling );
isa_ok $authn, 'Apache::Sling::Authn', 'authentication';
throws_ok{ $authn->login_user() } qr%Basic Auth log in for user "$super_user" at URL "$sling_host" was unsuccessful%, 'Check authn object creation croaks with bad password and default verbosity';
# Set the password to something that should work!
$sling->{'Pass'} = $super_pass;
# Check creating authn object fails with unsupported auth type:
$sling->{'Auth'} = 'badauthtypewillnotwork';
$authn = Apache::Sling::Authn->new( \$sling );
isa_ok $authn, 'Apache::Sling::Authn', 'authentication';
throws_ok{ $authn->login_user() } qr/Unsupported auth type: "badauthtypewillnotwork"/, 'Check authn object creation croaks with unsupported auth type';
# Set the auth type to something that should work!
$sling->{'Auth'} = undef;
# authn object:
t/External/Apache-Sling-Authn.t view on Meta::CPAN
ok( $user->add( $test_user2, $test_pass, \@test_properties ),
"Authn Test: User \"$test_user2\" added successfully." );
ok( $user->check_exists( $test_user2 ),
"Authn Test: User \"$test_user2\" exists." );
throws_ok{ $authn->switch_user( $test_user1, $test_pass, "badauthtypewillnotwork", 1 ) } qr/Unsupported auth type: "badauthtypewillnotwork"/, 'Check switch_user croaks with unsupported auth type';
throws_ok{ $authn->switch_user( "baduser", "badpassword", "basic", 1 ) } qr/Basic Auth log in for user "baduser" at URL "$sling_host" was unsuccessful/, 'Check switch_user croaks with bad credentials';
throws_ok{ $authn->switch_user( $super_user, "badpassword", "basic", 1 ) } qr/Basic Auth log in for user "$super_user" at URL "$sling_host" was unsuccessful/, 'Check switch_user croaks with bad password';
ok( $authn->switch_user( $test_user1, $test_pass, "basic", 1 ),
"Authn Test: Successfully switched to user: \"$test_user1\" with basic auth" );
ok( $authn->switch_user( $test_user1, $test_pass, "basic", 1 ),
"Authn Test: Successfully stayed as user: \"$test_user1\"" );
ok( $authn->switch_user( $test_user2, $test_pass, "basic", 1 ),
view release on metacpan or search on metacpan
# PerlSetVar apache_stage_regex " ^ (/STAGE/[^/]*) (.*) $ "
# This regex has to split a staged URI into two parts. It is
# evaluated with the /ox switch in effect, so this will NOT be a
# per-directory variable. The first part will be thrown away and
# just the second part will be served if the original URI cannot
# be accessed. In case of 301 and 302 redirects the first part
# will be prepended again. The default regex is defined as above
# which means that URIS will be split into "/STAGE/anyuser" and
# the rest.
view release on metacpan or search on metacpan
lib/Apache/Template.pm view on Meta::CPAN
[% INCLUDE /etc/passwd %]
will be honoured. The default setting is 'Off' and any attempt to
load a template by absolute filename will result in a 'file' exception
being throw with a message indicating that the ABSOLUTE option is not
set. See L<Template> for further discussion on exception handling.
=item TT2Relative
Equivalent to the RELATIVE configuration item. This is similar to the
lib/Apache/Template.pm view on Meta::CPAN
Enabling the option permits templates to be specifed as per this example:
[% INCLUDE ../../../etc/passwd %]
As with TT2Absolute, this option is set 'Off', causing a 'file' exception
to be thrown if used in this way.
=item TT2Delimiter
Equivalent to the DELIMTER configuration item, this can be set to define
an alternate delimiter for separating multiple TT2IncludePath options.
view release on metacpan or search on metacpan
lib/Apache/TestConfig.pm view on Meta::CPAN
# untaint as we are going to use it a lot later on in -T sensitive
# operations (.e.g @INC)
$top_dir = $1 if $top_dir =~ /(.*)/;
# make sure that t/conf/apache_test_config.pm is found
# (unfortunately sometimes we get thrown into / by Apache so we
# can't just rely on $top_dir
lib->import($top_dir);
my $thaw = {};
#thaw current config