Result:
found more than 305 distributions - search limited to the first 2001 files matching your query
( run in 0.544 )
App-NoPAN
view release on metacpan or search on metacpan
inc/File/Slurp.pm view on Meta::CPAN
$read_fh = $file_name ;
$blk_size = $args{'blk_size'} || 1024 * 1024 ;
$size_left = $blk_size ;
# DEEP DARK MAGIC. this checks the UNTAINT IO flag of a
# glob/handle. only the DATA handle is untainted (since it is from
# trusted data in the source file). this allows us to test if this is
# the DATA handle and then to do a sysseek to make sure it gets
# slurped correctly. on some systems, the buffered i/o pointer is not
# left at the same place as the fd pointer. this sysseek makes them
# the same so slurping with sysread will work.
App-Office-CMS
view release on metacpan or search on metacpan
lib/App/Office/CMS.pm view on Meta::CPAN
that information you don't wish to leak out may be displayed on the end-user's
screen.
Feel free to recommend changes in this area.
CGI form field data is passed thru CGI::Untaint and, optionally, HTML::Defang.
=head1 Distributions
This module is available as a Unix-style distro (*.tgz).
lib/App/Office/CMS.pm view on Meta::CPAN
=item o Change class hierarchy
This is so View does not have to pass so many parameters to its 'has-a' attributes
=item o Adopt L<CGI::Untaint::html> or L<HTML::Defang>
Considered and rejected: L<HTML::Sanitizer>, L<HTML::Scrubber>.
=item o Test CGI::Untaint as to its handling of <script>...</script>
=item o Investigate Quicki's revision system
=back
App-Options
view release on metacpan or search on metacpan
lib/App/Options.pm view on Meta::CPAN
s/^\s+//; # delete leading spaces
s/\s+$//; # delete trailing spaces
next if (/^$/); # skip blank lines
# look for "var = value" (ignore other lines)
if (/^([^\s=]+)\s*=\s*(.*)/) { # untainting also happens
$var = $1;
$value = $2;
if (!$is_mod_perl) {
if ($var eq "perl_restart" && $value && $value ne "1") {
App-PLab
view release on metacpan or search on metacpan
lib/App/PLab/index.pod view on Meta::CPAN
=item Calibrations
The experiment recording may use not pixel-to-pixel mapping, and the vertical and
horizontal resolutions of the digital camera may differ. To unify image extensions when calculating
image parameters some calibrations are often provided. Applications mostly care about calibration matching when processing a series,
and warn uses if image supplementary data containts different calibrations from current.
=back
App-Padadoy
view release on metacpan or search on metacpan
use File::Spec::Functions;
use Cwd;
use App::Padadoy;
my ($cwd) = (cwd =~ /^(.*)$/g); # untainted cwd
my $devdir = tempdir( CLEANUP => 1 );
diag "creating Foo::Bar app in $devdir";
chdir $devdir;
App-PerlXLock
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
my %CONFIG = ();
my @DATA_OBJS = ();
my $INIT = 0;
my $version_requested = 0;
my $version_printed = 0;
my $untaint = 0;
my $safemode = 0;
our $languages = undef;
our $did = '_Inline'; # Default Inline Directory
inc/Inline.pm view on Meta::CPAN
WARNINGS => 1,
_INSTALL_ => 0,
_TESTING => 0,
};
sub UNTAINT {$untaint}
sub SAFEMODE {$safemode}
#==============================================================================
# This is where everything starts.
#==============================================================================
inc/Inline.pm view on Meta::CPAN
);
@config = $o->check_config(@config);
$o->fold_options;
$o->check_installed;
$o->env_untaint if UNTAINT;
if (not $o->{INLINE}{object_ready}) {
$o->check_config_file; # Final DIRECTORY set here.
push @config, $o->with_configs;
my $language = $o->{API}{language};
croak M04_error_nocode($language_id) unless $o->{API}{code};
$o->check_module;
}
$o->env_untaint if UNTAINT;
$o->obj_untaint if UNTAINT;
print_version() if $version_requested;
$o->reportbug() if $o->{CONFIG}{REPORTBUG};
if (not $o->{INLINE}{object_ready}
or $o->{CONFIG}{PRINT_INFO}
) {
inc/Inline.pm view on Meta::CPAN
# my ($harness_active) = $env_ha =~ /(.*)/ ;
# if (($harness_active)&&(! $o->{CONFIG}{UNTAINT})){
# eval {
# require Scalar::Util;
# $o->{CONFIG}{UNTAINT} =
# (Scalar::Util::tainted(Cwd::cwd()) ? 1 : 0) ;
## Disable SAFEMODE in the test suite, we know what we are doing...
# $o->{CONFIG}{SAFEMODE} = 0 ;
# warn "\n-[tT] enabled for test suite.
#Automatically setting UNTAINT=1 and SAFEMODE=0.\n"
# unless $Inline::_TAINT_WARNING_ ;
# $Inline::_TAINT_WARNING_ = 1 ;
# } ;
# }
##
$untaint = $o->{CONFIG}{UNTAINT} || 0;
$safemode = (($o->{CONFIG}{SAFEMODE} == -1) ?
($untaint ? 1 : 0) :
$o->{CONFIG}{SAFEMODE}
);
if (UNTAINT and
SAFEMODE and
not $o->{CONFIG}{DIRECTORY}) {
inc/Inline.pm view on Meta::CPAN
warn "\$load_cfg sub: \$config: *${config}*\n";
croak M62_invalid_config_file(File::Spec->catfile($DIRECTORY,$configuration_file));
}
if(UNTAINT) {
warn "In Inline::check_config_file(): Blindly untainting Inline configuration file information.\n"
unless $o->{CONFIG}{NO_UNTAINT_WARN};
($config) = $config =~ /(.*)/s;
}
%config = Inline::denter->new()->undent($config);
inc/Inline.pm view on Meta::CPAN
}
return @configs;
}
#==============================================================================
# Blindly untaint tainted fields in %ENV.
#==============================================================================
sub env_untaint {
my $o = shift;
warn "In Inline::env_untaint() : Blindly untainting tainted fields in %ENV.\n" unless $o->{CONFIG}{NO_UNTAINT_WARN};
{
no warnings ('uninitialized'); # In case $ENV{$_} is set to undef.
for (keys %ENV) {
($ENV{$_}) = $ENV{$_} =~ /(.*)/;
inc/Inline.pm view on Meta::CPAN
$ENV{SHELL} = '/bin/sh' if -x '/bin/sh';
$< = $> if $< != $>; # so child processes retain euid - ignore failure
}
#==============================================================================
# Blindly untaint tainted fields in Inline object.
#==============================================================================
sub obj_untaint {
my $o = shift;
warn "In Inline::obj_untaint() : Blindly untainting tainted fields in Inline object.\n" unless $o->{CONFIG}{NO_UNTAINT_WARN};
($o->{INLINE}{ILSM_module}) = $o->{INLINE}{ILSM_module} =~ /(.*)/;
($o->{API}{directory}) = $o->{API}{directory} =~ /(.*)/;
($o->{API}{build_dir}) = $o->{API}{build_dir} =~ /(.*)/;
($o->{CONFIG}{DIRECTORY}) = $o->{CONFIG}{DIRECTORY} =~ /(.*)/;
($o->{API}{install_lib}) = $o->{API}{install_lib} =~ /(.*)/;
App-PhotoDB
view release on metacpan or search on metacpan
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
use Term::ReadLine::Perl;
use File::Basename;
use Time::Piece;
use Text::TabularDisplay;
our @EXPORT_OK = qw(prompt db updaterecord deleterecord newrecord notimplemented nocommand nosubcommand listchoices lookupval lookuplist today validate ini printlist round pad lookupcol thin resolvenegid chooseneg annotatefilm keyword parselensmodel ...
=head2 prompt
Prompt the user for an arbitrary value. Has various options for data validation and customisation of the prompt.
If the provided input fails validation, or if a blank string is given when required=1 then the prompt is repeated.
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
=cut
sub writeconfig {
my $inifile = shift;
# Untaint
unless ($inifile =~ m#^([\w.-\/]+)$#) {
die "filename '$inifile' has invalid characters.\n";
}
$inifile = $1;
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
# Strip off trailing slash
$basepath =~ s/\/$//;
return $basepath;
}
# Untaint input
=head2 untaint
Untaint a tainted value
=head4 Usage
my $untainted = &untaint($tainted);
=head4 Arguments
=item * C<$tainted> Tainted value to untaint
=head4 Returns
Returns the untained string
=cut
sub untaint {
my $input = shift;
$input =~ m/^(.*)$/;
my $output = $1;
return $output;
}
App-PigLatin
view release on metacpan or search on metacpan
t/files/moby11.txt view on Meta::CPAN
and potatoes, but dumplings; good heavens! dumplings for supper!
One young fellow in a green box coat, addressed himself
to these dumplings in a most direful manner.
"My boy," said the landlord, "you'll have the nightmare
to a dead sartainty."
"Landlord," I whispered, "that aint the harpooneer is it?"
"Oh, no," said he, looking a sort of diabolically funny, "the harpooneer
is a dark complexioned chap. He never eats dumplings, he don't--
t/files/moby11.txt view on Meta::CPAN
But not so did it seem to Ahab, who knew the sets of all
tides and currents; and thereby calculating the driftings of
the sperm whale's food; and, also calling to mind the regular,
ascertained seasons for hunting him in particular latitudes;
could arrive at reasonable surmises, almost approaching
to certainties, concerning the timeliest day to be upon this
or that ground in search of his prey.
So assured, indeed, is the fact concerning the periodicalness of the sperm
whale's resorting to given waters, that many hunters believe that,
could he be closely observed and studied throughout the world;
t/files/moby11.txt view on Meta::CPAN
And where Ahab's chances of accomplishing his object
have hitherto been spoken of, allusion has only been made
to whatever way-side, antecedent, extra prospects were his,
ere a particular set time or place were attained, when all
possibilities would become probabilities, and, as Ahab
fondly thought, every possibility the next thing to a certainty.
That particular set time and place were conjoined in the one
technical phrase--the Season-on-the-Line. For there and then,
for several consecutive years, Moby Dick had been periodically
descried, lingering in those waters for awhile, as the sun,
in its annual round, loiters for a predicted interval in any
t/files/moby11.txt view on Meta::CPAN
the stranger in question waved his hand from his boat's stern
in token of that proceeding being entirely unnecessary.
It turned out that the Jeroboam had a malignant epidemic on board,
and that Mayhew, her captain, was fearful of infecting
the Pequod's company. For, though himself and the boat's crew
remained untainted, and though his ship was half a rifle-shot off,
and an incorruptible sea and air rolling and flowing between;
yet conscientiously adhering to the timid quarantine of the land,
he peremptorily refused to come into direct contact with the Pequod.
But this did by no means prevent all communications.
t/files/moby11.txt view on Meta::CPAN
intricacies he retains the small fish, when openmouthed he goes
through the seas of brit in feeding time. In the central blinds
of bone, as they stand in their natural order, there are certain
curious marks, curves, hollows, and ridges, whereby some whalemen
calculate the creature's age, as the age of an oak by its circular rings.
Though the certainty of this criterion is far from demonstrable,
yet it has the savor of analogical probability. At any rate,
if we yield to it, we must grant a far greater age to the Right Whale
than at first glance will seem reasonable.
In old times, there seem to have prevailed the most curious fancies
t/files/moby11.txt view on Meta::CPAN
then I opine we should be furnished with the reason why his sense of smell
seems obliterated in him; for the only thing about him that at all answers
to his nose is that identical spout-hole; and being so clogged with
two elements, it could not be expected to have the power of smelling.
But owing to the mystery of the spout--whether it be water or whether it
be vapor--no absolute certainty can as yet be arrived at on this head.
Sure it is, nevertheless, that the Sperm Whale has no proper olfactories.
But what does he want of them? No roses, no violets, no Cologne-water
in the sea.
Furthermore, as his windpipe solely opens into the tube of his
t/files/moby11.txt view on Meta::CPAN
between the earthy clefts of Greenland ice or in Vesuvius lava.
How the wild winds blow it; they whip it about me as the torn
shreds of split sails lash the tossed ship they cling to.
A vile wind that has no doubt blown ere this through prison corridors
and cells, and wards of hospitals, and ventilated them, and now comes
blowing hither as innocent as fleeces. Out upon it!--it's tainted.
Were I the wind, I'd blow no more on such a wicked, miserable world.
I'd crawl somewhere to a cave, and slink there. And yet,
'tis a noble and heroic thing, the wind! who ever conquered it?
In every fight it has the last and bitterest blow. Run tilting
at it, and you but run through it. Ha! a coward wind that strikes
App-PipeFilter
view release on metacpan or search on metacpan
eg/duckduckgo.json view on Meta::CPAN
{"DefinitionSource":"TheFreeDictionary","Heading":"Poe","RelatedTopics":[{"Result":"<a href=\"http://duckduckgo.com/Edgar_Allan_Poe\">Poe</a> most often refers to Edgar Allan Poe the American writer.","Icon":{"URL":"http://i.duck.co/i/c96dee09.png"},...
App-Prove-Plugin-Distributed
view release on metacpan or search on metacpan
lib/App/Prove/Plugin/Distributed.pm view on Meta::CPAN
push @initial_compiled_inc, $Config{$var_name}
if $Config{$var_name};
}
}
# . is part of the initial @INC unless in taint mode
push @initial_compiled_inc, '.' if ( ${^TAINT} == 0 );
map { s/\/+/\//g } @initial_compiled_inc;
map { s/\/+$// } @initial_compiled_inc;
}
App-Sandy
view release on metacpan or search on metacpan
dofindlabel|5.003007||Viu
doform|5.005000||Viu
do_gv_dump|5.006000||cVu
do_gvgv_dump|5.006000||cVu
do_hv_dump|5.006000||cVu
doing_taint|5.008001||cVnu
DOINIT|5.003007||Viu
do_ipcctl|5.003007||Viu
do_ipcget|5.003007||Viu
do_join|5.003007|5.003007|u
do_magic_dump|5.006000||cVu
magic_getnkeys|5.004005||Viu
magic_getpack|5.003007||Viu
magic_getpos|5.003007||Viu
magic_getsig|5.003007||Viu
magic_getsubstr|5.004005||Viu
magic_gettaint|5.003007||Viu
magic_getuvar|5.003007||Viu
magic_getvec|5.004005||Viu
magic_killbackrefs|5.006000||Viu
magic_methcall1|5.013001||Viu
magic_methcall|||vi
magic_setpos|5.003007||Viu
magic_setregexp|5.008001||Viu
magic_setsig|5.003007||Viu
magic_setsigall|5.035001||Viu
magic_setsubstr|5.003007||Viu
magic_settaint|5.003007||Viu
magic_setutf8|5.008001||Viu
magic_setuvar|5.003007||Viu
magic_setvec|5.003007||Viu
magic_sizepack|5.005000||Viu
magic_wipepack|5.003007||Viu
PERL_MAGIC_sig|5.007002|5.003007|p
PERL_MAGIC_sigelem|5.007002|5.003007|p
PERL_MAGIC_substr|5.007002|5.003007|p
PERL_MAGIC_sv|5.007002|5.003007|p
PERL_MAGIC_symtab|5.009003|5.009003|
PERL_MAGIC_taint|5.007002|5.003007|p
PERL_MAGIC_tied|5.007002|5.003007|p
PERL_MAGIC_tiedelem|5.007002|5.003007|p
PERL_MAGIC_tiedscalar|5.007002|5.003007|p
PERL_MAGIC_TYPE_IS_VALUE_MAGIC|5.015000||Viu
PERL_MAGIC_TYPE_READONLY_ACCEPTABLE|5.015000||Viu
PL_sv_serial|5.010001||Viu
PL_sv_undef|5.004005|5.003007|p
PL_sv_yes|5.004005|5.003007|p
PL_sv_zero|5.027003|5.027003|
PL_sys_intern|5.005000||Viu
PL_tainted|5.005000|5.003007|poVnu
PL_tainting|5.005000|5.003007|poVnu
PL_taint_warn|5.007003||Viu
PL_threadhook|5.008000||Viu
PL_tmps_floor|5.005000||Viu
PL_tmps_ix|5.005000||Viu
PL_tmps_max|5.005000||Viu
PL_tmps_stack|5.005000||Viu
PL_vtbl_regexp|5.015000||Viu
PL_vtbl_sig|5.035001||Viu
PL_vtbl_sigelem|5.015000||Viu
PL_vtbl_substr|5.015000||Viu
PL_vtbl_sv|5.015000||Viu
PL_vtbl_taint|5.015000||Viu
PL_vtbl_utf8|5.015000||Viu
PL_vtbl_uvar|5.015000||Viu
PL_vtbl_vec|5.015000||Viu
PL_warnhook|5.005000||Viu
PL_warn_locale|5.021008||Viu
SBOX32_WARN5|5.027001||Viu
SBOX32_WARN6|5.027001||Viu
sb_rflags|5.006000||Viu
sb_rx|5.003007||Viu
sb_rxres|5.004000||Viu
sb_rxtainted|5.004000||Viu
sb_s|5.003007||Viu
sb_strend|5.003007||Viu
sb_targ|5.003007||Viu
scalar|5.003007||Viu
scalarboolean|5.005000||Viu
SvOBJECT_on|5.003007||Viu
SvOK|5.003007|5.003007|
SvOK_off|5.003007||Viu
SvOK_off_exc_UV|5.006000||Viu
SvOKp|5.003007||Viu
sv_only_taint_gmagic|5.021010||Vniu
SvOOK|5.003007|5.003007|
SvOOK_off|5.003007|5.003007|
SvOOK_offset|5.011000|5.011000|
SvOOK_on|5.003007||Viu
sv_or_pv_len_utf8|5.017005||Viu
sv_streq|5.035009|5.035009|
sv_streq_flags|5.035009|5.035009|
sv_string_from_errnum|5.027003|5.027003|
SvTAIL|5.003007||Viu
SvTAINT|5.003007|5.003007|
sv_taint|5.009003||cV
SvTAINTED|5.004000|5.004000|
sv_tainted|5.004000||cV
SvTAINTED_off|5.004000|5.004000|
SvTAINTED_on|5.004000|5.004000|
SvTEMP|5.003007||Viu
SvTEMP_off|5.003007||Viu
SvTEMP_on|5.003007||Viu
SvUNLOCK|5.007003|5.007003|
sv_unmagic|5.003007|5.003007|
sv_unmagicext|5.013008|5.003007|p
sv_unref|5.003007|5.003007|
sv_unref_flags|5.007001|5.007001|
sv_untaint|5.004000||cV
SvUOK|5.007001|5.006000|p
SvUOK_nog|5.017002||Viu
SvUOK_nogthink|5.017002||Viu
sv_upgrade|5.003007|5.003007|
SvUPGRADE|5.003007|5.003007|
TAIL_t8_pb|5.033003||Viu
TAIL_tb|5.035004||Viu
TAIL_tb_p8|5.033003||Viu
TAIL_tb_pb|5.033003||Viu
TAINT|5.004000||Viu
taint_env|5.003007|5.003007|u
TAINT_ENV|5.003007||Viu
TAINT_get|5.017006||Viu
TAINT_IF|5.003007||Viu
TAINTING_get|5.017006||Viu
TAINTING_set|5.017006||Viu
TAINT_NOT|5.003007||Viu
taint_proper|5.003007|5.003007|u
TAINT_PROPER|5.003007||Viu
TAINT_set|5.017006||Viu
TAINT_WARN_get|5.017006||Viu
TAINT_WARN_set|5.017006||Viu
TARG|5.003007|5.003007|
VTBL_regdatum|5.006000||Viu
VTBL_regexp|5.005003||Viu
VTBL_sigelem|5.005003||Viu
VTBL_substr|5.005003||Viu
VTBL_sv|5.005003||Viu
VTBL_taint|5.005003||Viu
VTBL_uvar|5.005003||Viu
VTBL_vec|5.005003||Viu
vTHX|5.006000||Viu
VT_NATIVE|5.021004||Viu
vtohl|5.003007||Viu
# define PL_stdingv stdingv
# define PL_sv_arenaroot sv_arenaroot
# define PL_sv_no sv_no
# define PL_sv_undef sv_undef
# define PL_sv_yes sv_yes
# define PL_tainted tainted
# define PL_tainting tainting
# define PL_tokenbuf tokenbuf
# define PL_mess_sv mess_sv
/* Replace: 0 */
#endif
#ifndef PERL_MAGIC_sigelem
# define PERL_MAGIC_sigelem 's'
#endif
#ifndef PERL_MAGIC_taint
# define PERL_MAGIC_taint 't'
#endif
#ifndef PERL_MAGIC_uvar
# define PERL_MAGIC_uvar 'U'
#endif
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/misc/L_SU.pm view on Meta::CPAN
## $color_listbox->set_flow_listbox_color_reservation( _get_flow_color() );
## my $reservation_color = $color_listbox->get_flow_listbox_color_reservation( );
#
if ( $L_SU_href->{_is_flow_listbox_grey_w}
&& $color eq 'grey' )
{ # for added certainty
# CASE 3A
# mark the neutral-colored flow as unused
# helps bind flow parameters to the opening files
lib/App/SeismicUnixGui/misc/L_SU.pm view on Meta::CPAN
}
}
elsif ($L_SU_href->{_is_flow_listbox_pink_w}
&& $color eq 'pink' )
{ # for added certainty
# CASE 3B - pink flow box
# mark the neutral-colored flow as unused
# helps bind flow parameters to the opening files
$color_listbox->set_next_available_flow_listbox_color($color);
lib/App/SeismicUnixGui/misc/L_SU.pm view on Meta::CPAN
}
}
elsif ($L_SU_href->{_is_flow_listbox_green_w}
&& $color eq 'green' )
{ # more certainty
# CASE 3C - green flow box
# mark the neutral-colored flow as unused
# helps bind flow parameters to the opening files
$color_listbox->set_next_available_flow_listbox_color($color);
lib/App/SeismicUnixGui/misc/L_SU.pm view on Meta::CPAN
}
}
elsif ($L_SU_href->{_is_flow_listbox_blue_w}
&& $color eq 'blue' )
{ # more certainty
# CASE 3D - blue flow box
# mark the neutral-colored flow as unused
# helps bind flow parameters to the opening files
$color_listbox->set_next_available_flow_listbox_color($color);
App-SimpleBackuper
view release on metacpan or search on metacpan
local/lib/perl5/Module/Implementation.pm view on Meta::CPAN
die "$env_value is not a valid implementation for $package"
unless grep { $_ eq $env_value } @{$implementations};
my $requested = "${package}::$env_value";
# Values from the %ENV hash are tainted. We know it's safe to untaint
# this value because the value was one of our known implementations.
($requested) = $requested =~ /^(.+)$/;
try {
require_module($requested);
App-SocialCalc-Multiplayer
view release on metacpan or search on metacpan
socialcalc/LICENSE.txt view on Meta::CPAN
a URL ("Attribution Information") and is subject to the Attribution Limits as defined below. For
these purposes, prominent shall mean display for sufficient duration to give reasonable notice to
the user of the identity of the Original Developer and that if You include Attribution Information
or similar information for other parties, You must ensure that the Attribution Information for the
Original Developer shall be no less prominent than such Attribution Information or similar
information for the other party. For greater certainty, the Original Developer may choose to
specify in Exhibit B below that the above attribution requirement only applies to an Executable
and Source Code resulting from the Original Code or any Modification, but not a Larger Work. The
intent is to provide for reasonably modest attribution, therefore the Original Developer cannot
require that You display, at any time, more than the following information as Attribution
Information: (a) a copyright notice including the name of the Original Developer; (b) a word or
App-SourcePlot
view release on metacpan or search on metacpan
share/jcmt.cat view on Meta::CPAN
* in the comment line (in K km/s), which largely determine how easy it is to detect a line. Note that JCMT 2-1
* data followed by J are typically low by about a factor of 1.3 - 1.5 (telescope heavily deformed due to conebar
* welding.
*
* 20070717 Notes reflect new positional accuracies : L1 L2 L3 original Loup qualities (<1", 1-5", >5");
* : /H and /T reflect updates by Hipparcos & Tycho (uncertainty of <1")
* 20060530 Notes reflect new positional accuracies : /2M reflect updates by 2MASS (catalog II/246)
*
* 20140910 Modifications based on M13BN01 and M14AN01:
* Vlsr, Tpeak, Vrange derived from HARP CO(3-2) spectra
* Under comments is indicated whether source is good for RxA, HARP, or both: A, H, AH
App-Spoor
view release on metacpan or search on metacpan
lib/App/Spoor/ParsedFileManager.pm view on Meta::CPAN
opendir my $parsed_entries_dir, $config->{parsed_entries_path};
my @file_names = grep { /\A((error|access|login)\.\d+\.\d+\.json)\z/ } readdir $parsed_entries_dir;
foreach my $file_name (@file_names) {
# Untaint
if ($file_name =~ /\A((error|access|login)\.\d+\.\d+\.json)\z/) {
my $sanitised_file_name = $1;
$source_file_path = File::Spec->catfile($config->{parsed_entries_path}, $sanitised_file_name);
if ($file_security_check->($source_file_path)) {
$file_contents = from_json(path($source_file_path)->slurp_utf8());
App-Stacktrace
view release on metacpan or search on metacpan
PERL_MAGIC_shared|5.007003||p
PERL_MAGIC_sigelem|5.007002||p
PERL_MAGIC_sig|5.007002||p
PERL_MAGIC_substr|5.007002||p
PERL_MAGIC_sv|5.007002||p
PERL_MAGIC_taint|5.007002||p
PERL_MAGIC_tiedelem|5.007002||p
PERL_MAGIC_tiedscalar|5.007002||p
PERL_MAGIC_tied|5.007002||p
PERL_MAGIC_utf8|5.008001||p
PERL_MAGIC_uvar_elem|5.007003||p
PL_stdingv|5.004050||p
PL_sv_arenaroot|5.004050||p
PL_sv_no|5.004050||pn
PL_sv_undef|5.004050||pn
PL_sv_yes|5.004050||pn
PL_tainted|5.004050||p
PL_tainting|5.004050||p
PL_tokenbuf|5.011000||p
POP_MULTICALL||5.011000|
POPi|||n
POPl|||n
POPn|||n
docatch|||
doeval|||
dofile|||
dofindlabel|||
doform|||
doing_taint||5.008001|n
dooneliner|||
doopen_pm|||
doparseform|||
dopoptoeval|||
dopoptogiven|||
magic_getnkeys|||
magic_getpack|||
magic_getpos|||
magic_getsig|||
magic_getsubstr|||
magic_gettaint|||
magic_getuvar|||
magic_getvec|||
magic_get|||
magic_killbackrefs|||
magic_len|||
magic_setpack|||
magic_setpos|||
magic_setregexp|||
magic_setsig|||
magic_setsubstr|||
magic_settaint|||
magic_setutf8|||
magic_setuvar|||
magic_setvec|||
magic_set|||
magic_sizepack|||
sv_setsv_mg|5.004050||p
sv_setsv_nomg|5.007002||p
sv_setsv|||
sv_setuv_mg|5.004050||p
sv_setuv|5.004000||p
sv_tainted||5.004000|
sv_taint||5.004000|
sv_true||5.005000|
sv_unglob|||
sv_uni_display||5.007003|
sv_unmagic|||
sv_unref_flags||5.007001|
sv_unref|||
sv_untaint||5.004000|
sv_upgrade|||
sv_usepvn_flags||5.009004|
sv_usepvn_mg|5.004050||p
sv_usepvn|||
sv_utf8_decode||5.006000|
sys_init||5.010000|n
sys_intern_clear|||
sys_intern_dup|||
sys_intern_init|||
sys_term||5.010000|n
taint_env|||
taint_proper|||
tmps_grow||5.006000|
toLOWER|||
toUPPER|||
to_byte_substr|||
to_uni_fold||5.007003|
# define PL_stdingv stdingv
# define PL_sv_arenaroot sv_arenaroot
# define PL_sv_no sv_no
# define PL_sv_undef sv_undef
# define PL_sv_yes sv_yes
# define PL_tainted tainted
# define PL_tainting tainting
# define PL_tokenbuf tokenbuf
/* Replace: 0 */
#endif
/* Warning: PL_parser
#ifndef PERL_MAGIC_sigelem
# define PERL_MAGIC_sigelem 's'
#endif
#ifndef PERL_MAGIC_taint
# define PERL_MAGIC_taint 't'
#endif
#ifndef PERL_MAGIC_uvar
# define PERL_MAGIC_uvar 'U'
#endif
App-Textcast
view release on metacpan or search on metacpan
commit 2ee5c83a360f533cd1ba45f12b5efb6223dd283d
Author: nadim khemir <nkh@cpan.org>
Date: Fri Feb 6 15:17:08 2009 +0100
ADDED: taint mode
commit 0cfc88ef397432ff98535fc5ff29809c143f1f6a
Author: nadim khemir <nkh@cpan.org>
Date: Tue Feb 3 13:09:58 2009 +0100
App-Unix-RPasswd
view release on metacpan or search on metacpan
t/01-RPasswd.t view on Meta::CPAN
#!perl -T
use Test::More tests => 3;
use App::Unix::RPasswd;
if ( $ENV{PATH} =~ /(.+)/ ) { $ENV{PATH} = $1; } # untaint the var
my $rpasswd = App::Unix::RPasswd->new( args => {} );
isa_ok($rpasswd, 'App::Unix::RPasswd');
can_ok( $rpasswd, 'ask_key' );
can_ok( $rpasswd, 'pexec' );
App-VOJournal
view release on metacpan or search on metacpan
lib/App/VOJournal.pm view on Meta::CPAN
}
return sort {$b cmp $a} @files;
};
find({wanted => $wanted,
preprocess => $preprocess,
untaint => 1, # needed when running in taint mode
no_chdir => 1, # we don't need to chdir
},$basedir);
return $last_file;
} # _find_last_file()
App-Wallflower
view release on metacpan or search on metacpan
lib/App/Wallflower.pm view on Meta::CPAN
my $todo = $self->{todo};
my $TODO = $self->{_ipc_dir_}->child('__TODO__');
my $SEEN = $self->{_ipc_dir_}->child('__SEEN__');
return if !-e $TODO;
my $certainty = # this update can be trusted if __TODO__ is the
( stat $TODO )[9] > max( 0, map +(stat)[9] || 0, # most recent
$SEEN, glob $self->{_ipc_dir_}->child('todo-*')); # file of all
# read from the shared todo
open my $fh, '<', $TODO or die "Can't open $TODO: $!";
@$todo = <$fh>;
chomp(@$todo);
return $certainty;
}
sub _next_todo {
my ($self) = @_;
my $seen = $self->{seen};
App-cpanminus-reporter
view release on metacpan or search on metacpan
t/data/build.moose.log view on Meta::CPAN
t/rt-96343.t .......... ok
t/scalarutil-proto.t .. ok
t/shuffle.t ........... ok
t/stack-corruption.t .. ok
t/sum0.t .............. ok
t/tainted.t ........... ok
t/sum.t ............... ok
t/uniq.t .............. ok
t/weak.t .............. ok
t/subname.t ........... ok
All tests successful.
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
# pushd()
#--------------------------------------------------------------------------#
sub pushd {
my ( $target_dir, $options ) = @_;
$options->{untaint_pattern} ||= qr{^([-+@\w./]+)$};
$target_dir = "." unless defined $target_dir;
croak "Can't locate directory $target_dir" unless -d $target_dir;
my $tainted_orig = getcwd;
my $orig;
if ( $tainted_orig =~ $options->{untaint_pattern} ) {
$orig = $1;
}
else {
$orig = $tainted_orig;
}
my $tainted_dest;
eval { $tainted_dest = $target_dir ? abs_path($target_dir) : $orig };
croak "Can't locate absolute path for $target_dir: $@" if $@;
my $dest;
if ( $tainted_dest =~ $options->{untaint_pattern} ) {
$dest = $1;
}
else {
$dest = $tainted_dest;
}
if ( $dest ne $orig ) {
chdir $dest or croak "Can't chdir to $dest\: $!";
}
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
If the target directory does not exist or if the directory change fails
for some reason, C<pushd> will die with an error message.
Can be given a hashref as an optional second argument. The only supported
option is C<untaint_pattern>, which is used to untaint file paths involved.
It defaults to {qr{^(L<-+@\w./>+)$}}, which is reasonably restrictive (e.g.
it does not even allow spaces in the path). Change this to suit your
circumstances and security needs if running under taint mode. *Note*: you
must include the parentheses in the pattern to capture the untainted
portion of the path.
=head2 tempd
{
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
stuff does. It can't. It's only a module import, so it B<only affects the
specific perl VM instance in which you load and import() it>.
If you want to cascade it across invocations, you can set the PERL5OPT
environment variable to '-Mlib::core::only' and it'll sort of work. But be
aware that taint mode ignores this, so some modules' build and test code
probably will as well.
You also need to be aware that perl's command line options are not processed
in order - -I options take effect before -M options, so
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
perl -Mlib::core::only -Mblib
For more information on the impossibility of sanely propagating this across
module builds without help from the build program, see
L<http://www.shadowcat.co.uk/blog/matt-s-trout/tainted-love> - and for ways
to achieve the old --self-contained feature's results, look at
L<App::FatPacker|App::FatPacker>'s tree function, and at
L<App::cpanminus|cpanm>'s --local-lib-contained feature.
=head1 AUTHOR
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
our $_PERL;
sub _cwd {
my $drive = shift;
if (!$_PERL) {
($_PERL) = $^X =~ /(.+)/; # $^X is internal how could it be tainted?!
if (_is_abs($_PERL)) {
}
elsif (-x $Config{perlpath}) {
$_PERL = $Config{perlpath};
}
App-cpantimes
view release on metacpan or search on metacpan
}
$arg_store{path} = $class->resolve_path($arg_store{path});
$class->setup_local_lib_for($arg_store{path});
for (@INC) { # Untaint @INC
next if ref; # Skip entry if it is an ARRAY, CODE, blessed, etc.
m/(.*)/ and $_ = $1;
}
}
App-csv2tsv
view release on metacpan or search on metacpan
--help en : 英文マニュアルを表示ã™ã‚‹
--version : ã“ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³æƒ…å ±ã‚’è¡¨ç¤ºã™ã‚‹ã€‚
開発上ã®ãƒ¡ãƒ¢:
* テストを書ãã¹ã—。
* taintを検出ã™ã¹ã-T を指定ã—ã¦ã„ãŸãŒã€ãƒ˜ãƒ«ãƒ—ã®ãŸã‚ã« perldoc ãŒèµ·å‹•ã§ããªããªã£ãŸã®ã§ã€-tã«ã—ãŸã€‚2021å¹´6月10æ—¥ã€ã•ã‚‰ã«-tも除去。
=cut
App-diceware
view release on metacpan or search on metacpan
share/wordlist_en.tsv view on Meta::CPAN
15315 cement
15316 census
15321 ceramics
15322 ceremony
15323 certainly
15324 certainty
15325 certified
15326 certify
15331 cesarean
15332 cesspool
15333 chafe
share/wordlist_en.tsv view on Meta::CPAN
61563 tactile
61564 tactless
61565 tadpole
61566 taekwondo
61611 tag
61612 tainted
61613 take
61614 taking
61615 talcum
61616 talisman
61621 tall
share/wordlist_en.tsv view on Meta::CPAN
64614 unsubtly
64615 unsuited
64616 unsure
64621 unsworn
64622 untagged
64623 untainted
64624 untaken
64625 untamed
64626 untangled
64631 untapped
64632 untaxed
App-lsplusplus
view release on metacpan or search on metacpan
=over 8
=item @d
Array containting the characters to use for delimiting the columns.
=item @c
Array containing the colors to be used.
App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBI/Const/GetInfoType.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_CONST_GETINFOTYPE';
package DBI::Const::GetInfoType;use strict;use Exporter ();use vars qw(@ISA @EXPORT @EXPORT_OK %GetInfoType);@ISA=qw(Exporter);@EXPORT=qw(%GetInfoType);my$VERSION="0.03";use DBI::Const::GetInfo::ANSI ();use DBI::Const::GetInfo::ODBC ();%GetInfoType...
DBI_CONST_GETINFOTYPE
$fatpacked{"DBI/DBD.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_DBD';
package DBI::DBD;use strict;use vars qw($VERSION);$VERSION="0.03";use Exporter ();use Config qw(%Config);use Carp;use Cwd;use File::Spec;use strict;use vars qw(@ISA @EXPORT $is_dbi);BEGIN {if ($^O eq 'VMS'){require vmsish;import vmsish;require VMS:...
*** You're using Microsoft Visual C++ compiler or similar but
the LIB and INCLUDE environment variables are not both set.
You need to run the VCVARS32.BAT batch file that was supplied
with the compiler before you can use it.
mimi.fatpack view on Meta::CPAN
$fatpacked{"Test/Fatal.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_FATAL';
use strict;use warnings;package Test::Fatal;$Test::Fatal::VERSION='0.03';use Carp ();use Try::Tiny 0.07;use Exporter 5.57 'import';our@EXPORT=qw(exception);our@EXPORT_OK=qw(exception success dies_ok lives_ok);our ($REAL_TBL,$REAL_CALCULATED_TBL)=(1...
TEST_FATAL
$fatpacked{"Test/TempDir/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_TEMPDIR_TINY';
use 5.006002;use strict;use warnings;package Test::TempDir::Tiny;our$VERSION='0.03';use Exporter 5.57 qw/import/;our@EXPORT=qw/tempdir in_tempdir/;use Carp qw/confess/;use Cwd qw/abs_path/;use Errno qw/EEXIST ENOENT/;{no warnings 'numeric';use File...
TEST_TEMPDIR_TINY
$fatpacked{"Try/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TRY_TINY';
package Try::Tiny;use 5.006;our$VERSION='0.03';use strict;use warnings;use Exporter 5.57 'import';our@EXPORT=our@EXPORT_OK=qw(try catch finally);use Carp;$Carp::Internal{+__PACKAGE__}++;BEGIN {my$su=$INC{'Sub/Util.pm'}&& defined&Sub::Util::set_subn...
TRY_TINY
App-mirai
view release on metacpan or search on metacpan
lib/App/mirai.pm view on Meta::CPAN
# Everything after this point should happen at
# runtime only. That includes use/BEGIN/CHECK/INIT.
# use XYZ; will cause the module to be loaded in
# the child process, and it'd be nice to avoid that
# to keep the code-under-test as untainted as possible.
my ($child_pid);
# These are named for the entity doing the action, i.e.
# parent_write means parent will be doing the writing,
( run in 0.544 second using v1.01-cache-2.11-cpan-d6f9594c0a5 )