Result:
found 771 distributions and 1902 files matching your query !
( run in 2.043 )
CPAN-Testers-WWW-Blog
view release on metacpan or search on metacpan
vhost/cgi-bin/config/settings.ini view on Meta::CPAN
blog.cpantesters.org=CPAN Testers Blog
deps.cpantesters.org=CPAN Dependencies
pass.cpantesters.org=CPAN Testers PASS Matrix
wiki.cpantesters.org=CPAN Testers Wiki
devel.cpantesters.org=CPAN Testers Development
prefs.cpantesters.org=CPAN Testers Preferences
stats.cpantesters.org=CPAN Testers Statistics
matrix.cpantesters.org=CPAN Testers Matrix
metabase.cpantesters.org=CPAN Testers Metabase
analysis.cpantesters.org=CPAN Testers Analysis
dagolden.com=External Site: David Golden's Blog
CPAN-Testers-WWW-Development
view release on metacpan or search on metacpan
templates/box-sites.html view on Meta::CPAN
<li class="purple" ><a href="http://blog.cpantesters.org" title="CPAN Testers Blog" >Blog</a></li>
<li class="orange" ><a href="http://www.cpantesters.org" title="CPAN Testers Reports" >Reports</a></li>
<li class="violet" ><a href="http://wiki.cpantesters.org" title="CPAN Testers Wiki" >Wiki</a></li>
<li class="blue" ><a href="http://stats.cpantesters.org" title="CPAN Testers Statistics" >Statistics</a></li>
<li class="yellow" ><a href="http://pass.cpantesters.org" title="CPAN Testers PASS Matrix">PASS Matrix</a></li>
<li class="green" ><a href="http://prefs.cpantesters.org" title="CPAN Testers Preferences">Preferences</a></li>
<li class="cornblue"><a href="http://metabase.cpantesters.org" title="CPAN Testers Metabase" >Metabase</a></li>
<li class="cyan" ><a href="http://devel.cpantesters.org" title="CPAN Testers Development">Development</a></li>
<li class="brown" ><a href="http://deps.cpantesters.org" title="CPAN Dependencies" >CPAN Deps</a></li>
<li class="grey" ><a href="http://matrix.cpantesters.org" title="CPAN Testers Matrix" >CPAN Matrix</a></li>
<li class="teal" ><a href="http://analysis.cpantesters.org" title="CPAN Testers Analysis" >Analysis</a></li>
CPAN-Testers-WWW-Preferences
view release on metacpan or search on metacpan
lib/CPAN/Testers/WWW/Preferences.pm view on Meta::CPAN
=head1 SEE ALSO
L<Labyrinth>,
L<https://prefs.cpantesters.org>
=head1 AUTHOR
Barbie, <barbie@missbarbell.co.uk> for
Miss Barbell Productions, L<http://www.missbarbell.co.uk/>
CPAN-Testers-WWW-Reports-Mailer
view release on metacpan or search on metacpan
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
our %phrasebook = (
'LastReport' => "SELECT MAX(id) FROM cpanstats.cpanstats",
'GetEarliest' => "SELECT id FROM cpanstats.cpanstats WHERE fulldate > ? ORDER BY id LIMIT 1",
'FindAuthorType' => "SELECT pauseid FROM prefs_distributions WHERE report = ?",
'GetReports' => "SELECT id,guid,dist,version,platform,perl,state FROM cpanstats.cpanstats WHERE id > ? AND state IN ('pass','fail','na','unknown') ORDER BY id",
'GetReports2' => "SELECT c.id,c.guid,c.dist,c.version,c.platform,c.perl,c.state FROM cpanstats.cpanstats AS c INNER JOIN cpanstats.ixlatest AS x ON x.dist=c.dist WHERE c.id > ? AND c.state IN ('pass','fail','na','unknown') AND author IN (%s...
'GetReportCount' => "SELECT id FROM cpanstats.cpanstats WHERE platform=? AND perl=? AND state=? AND id < ? AND dist=? AND version=? LIMIT 2",
'GetLatestDistVers' => "SELECT version FROM cpanstats.uploads WHERE dist=? ORDER BY released DESC LIMIT 1",
'GetAuthor' => "SELECT author FROM cpanstats.uploads WHERE dist=? AND version=? LIMIT 1",
'GetAuthors' => "SELECT author,dist,version FROM cpanstats.uploads",
'GetAuthorPrefs' => "SELECT * FROM prefs_authors WHERE pauseid=?",
'GetDefaultPrefs' => "SELECT * FROM prefs_authors AS a INNER JOIN prefs_distributions AS d ON d.pauseid=a.pauseid AND d.distribution='-' WHERE a.pauseid=?",
'GetDistPrefs' => "SELECT * FROM prefs_distributions WHERE pauseid=? AND distribution=?",
'InsertAuthorLogin' => 'INSERT INTO prefs_authors (active,lastlogin,pauseid) VALUES (1,?,?)',
'InsertDistPrefs' => "INSERT INTO prefs_distributions (pauseid,distribution,ignored,report,grade,tuple,version,patches,perl,platform) VALUES (?,?,0,1,'FAIL','FIRST','LATEST',0,'ALL','ALL')",
'GetArticle' => "SELECT * FROM articles.articles WHERE id=?",
'GetReportTest' => "SELECT id,guid,dist,version,platform,perl,state FROM cpanstats.cpanstats WHERE id = ? AND state IN ('pass','fail','na','unknown') ORDER BY id",
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
$row->{version} ||= '';
$row->{platform} ||= '';
$row->{perl} ||= '';
# get author preferences
my $prefs = $self->_get_prefs($author) || next;
# do we need to worry about this author?
if($prefs->{active} == 2) {
$self->{counts}{NOMAIL}++;
$self->_log( "DEBUG: author: $author - not active\n" ) if($self->verbose);
next;
}
# get distribution preferences
$prefs = $self->_get_prefs($author, $row->{dist});
$self->_log( "DEBUG: dist prefs: " .($prefs ? 'Found' : 'Not Found')."\n" ) if($self->verbose);
next unless($prefs);
$self->_log( "DEBUG: dist prefs: ignored=" .($prefs->{ignored} || 0)."\n" ) if($self->verbose);
next if($prefs->{ignored});
$self->_log( "DEBUG: dist prefs: report=$prefs->{report}, report type=$report_type\n" ) if($self->verbose);
next if($prefs->{report} != $report_type);
$self->_log( "DEBUG: dist prefs: $row->{state}=" .($prefs->{grades}{$row->{state}}||'undef')."\n" ) if($self->verbose);
$self->_log( "DEBUG: dist prefs: ALL=" .($prefs->{grades}{ALL}||'undef')."\n" ) if($self->verbose);
next unless($prefs->{grades}{$row->{state}} || $prefs->{grades}{'ALL'});
$self->_log( "DEBUG: dist prefs: CONTINUE\n" ) if($self->verbose);
# Check whether distribution version is required.
# If version set to 'LATEST' check this is the current version, if set
# to 'ALL' then we should allow EVERYTHING through, otherwise filter
# on the requested versions.
if($row->{version} && $prefs->{version} && $prefs->{version} ne 'ALL') {
if($prefs->{version} eq 'LATEST') {
my @vers = $self->{CPANPREFS}->get_query('array',$phrasebook{'GetLatestDistVers'},$row->{dist});
$self->_log( "DEBUG: dist prefs: vers=".(scalar(@vers))."\n" ) if($self->verbose);
$self->_log( "DEBUG: dist prefs: version=$vers[0]->[0], $row->{version}\n" ) if($self->verbose);
next if(@vers && $vers[0]->[0] ne $row->{version});
} else {
$prefs->{version} =~ s/\s*//g;
my %m = map {$_ => 1} split(',',$prefs->{version});
$self->_log( "DEBUG: dist prefs: $row->{version}\n" ) if($self->verbose);
next unless($m{$row->{version}});
}
}
# Check whether this platform is required.
if($row->{platform} && $prefs->{platform} && $prefs->{platform} ne 'ALL') {
$prefs->{platform} =~ s/\s*//g;
$prefs->{platform} =~ s/,/|/g;
$prefs->{platform} =~ s/\./\\./g;
$prefs->{platform} =~ s/^(\w+)\|//;
if($1 && $1 eq 'NOT') {
$self->_log( "DEBUG: dist prefs: $row->{platform}, =~ $prefs->{platform}\n" ) if($self->verbose);
next if($row->{platform} =~ /$prefs->{platform}/);
} else {
$self->_log( "DEBUG: dist prefs: $row->{platform}, !~ $prefs->{platform}\n" ) if($self->verbose);
next if($row->{platform} !~ /$prefs->{platform}/);
}
}
# Check whether this perl version is required.
if($row->{perl} && $prefs->{perl} && $prefs->{perl} ne 'ALL') {
my $perlv = $row->{perl};
$perlv = $row->{perl};
$perlv =~ s/\s.*//;
$prefs->{perl} =~ s/\s*//g;
$prefs->{perl} =~ s/,/|/g;
$prefs->{perl} =~ s/\./\\./g;
my $v = version->new("$perlv")->numify;
$prefs->{platform} =~ s/^(\w+)\|//;
if($1 && $1 eq 'NOT') {
$self->_log( "DEBUG: dist prefs: $perlv || $v =~ $prefs->{perl}\n" ) if($self->verbose);
next if($perlv =~ /$prefs->{perl}/ && $v =~ /$prefs->{perl}/);
} else {
$self->_log( "DEBUG: dist prefs: $perlv || $v !~ $prefs->{perl}\n" ) if($self->verbose);
next if($perlv !~ /$prefs->{perl}/ && $v !~ /$prefs->{perl}/);
}
}
# Check whether patches are required.
$self->_log( "DEBUG: dist prefs: patches=$prefs->{patches}, row perl $row->{perl}\n" ) if($self->verbose);
next if(!$prefs->{patches} && $row->{perl} =~ /(RC\d+|patch)/);
# check whether only first instance required
if($prefs->{tuple} eq 'FIRST') {
my @count = $self->{CPANPREFS}->get_query('array',$phrasebook{'GetReportCount'},
$row->{platform}, $row->{perl}, $row->{state}, $row->{id}, $row->{dist}, $row->{version});
$self->_log( "DEBUG: dist prefs: tuple=FIRST, count=".(scalar(@count))."\n" ) if($self->verbose);
next if(@count > 0);
}
$self->_log( "DEBUG: report is being added to mailshot\n" ) if($self->verbose);
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
$tvars{name} = $pause ? $pause->name : $author;
$tvars{author} = $author;
$tvars{dists} = ();
# get author preferences
my $prefs = $self->_get_prefs($author);
# active:
# 0 - new author, no correspondance
# 1 - new author, notification mailed
# 2 - author requested no mail
# 3 - author requested summary report
if(!$prefs->{active} || $prefs->{active} == 0) {
$tvars{subject} = 'Welcome to CPAN Testers';
$self->_write_mail('notification.eml',\%tvars);
$self->{counts}{NEWAUTH}++;
# insert author defaults, however check that they don't already
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
my @report = $self->{CPANPREFS}->get_query('array',$phrasebook{'GetEarliest'}, $fulldate);
return 0 unless(@report);
return $report[0]->[0] || 0;
}
sub _get_prefs {
my $self = shift;
my ($author,$dist) = @_;
my $active = 0;
return unless($author);
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
return $PREFS{$author}{dists}{$dist};
}
my @rows = $self->{CPANPREFS}->get_query('hash',$phrasebook{'GetDistPrefs'}, $author,$dist);
if(@rows) {
$PREFS{$author}{dists}{$dist} = $self->_parse_prefs($rows[0]);
return $PREFS{$author}{dists}{$dist};
}
# fall through and assume author defaults
}
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
if(@auth) {
$PREFS{$author}{default}{active} = $auth[0]->{active} || 0;
my @rows = $self->{CPANPREFS}->get_query('hash',$phrasebook{'GetDefaultPrefs'}, $author);
if(@rows) {
$PREFS{$author}{default} = $self->_parse_prefs($rows[0]);
$PREFS{$author}{default}{active} = $rows[0]->{active} || 0;
return $PREFS{$author}{default};
} else {
$self->{CPANPREFS}->do_query($phrasebook{'InsertDistPrefs'}, $author, '-');
$active = $PREFS{$author}{default}{active};
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
}
$dist ||= '-';
# use global defaults
my %prefs = (
active => $active,
ignored => 0,
report => 1,
grades => {'FAIL' => 1},
tuple => 'FIRST',
version => 'LATEST',
patches => 0,
perl => 'ALL',
platform => 'ALL',
);
$PREFS{$author}{dists}{$dist} = \%prefs;
return \%prefs;
}
sub _parse_prefs {
my ($self,$row) = @_;
my %hash;
$row->{grade} ||= 'FAIL';
my %grades = map {$_ => 1} split(',',$row->{grade});
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
=item * _get_author
Returns the author of a given distribution/version.
=item * _get_prefs
Returns the author preferences.
=item * _parse_prefs
Parse a preferences record and returns a hash instance.
=item * _send_report
lib/CPAN/Testers/WWW/Reports/Mailer.pm view on Meta::CPAN
=head1 SEE ALSO
L<CPAN::Testers::Data::Generator>
L<CPAN::Testers::WWW::Statistics>
F<http://prefs.cpantesters.org/>,
F<http://www.cpantesters.org/>,
F<http://stats.cpantesters.org/>,
F<http://wiki.cpantesters.org/>,
F<http://blog.cpantesters.org/>
CPAN-Testers-WWW-Reports
view release on metacpan or search on metacpan
vhost/cgi-bin/templates/cpan/distro-reports-static.html
vhost/cgi-bin/templates/cpan/distro-stats-table.html
vhost/cgi-bin/templates/cpan/distro-unknown.html
vhost/cgi-bin/templates/cpan/layout-static.html
vhost/cgi-bin/templates/cpan/layout-stats-static.html
vhost/cgi-bin/templates/cpan/prefs.html
vhost/cgi-bin/templates/cpan/recent.html
vhost/cgi-bin/templates/cpan/report-view.html
vhost/cgi-bin/templates/cpan/stats-distro-index.html
vhost/cgi-bin/templates/cpan/stats-distro-static.html
vhost/cgi-bin/templates/cpan/stats-index.html
vhost/cgi-bin/templates/public/baduser.html
vhost/cgi-bin/templates/public/banuser.html
vhost/cgi-bin/templates/public/blank.html
vhost/cgi-bin/templates/public/box-help.html
vhost/cgi-bin/templates/public/box-menu.html
vhost/cgi-bin/templates/public/box-prefs.html
vhost/cgi-bin/templates/public/box-sites.html
vhost/cgi-bin/templates/public/box-summary.html
vhost/cgi-bin/templates/public/error_message.html
vhost/cgi-bin/templates/public/footer.html
vhost/cgi-bin/templates/public/ie-warning.html
CPAN-Testers-WWW-Statistics-Excel
view release on metacpan or search on metacpan
t/samples/osmatrix-month-wide.html view on Meta::CPAN
<a href="http://blog.cpantesters.org" title="CPAN Testers Blog" >Blog</a> •
<a href="http://www.cpantesters.org" title="CPAN Testers Reports" >Reports</a> •
<a href="http://wiki.cpantesters.org" title="CPAN Testers Wiki" >Wiki</a> •
<a href="http://stats.cpantesters.org" title="CPAN Testers Statistics" >Statistics</a> •
<a href="http://pass.cpantesters.org" title="CPAN Testers PASS Matrix">PASS Matrix</a> •
<a href="http://prefs.cpantesters.org" title="CPAN Testers Preferences">Preferences</a> •
<a href="http://metabase.cpantesters.org" title="CPAN Testers Metabase" >Metabase</a> •
<a href="http://devel.cpantesters.org" title="CPAN Testers Development">Development</a> •
<a href="http://deps.cpantesters.org" title="CPAN Dependencies" >Dependencies</a> •
<a href="http://matrix.cpantesters.org" title="CPAN Testers Matrix" >Matrix</a> •
<a href="http://analysis.cpantesters.org" title="CPAN Testers Analysis" >Analysis</a>
CPAN-Testers-WWW-Statistics
view release on metacpan or search on metacpan
templates/cgi-bin/uploads.html view on Meta::CPAN
<li class="purple" ><a href="http://blog.cpantesters.org" title="CPAN Testers Blog" >Blog</a></li>
<li class="orange" ><a href="http://www.cpantesters.org" title="CPAN Testers Reports" >Reports</a></li>
<li class="violet" ><a href="http://wiki.cpantesters.org" title="CPAN Testers Wiki" >Wiki</a></li>
<li class="blue" ><a href="http://stats.cpantesters.org" title="CPAN Testers Statistics" >Statistics</a></li>
<li class="yellow" ><a href="http://pass.cpantesters.org" title="CPAN Testers PASS Matrix">PASS Matrix</a></li>
<li class="green" ><a href="http://prefs.cpantesters.org" title="CPAN Testers Preferences">Preferences</a></li>
<li class="cornblue"><a href="http://metabase.cpantesters.org" title="CPAN Testers Metabase" >Metabase</a></li>
<li class="cyan" ><a href="http://devel.cpantesters.org" title="CPAN Testers Development">Development</a></li>
<li class="brown" ><a href="http://deps.cpantesters.org" title="CPAN Dependencies" >CPAN Deps</a></li>
<li class="grey" ><a href="http://matrix.cpantesters.org" title="CPAN Testers Matrix" >CPAN Matrix</a></li>
<li class="teal" ><a href="http://analysis.cpantesters.org" title="CPAN Testers Analysis" >Analysis</a></li>
templates/cgi-bin/uploads.html view on Meta::CPAN
<a href="http://blog.cpantesters.org" title="CPAN Testers Blog" >Blog</a> •
<a href="http://www.cpantesters.org" title="CPAN Testers Reports" >Reports</a> •
<a href="http://wiki.cpantesters.org" title="CPAN Testers Wiki" >Wiki</a> •
<a href="http://stats.cpantesters.org" title="CPAN Testers Statistics" >Statistics</a> •
<a href="http://pass.cpantesters.org" title="CPAN Testers PASS Matrix">PASS Matrix</a> •
<a href="http://prefs.cpantesters.org" title="CPAN Testers Preferences">Preferences</a> •
<a href="http://metabase.cpantesters.org" title="CPAN Testers Metabase" >Metabase</a> •
<a href="http://devel.cpantesters.org" title="CPAN Testers Development">Development</a> •
<a href="http://deps.cpantesters.org" title="CPAN Dependencies" >Dependencies</a> •
<a href="http://matrix.cpantesters.org" title="CPAN Testers Matrix" >Matrix</a> •
<a href="http://analysis.cpantesters.org" title="CPAN Testers Analysis" >Analysis</a>
CPAN-Testers-WWW-Wiki
view release on metacpan or search on metacpan
vhost/cgi-bin/templates/public/box-sites.html view on Meta::CPAN
<li class="purple" ><a href="http://blog.cpantesters.org" title="CPAN Testers Blog" >Blog</a></li>
<li class="orange" ><a href="http://www.cpantesters.org" title="CPAN Testers Reports" >Reports</a></li>
<li class="violet" ><a href="http://wiki.cpantesters.org" title="CPAN Testers Wiki" >Wiki</a></li>
<li class="blue" ><a href="http://stats.cpantesters.org" title="CPAN Testers Statistics" >Statistics</a></li>
<li class="yellow" ><a href="http://pass.cpantesters.org" title="CPAN Testers PASS Matrix">PASS Matrix</a></li>
<li class="green" ><a href="http://prefs.cpantesters.org" title="CPAN Testers Preferences">Preferences</a></li>
<li class="cornblue"><a href="http://metabase.cpantesters.org" title="CPAN Testers Metabase" >Metabase</a></li>
<li class="cyan" ><a href="http://devel.cpantesters.org" title="CPAN Testers Development">Development</a></li>
<li class="brown" ><a href="http://deps.cpantesters.org" title="CPAN Dependencies" >CPAN Deps</a></li>
<li class="grey" ><a href="http://matrix.cpantesters.org" title="CPAN Testers Matrix" >CPAN Matrix</a></li>
<li class="teal" ><a href="http://analysis.cpantesters.org" title="CPAN Testers Analysis" >Analysis</a></li>
CPANPLUS-Shell-Wx
view release on metacpan or search on metacpan
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
use Data::Dumper;
use Wx::XRC;
use Cwd;
use CPANPLUS::Shell::Wx::util;
#use CPANPLUS::Shell::Wx::prefsCheck;
use Wx::Event qw(EVT_CHECKBOX EVT_WINDOW_CREATE);
use Wx::Locale gettext => '_T';
BEGIN {
use vars qw( @ISA $VERSION );
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = $class->SUPER::new(); # create an 'empty' Frame object
EVT_WINDOW_CREATE( $self, $self, \&OnCreate );
$self->{cpan} = Wx::Window::FindWindowByName('prefs_window')->{cpan};
$self->{config} = $self->{cpan}->configure_object();
#This is need because, for some unknown reason, OnCreate()
# is being called 3 times
$self->{'has_inited'} = 0;
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = $class->SUPER::new(); # create an 'empty' Frame object
EVT_SPINCTRL( $self, $self, \&OnSpin );
EVT_WINDOW_CREATE( $self, $self, \&OnCreate );
$self->{config} = Wx::Window::FindWindowByName('prefs_window')->{config};
return $self;
}
#this is called after new()
sub OnCreate {
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = $class->SUPER::new(); # create an 'empty' Frame object
EVT_CHECKBOX( $self, $self, \&OnToggle );
EVT_WINDOW_CREATE( $self, $self, \&OnCreate );
$self->{config} = Wx::Window::FindWindowByName('prefs_window')->{config};
return $self;
}
#this is called after new()
sub OnCreate {
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = $class->SUPER::new(); # create an 'empty' Frame object
EVT_WINDOW_CREATE( $self, $self, \&OnCreate );
$self->{config} = Wx::Window::FindWindowByName('prefs_window')->{config};
return $self;
}
#this is called after new()
sub OnCreate {
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = $class->SUPER::new(); # create an 'empty' Frame object
EVT_KILL_FOCUS( $self, \&OnBlur );
EVT_WINDOW_CREATE( $self, $self, \&OnCreate );
$self->{config} = Wx::Window::FindWindowByName('prefs_window')->{config};
return $self;
}
#this is called after new()
sub OnCreate {
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = $class->SUPER::new(); # create an 'empty' Frame object
EVT_WINDOW_CREATE( $self, $self, \&OnCreate );
$self->{cpan} = Wx::Window::FindWindowByName('prefs_window')->{cpan};
$self->{config} = $self->{cpan}->configure_object();
#This is need because, for some unknown reason, OnCreate()
# is being called 3 times
$self->{'has_inited'} = 0;
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = $class->SUPER::new(); # create an 'empty' Frame object
EVT_WINDOW_CREATE( $self, $self, \&OnCreate );
$self->{cpan} = Wx::Window::FindWindowByName('prefs_window')->{cpan};
$self->{config} = $self->{cpan}->{config};
return $self;
}
sub OnCreate {
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
$self->{cpan} = $self->{conflist}->{cpan};
$self->{liblist} = Wx::Window::FindWindowByName('conf_lib');
EVT_BUTTON( $self, $self, \&OnAdd ) if ( $name eq 'AddHost' );
EVT_BUTTON( $self, $self, \&OnRemove ) if ( $name eq 'RemoveHost' );
EVT_BUTTON( $self, $self, \&OnPrefsCancel ) if ( $name eq 'prefs_cancel' );
EVT_BUTTON( $self, $self, \&OnPrefsSave ) if ( $name eq 'prefs_save' );
EVT_BUTTON( $self, $self, \&OnAddLib ) if ( $name eq 'AddLib' );
EVT_BUTTON( $self, $self, \&OnRemoveLib ) if ( $name eq 'RemoveLib' );
EVT_BUTTON( $self, $self, \&OnSelectFile ) if ( $name =~ /^selectFile_/ );
EVT_BUTTON( $self, $self, \&OnSelectDir ) if ( $name =~ /^selectDir_/ );
lib/CPANPLUS/Shell/Wx/Configure.pm view on Meta::CPAN
sub OnPrefsCancel {
my $self = shift;
my ($event) = @_;
# $self->{config}->init();
my $prefsWin=Wx::Window::FindWindowByName('prefs_window');
#replace config object with a stored copy
$prefsWin->{config}->conf($prefsWin->{old_conf});
$prefsWin->Destroy();
}
sub OnPrefsSave {
my $self = shift;
my ($event) = @_;
Wx::LogMessage("Saving Prefs...");
my $prefsWin=Wx::Window::FindWindowByName('prefs_window');
my $thisConfig = $prefsWin->{config};
Wx::Window::FindWindowByName('main_window')->{config} = $thisConfig;
if ( $thisConfig->can_save() ) {
$thisConfig->save();
Wx::LogMessage(_T("Preferences Saved!"));
} else {
Wx::MessageBox( _T('Sorry! I cannot save your file!'),
_T('Save Failed'), wxOK | wxICON_INFORMATION, $self );
return;
}
$prefsWin->Destroy();
}
#some code in this function is taken from CPANPLUS::Configure::Setup.
sub OnAdd {
my $self = shift;
CPANPLUS
view release on metacpan or search on metacpan
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CGI::Fast' => '1.07',
'CGI::Util' => '1.5_01',
'CPAN' => '1.9301',
'CPAN::Debug' => '5.5',
'CPAN::DeferedCode' => '5.50',
'CPAN::Distroprefs' => '6',
'CPAN::FirstTime' => '5.5_01',
'CPAN::HandleConfig' => '5.5',
'CPAN::Kwalify' => '5.50',
'CPAN::Nox' => '5.50',
'CPAN::Queue' => '5.5',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.93',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5001',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'B::Deparse' => '1.26',
'CPAN' => '2.04',
'CPAN::Bundle' => '5.5001',
'CPAN::Complete' => '5.5001',
'CPAN::Distribution' => '2.01',
'CPAN::Distroprefs' => '6.0001',
'CPAN::FirstTime' => '5.5305',
'CPAN::Meta' => '2.140640',
'CPAN::Meta::Converter' => '2.140640',
'CPAN::Meta::Feature' => '2.140640',
'CPAN::Meta::History' => '2.140640',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => 'cpan',
'CPAN::Complete' => 'cpan',
'CPAN::Debug' => 'cpan',
'CPAN::DeferredCode' => 'cpan',
'CPAN::Distribution' => 'cpan',
'CPAN::Distroprefs' => 'cpan',
'CPAN::Distrostatus' => 'cpan',
'CPAN::Exception::RecursiveDependency'=> 'cpan',
'CPAN::Exception::blocked_urllist'=> 'cpan',
'CPAN::Exception::yaml_not_installed'=> 'cpan',
'CPAN::Exception::yaml_process_error'=> 'cpan',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => undef,
'CPAN::Complete' => undef,
'CPAN::Debug' => undef,
'CPAN::DeferredCode' => undef,
'CPAN::Distribution' => undef,
'CPAN::Distroprefs' => undef,
'CPAN::Distrostatus' => undef,
'CPAN::Exception::RecursiveDependency'=> undef,
'CPAN::Exception::blocked_urllist'=> undef,
'CPAN::Exception::yaml_not_installed'=> undef,
'CPAN::Exception::yaml_process_error'=> undef,
CPANSA-DB
view release on metacpan or search on metacpan
lib/CPAN/Audit/DB.pm view on Meta::CPAN
use warnings;
our $VERSION = '20260524.001';
sub db {
{"dists" => {"ActivePerl" => {"advisories" => [{"affected_versions" => ["==5.16.1.1601"],"cves" => ["CVE-2012-5377"],"description" => "Untrusted search path vulnerability in the installation functionality in ActivePerl 5.16.1.1601, when installed in...
}
__PACKAGE__;
CPP-catch-test
view release on metacpan or search on metacpan
src/catch.hpp view on Meta::CPAN
: m_legacyReporter( legacyReporter )
{}
LegacyReporterAdapter::~LegacyReporterAdapter() {}
ReporterPreferences LegacyReporterAdapter::getPreferences() const {
ReporterPreferences prefs;
prefs.shouldRedirectStdOut = m_legacyReporter->shouldRedirectStdout();
return prefs;
}
void LegacyReporterAdapter::noMatchingTestCases( std::string const& ) {}
void LegacyReporterAdapter::testRunStarting( TestRunInfo const& ) {
m_legacyReporter->StartTesting();
src/catch.hpp view on Meta::CPAN
static std::string getDescription() {
return "Reports test results on a single line, suitable for IDEs";
}
virtual ReporterPreferences getPreferences() const {
ReporterPreferences prefs;
prefs.shouldRedirectStdOut = false;
return prefs;
}
virtual void noMatchingTestCases( std::string const& spec ) {
stream << "No test cases matched '" << spec << '\'' << std::endl;
}
CSS-Croco
view release on metacpan or search on metacpan
t/data/main.css view on Meta::CPAN
border: 1px solid #aaa;
clear: both;
padding: 1.5em;
background-color: #F9F9F9;
}
.prefsection {
border: none;
padding: 0;
margin: 0;
}
.prefsection legend {
font-weight: bold;
}
.prefsection table, .prefsection legend {
background-color: #F9F9F9;
}
.mainLegend {
display: none;
}
Cache-Ehcache
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Cache-Isolator
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Cache-Memcached-Fast-Logger
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Catalyst-Plugin-I18N-PathPrefix
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Catalyst-Plugin-I18N-PathPrefixGeoIP
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Catalyst-Plugin-RequireSSL
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Catalyst-Plugin-SpecialAction-Trail
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Catalyst-TraitFor-Model-DBIC-Schema-QueryLog-AdoptPlack
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Catalyst-View-XML-Feed
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
CatalystX-CRUD-YUI
view release on metacpan or search on metacpan
Then use it in autocomplete_field.tt
- tweeks to results livegrid size
- textarea fields use <pre>+autowrap+htmlescape unless they have HTML
markup in them.
- click on related_field_link always defaults to 'view' regardless of
can_write. may be overridden with c.session.prefs.default_crud_action
- add html_escape feature to Serializer
- support dot notation for field_methods that chain related objects
together.
- skip ManyToOne and OneToOne rels in filter_relationships.tt since we
assume those are handled by related_field_link.tt
show_relationships.tt
- allow for explicit sort direction in initial datatable sort
0.006 26 Sept 2008
- clarify debugging statement in Controller->end
- allow for per-session prefs
- make tab label different than viewable label
- pass tabindex to autocomplete field maker
- bump default yui version and set default var types if not using
tt_config.tt
CatalystX-Declare
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
CatalystX-ListFramework
view release on metacpan or search on metacpan
t/lib/TestApp/Controller/Root.pm view on Meta::CPAN
if ($kind eq 'album') {
my $fb2 = CatalystX::ListFramework->new('track', $c);
$fb2->stash_listing('default', 'myprefix', {'me.fromalbum' => [{'=' => $id}]});
# $c->stash->{add_to_create} = $id;
# In one project, we used this to make the create-new userprefs_* link /create/userprefs*/userid so that
# the newly created thing would be associated with the user we were looking at (&create() took an extra arg).
# So, TODO We need a proper way of telling the /create form to set 'fromalbum' to the album we're editing.
$c->stash->{"myprefixoptions"}->{deletable} = 1;
}
CatalystX-Test-Recorder
view release on metacpan or search on metacpan
lib/CatalystX/Test/Recorder.pm view on Meta::CPAN
Sets the namespace under which the start and stop actions are located. Defaults to C<recorder>.
=head2 skip
This is an arrayref of regexprefs. Requests, whose path matches on of these regexes, will not be recorded.
Defaults to C<qr/^static\//, qr/^favicon.ico/>.
=head2 template
Specify the path to a L<Template::Alloy> (TT dialect) file which is used to render the test.
CatalystX-VirtualComponents
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Chart-Timecard
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Chrome-Util-Profile
view release on metacpan or search on metacpan
lib/Chrome/Util/Profile.pm view on Meta::CPAN
my $resmeta = {};
local $CWD = $chrome_dir;
DIR:
for my $dir (glob "*") {
next unless -d $dir;
my $prefs_path = "$dir/Preferences";
next unless -f $prefs_path;
my $prefs = JSON::MaybeXS::decode_json(
File::Slurper::read_binary $prefs_path);
my $profile_name = $prefs->{profile}{name};
defined $profile_name && length $profile_name or do {
log_warn "Profile in $prefs_path does not have profile/name, skipped";
next DIR;
};
push @rows, {
path => "$chrome_dir/$dir",
dir => $dir,
name => $profile_name,
};
$resmeta->{'func.raw_prefs'}{$profile_name} = $prefs;
}
unless ($args{detail}) {
@rows = map { $_->{name} } @rows;
}
Class-DBI-AsXML
view release on metacpan or search on metacpan
lib/Class/DBI/AsXML.pm view on Meta::CPAN
use Class::DBI::AsXML;
__PACKAGE__->to_xml_columns([qw[username email zip_code]]);
# Elsewhere...
my $user = MyApp::User->retrieve(shift);
my $user_and_prefs_xml = $user->to_xml(depth => 1);
# Or... override defaults
my $uname_pwd_xml = $user->to_xml( columns => {
ref($user) => [qw[username password]],
});
( run in 2.043 seconds using v1.01-cache-2.11-cpan-0bb4e1dffa6 )