view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
view release on metacpan or search on metacpan
lib/CGI/Carp/Throw.pm view on Meta::CPAN
#####################################################################
# Need to call CGI::Carp's import in a controlled manner and with
# a controlled environment.
#
# More complicated than I would like but guessing it's reasonably
# robust.
#####################################################################
sub import {
my $pkg = shift;
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
the field values, so you can access particular form field values
directly, as in
$xyz = $form->{xyz};
providing you are not an OOP purist, I guess. (If you are, use the get
method.)
=item $form->set(PARAMS);
allows you to set value on one or more form fields. E.g.
view release on metacpan or search on metacpan
lib/CGI/Ex/Conf.pm view on Meta::CPAN
file beginning with a / or ./ or ../ is considered to be a full
filename). A file "namespace" (ie "footer" or "my::config" or
"what/ever") will be turned into a filename by looking for that
namespace in the paths found either in $args->{paths} or in
$self->{paths} or in @DEFAULT_PATHS. @DEFAULT_PATHS is empty by
default as is $self->{paths} - read makes no attempt to guess what
directories to look in. If the namespace has no extension the
extension listed in $args->{default_ext} or $self->{default_ext} or
$DEFAULT_EXT will be used).
my $ref = $cob->read('My::NameSpace', {
view release on metacpan or search on metacpan
lib/CGI/FormBuilder/Mail/FormatMultiPart.pm view on Meta::CPAN
=head1 BUGS
Styles don't do anything in my copy of Evolution, at least.
But they do have the intended effect in Mozilla Mailnews,
so I guess it's good to go.
=head1 DEPENDENCIES
L<MIME::Types>,
L<Net::SMTP>,
view release on metacpan or search on metacpan
1.0.8 2007-11-17
Fix version in META.yml... I guess deleting file doesn't work.
1.0.7 2007-11-17
Fix [rt.cpan.org #30559]
- no longer uses Test::Exception.
view release on metacpan or search on metacpan
lib/CGI/FormBuilder/Field.pm view on Meta::CPAN
# Handle "b:select" and "b:option"
sub tag_name {
my $self = shift;
$self->{tag_name} = shift if @_;
return $self->{tag_name} if $self->{tag_name};
# Try to guess
my($tag) = ref($self) =~ /^CGI::FormBuilder::Field::(.+)/;
puke "Can't resolve tag for untyped field '$self->{name}'"
unless $tag;
return $tag;
}
lib/CGI/FormBuilder/Field.pm view on Meta::CPAN
my $name = $self->{name};
my $type;
unless ($type = lc $self->{type}) {
#
# Unless the type has been set explicitly, we make a guess
# based on how many items there are to display, which is
# basically, how many options we have. Our 'jsclick' option
# is now changed down in the javascript section, fixing a bug
#
if ($self->{_form}->smartness) {
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
lib/CGI/FormMagick/TagMaker.pm view on Meta::CPAN
# Names of properties for objects of this class are declared here:
my $KEY_AUTO_GROUP = 'auto_group'; # do we make tag groups by default?
my $KEY_AUTO_POSIT = 'auto_posit'; # with methods whose parameters
# could be either named or positional, when we aren't sure what we
# are given, do we guess positional? Default is named.
# These extra tag properties work only with AUTOLOAD:
my $PARAM_TEXT = 'text'; #tag pair is wrapped around this
my $PARAM_LIST = 'list'; #force tag groups to be returned in ARRAY ref
lib/CGI/FormMagick/TagMaker.pm view on Meta::CPAN
This method is an accessor for the boolean "automatic grouping" property of this
object, which it returns. If VALUE is defined, this property is set to it. In
cases where we aren't told explicitely that autoloaded methods are making a
single or multiple tags (using ['_start', '_end', '_pair'] and '_group'
respectively), we look to this property to determine what operation we guess.
The default is "single". When this property is true, we can make both single and
groups of tags by using a suffix-less method name; however, making single tags
this way is slower than when this property is false. Also, be aware that when we
are making a "group", arguments that are ARRAY refs are always flattened, and
when we are making a "single", ARRAY ref arguments are always used literally.
lib/CGI/FormMagick/TagMaker.pm view on Meta::CPAN
=head2 positional_by_default([ VALUE ])
This method is an accessor for the boolean "positional arguments" property of
this object, which it returns. If VALUE is defined, this property is set to it.
With methods whose parameters could be either named or positional, when we aren't
sure what we are given, do we guess positional? Default is named.
=cut
sub positional_by_default {
my $self = shift( @_ );
view release on metacpan or search on metacpan
lib/CGI/Framework.pm view on Meta::CPAN
=item templates_dir
B<OPTIONAL>
This key should have a scalar value holding a directory name which contains all the template files. If not supplied, it will be guessed based on the local directory.
=item valid_languages
B<OPTIONAL>
lib/CGI/Framework.pm view on Meta::CPAN
$para{cookie_name} =~ s/[^0-9a-z]//gi;
}
if (!$para{sessions_mysql_dbh} && !$para{sessions_dir}) {
#
# They didn't supply any sessions stuff, so let's take a guess at some directories for file-based storage:
#
foreach (qw(/tmp /var/tmp c:/tmp c:/temp c:/windows/temp)) {
if (-d $_) {
$para{sessions_dir} = $_;
last;
view release on metacpan or search on metacpan
Added is_search_engine()
0.22 Thu May 3 09:32:37 BST 2012
Fix tmpdir() in Cygwin, where giving a default value of '/non-existant' would
return '/non-existant/../tmp' rather than '/non-existant'. I
guess it would also have broken under the Newcastle Connection.
0.21 Wed May 2 13:21:40 BST 2012
Clean up a couple of regular expressions
Small speed improvement
view release on metacpan or search on metacpan
lib/CGI/Lingua.pm view on Meta::CPAN
=head2 locale
HTTP doesn't have a way of transmitting a browser's localisation information
which would be useful for default currency, date formatting, etc.
This method attempts to detect the information, but it is a best guess
and is not 100% reliable. But it's better than nothing ;-)
Returns a L<Locale::Object::Country> object.
=head3 API SPECIFICATION
view release on metacpan or search on metacpan
lib/CGI/Lite/Request/Upload.pm view on Meta::CPAN
returns the size of the uploaded file
=item type
returns the MIME type of the file (guessed with L<File::Type>)
=cut
sub size { $_[0]->{_size} = $_[1] if $_[1]; $_[0]->{_size} }
sub type { $_[0]->{_type} = $_[1] if $_[1]; $_[0]->{_type} }
view release on metacpan or search on metacpan
}
This can be a huge timesaver if access to the webserver is difficult.
This can be huge trouble if you have confidential or security related
information in your debugging messages. (That is why "debug" in the above
example is the string "secret" and not "1" or something easy to guess.)
=item
You can add nice status messages to your web application by doing something like:
view release on metacpan or search on metacpan
MxScreen/Session/Medium/File.pm view on Meta::CPAN
#
# _mxscreen_session the session ID
# _mxscreen_token a random token, saved with context
#
# The random token is generated each time the context is saved to the file.
# It is used at retrieve time to validate the session ID: noone could guess
# both the session ID and the associated token at the same time.
#
# Note that since we generate a token each time we save, using "Back" from
# the browser to resubmit an old form is bound to fail, since the token
# will have changed.
view release on metacpan or search on metacpan
lib/CGI/ParamComposite.pm view on Meta::CPAN
similar to what you seen in some programming languages. Now if I see a parameter
like:
/my.cgi?navigation.instructions=1
I can pretty quickly guess, after not looking at the code for days/weeks/months, that
this value is somehow affecting the instructions on the Gbrowse navigation page. In
my opinion, this is superior to:
/my.cgi?ins=0
view release on metacpan or search on metacpan
currenttime [% localtime %]
Currently, the following are included by default in the magic_fill_interpolation_hash
script - a good guess at the name of your script
_script - the stuff after the last _ in the above script
localtime - scalar (localtime),
time - time,
I also include %ENV
view release on metacpan or search on metacpan
demos/segtext/jv_world/jv_world_005.txt view on Meta::CPAN
# version (true); otherwise, it returns undef (false). By default, ARGS is
# known to be named if its first element is a hash ref, and assumed to be
# positional if the count of arguments is odd. If neither of those two
# conditions are true then we have an even argument count and we are in doubt
# of whether they are named or not. The argument GUESS_NAMED says what to do
# in that case; if it is true then we guess named and if it is false then we
# guess positional. If the argument USE_DASHES is true then we check the first
# element in ARGS to see if it begins with a dash, "-", and if it does then we
# assume that ARGS is named regardless of the count of elements.
# When the first element of ARGS is a hash ref, any other elements of ARGS are
# also returned as "remaining" values, if they exist, after the hash ref.
# So you can call this like "($rh_named, @rem) = _args_are_named()".
sub _args_are_named {
my ($self, $ra_args, $use_dashes, $guess_named) = @_;
if( ref( $ra_args->[0] ) eq 'HASH' ) {
return( @{$ra_args} ); # literal hash in first return elem
} elsif( $use_dashes and substr( $ra_args->[0], 0, 1 ) eq '-' ) {
return( { @{$ra_args} } ); # first element starts with "-"
} elsif( @{$ra_args} % 2 ) {
return( undef ); # odd # elements
} else {
return( $guess_named ? { @{$ra_args} } : undef ); # even num elements
}
}
view release on metacpan or search on metacpan
lib/CGI/Scriptpaths.pm view on Meta::CPAN
may warn and return undef
=head2 DOCUMENT_ROOT()
assumes this is a website and returns document root
if $ENV{DOCUMENT_ROOT} is not set, it tries to test and guess for it
on failure returns undef
=head2 script_rel_path()
returns script's relative path to DOCUMENT_ROOT()
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
lib/CGI/Session/Tutorial.pm view on Meta::CPAN
Query string is a string appended to URL following a question mark (?) such as:
http://my.dot.com/login.cgi?user=sherzodr;password=top-secret
As you probably guessed, it can also help you pass state information from a click to another, but how secure is it do you think, considering these URLs tend to get cached by most of the user agents and also logged in the servers access log, to which ...
=head2 HIDDEN FIELDS
Hidden field is another alternative to using query strings and they come in two flavors: hidden fields used in POST methods and the ones in GET. The ones used in GET methods will turn into a true query strings once submitted, so all the disadvantages...
lib/CGI/Session/Tutorial.pm view on Meta::CPAN
This concludes our discussion of CGI::Session programming style. The rest of the manual covers some L<"SECURITY"> issues. Driver specs from the previous manual were moved to L<CGI::Session::Driver|CGI::Session::Driver>.
=head1 SECURITY
"How secure is using CGI::Session?", "Can others hack down people's sessions using another browser if they can get the session id of the user?", "Are the session ids easy to guess?" are the questions I find myself answering over and over again.
=head2 STORAGE
Security of the library does in many aspects depend on the implementation. After making use of this library, you no longer have to send all the information to the user's cookie except for the session id. But, you still have to store the data in the s...
lib/CGI/Session/Tutorial.pm view on Meta::CPAN
=back
=head2 SESSION IDs
Session ids are not easily guessed (unless you're using L<incr ID generator|CGI::Session::ID::incr>)! Default configuration of CGI::Session uses L<CGI::Session::ID::md5|CGI::Session::ID::md5> to generate random, 32 character long identifier. Although...
Consider the scenario, where you just give someone either via email or an instant messaging a link to a Web site where you're currently logged in. The URL you give to that person contains a session id as part of a query string. If the site was initia...
Even if you're solely using cookies as the session id transporters, it's not that difficult to plant a cookie in the cookie file with the same id and trick the web browser to send that particular session id to the server. So key for security is to ch...
view release on metacpan or search on metacpan
lib/CGI/Simple.pm view on Meta::CPAN
last READ unless _internal_read( $self, $handle, my $buffer );
$data .= $buffer;
$got_data += length $buffer;
unless ( $boundary ) {
# If we're going to guess the boundary we need a complete line.
next READ unless $data =~ /^(.*)$CRLF/o;
$boundary = $1;
# Still no boundary? Give up...
unless ( $boundary ) {
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
purge
remove
The following methods return information solely from the primary cache.
However, you are free to call them explicitly on the subcache. (Trying to merge
in subcache information automatically would require too much guessing about the
caller's intent.)
get_keys
get_namespaces
get_object
view release on metacpan or search on metacpan
print "It may very well be supported all the way back to ",
format_version(5.003_07), ".\n";
}
else {
print "But given the things $f depends on, it's a good",
" guess that it isn't\n",
"supported prior to ", format_version($todo), ".\n";
}
}
}
}
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif