view release on metacpan or search on metacpan
themes/bs2/static/css/bootstrap-responsive.css view on Meta::CPAN
margin-left: 34.18803418803419%;
*margin-left: 34.081651209310785%;
}
.row-fluid .offset3 {
margin-left: 28.205128205128204%;
*margin-left: 28.0987452264048%;
}
.row-fluid .offset3:first-child {
margin-left: 25.641025641025642%;
*margin-left: 25.53464266230224%;
}
view release on metacpan or search on metacpan
xt/author/distmeta.t
xt/author/eol.t
xt/author/minimum-version.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-no404s.t
xt/author/pod-syntax.t
xt/author/portability.t
xt/release/consistent-version.t
xt/release/cpan-changes.t
view release on metacpan or search on metacpan
lib/App/ColorNamer.pm view on Meta::CPAN
['1A1A68', 'Lucky Point'],
['1AB385', 'Mountain Meadow'],
['1B0245', 'Tolopea'],
['1B1035', 'Haiti'],
['1B127B', 'Deep Koamaru'],
['1B1404', 'Acadia'],
['1B2F11', 'Seaweed'],
['1B3162', 'Biscay'],
['1B659D', 'Matisse'],
['1C1208', 'Crowshead'],
['1C1E13', 'Rangoon Green'],
lib/App/ColorNamer.pm view on Meta::CPAN
['45B1E8', 'Picton Blue'],
['460B41', 'Loulou'],
['462425', 'Crater Brown'],
['465945', 'Gray Asparagus'],
['4682B4', 'Steel Blue'],
['480404', 'Rustic Red'],
['480607', 'Bulgarian Rose'],
['480656', 'Clairvoyant'],
['481C1C', 'Cocoa Bean'],
['483131', 'Woody Brown'],
['483C32', 'Taupe'],
lib/App/ColorNamer.pm view on Meta::CPAN
['FF2400', 'Scarlet'],
['FF3399', 'Wild Strawberry'],
['FF33CC', 'Razzle Dazzle Rose'],
['FF355E', 'Radical Red'],
['FF3F34', 'Red Orange'],
['FF4040', 'Coral Red'],
['FF4D00', 'Vermilion'],
['FF4F00', 'International Orange'],
['FF6037', 'Outrageous Orange'],
['FF6600', 'Blaze Orange'],
['FF66FF', 'Pink Flamingo'],
view release on metacpan or search on metacpan
lib/App/Context.pm view on Meta::CPAN
# ActiveAnon: 88224 kB
# ActiveCache: 83496 kB
# Inact_dirty: 22032 kB
# Inact_laundry: 3120 kB
# Inact_clean: 5572 kB
# Inact_target: 40488 kB
# HighTotal: 0 kB
# HighFree: 0 kB
# LowTotal: 513616 kB
# LowFree: 55692 kB
# SwapTotal: 1044208 kB
lib/App/Context.pm view on Meta::CPAN
# http://www.comptechdoc.org/os/linux/howlinuxworks/linux_hlproc.html
#stat - Status information about the process used by the ps(1) command. Fields are:
# 31137 (bash) S 19885 31137 31137 34841 651 0 1450
# 185030 316 14024 1 3 687 715 14 0 0
# 0 1792102651 4403200 361 4294967295 134512640 135217536 3221217344 3221216648 1074425592
# 0 65536 3686404 1266761467 3222400107 0 0 17 2
# 1. pid - Process id
# 2. comm - The executable filename
# 3. state - R (running), S(sleeping interruptable), D(sleeping), Z(zombie), or T(stopped on a signal).
# 4. ppid - Parent process ID
# 5. pgrp - Process group ID
view release on metacpan or search on metacpan
- DBD::SQLite minimum version '1.74'.
2.405 2024-02-12
- Bugfixes in the 'search & replace' input filter.
2.404 2024-02-01
- Update and bugfixes documentation.
2.403 2024-01-25
- Update documentation.
- Term::Choose minimum version '1.763'.
view release on metacpan or search on metacpan
bin/dump-data-section-seekable view on Meta::CPAN
my $path;
if ($args{module}) {
require Module::Path::More;
$path = Module::Path::More::module_path(module => $args{module})
or return [404, "No such module"];
} else {
$path = $args{file};
}
(-f $path) or return [404, "No such file"];
open my($fh), "<", $path or return [500, "Can't open file '$path': $!"];
my $found;
while (<$fh>) {
chomp;
view release on metacpan or search on metacpan
lib/App/DiffCPANReleases.pm view on Meta::CPAN
my $tempdir = File::Util::Tempdir::get_tempdir();
USE_PATH:
{
if ($rel =~ m!/! || $rel =~ /\.tar(\.\w+)?\z/) {
return [404, "No such release tarball file '$rel'"] unless -f $rel;
return [200, "OK (file)", $rel];
}
}
my ($dist, $ver);
view release on metacpan or search on metacpan
lib/App/DiffTarballs.pm view on Meta::CPAN
require File::Temp;
require ShellQuote::Any::Tiny;
my %args = @_;
return [404, "No such file or directory: $args{tarball1}"]
unless -f $args{tarball1};
return [404, "No such file or directory: $args{tarball2}"]
unless -f $args{tarball2};
my $abs_tarball1 = Cwd::abs_path($args{tarball1});
my $abs_tarball2 = Cwd::abs_path($args{tarball2});
return [404, "No such file or directory: $args{tarball1}"]
unless -f $args{tarball1};
return [404, "No such file or directory: $args{tarball2}"]
unless -f $args{tarball2};
my $dir1 = File::Temp::tempdir(CLEANUP => 1);
my $dir2 = File::Temp::tempdir(CLEANUP => 1);
view release on metacpan or search on metacpan
script/list-dist-contents view on Meta::CPAN
my %args = @_;
my $dist = $args{dist};
$dist =~ s/-/::/g;
my $packlist = Dist::Util::packlist_for($dist);
return [404, "Can't find .packlist for $dist"] unless $packlist;
[200, "OK", do { local $/; open my($fh), "<", $packlist; ~~<$fh> }];
}
Perinci::CmdLine::Any->new(
url => "/main/list_dist_contents",
view release on metacpan or search on metacpan
lib/App/Dochazka/CLI/Testers.pm view on Meta::CPAN
Display george's priv history (which is still empty at this point):
Dochazka(2016-01-27) root ADMIN> emp=george priv history
*** Anomaly detected ***
Status: 404 Not Found
Explanation: No history for EID 5 (ERR)
Add a priv history record:
Dochazka(2016-01-28) root ADMIN> emp=george active 2015-01-02
lib/App/Dochazka/CLI/Testers.pm view on Meta::CPAN
Verify that there are no schedules:
Dochazka(2016-01-29) george ACTIVE> schedule fetch all
*** Anomaly detected ***
Status: 404 Not Found
Explanation: There are no active schedules in the database (ERR)
And that there is no schedule history:
Dochazka(2016-01-29) george ACTIVE> schedule history
*** Anomaly detected ***
Status: 404 Not Found
Explanation: No history for EID 3 (ERR)
=head2 Define a schedule
lib/App/Dochazka/CLI/Testers.pm view on Meta::CPAN
Log in as root:
$ dochazka-cli -u root -p immutable
Dochazka(2016-01-30) root ADMIN> emp=george schedule history
*** Anomaly detected ***
Status: 404 Not Found
Explanation: No history for EID 3 (ERR)
Schedule histories work analogously to privilege histories:
Dochazka(2016-01-30) root ADMIN> emp=george scode=VPP-1 2015-01-02
view release on metacpan or search on metacpan
lib/App/Dochazka/REST/Dispatch.pm view on Meta::CPAN
} else {
$self->mrest_declare_status( 'code' => 400, 'explanation' => 'Missing request entity' );
return $fail;
}
# the resource should be defined - if not, return 404
my $def = $resources->{$docu_resource};
$log->debug( "handler_docu: resource definition is " . Dumper( $def ) );
if ( ref( $def ) ne 'HASH' ) {
$self->mrest_declare_status( 'code' => 404,
'explanation' => "Could not find resource definition for $docu_resource"
);
return $fail;
}
lib/App/Dochazka/REST/Dispatch.pm view on Meta::CPAN
if ( $status->not_ok ) {
if ( $status->code eq 'DOCHAZKA_LDAP_SYSTEM_USER_NOSYNC' ) {
# system user - 403
$status->{'http_code'} = 403;
} else {
$status->{'http_code'} = 404;
}
$self->mrest_declare_status( $status );
return 0;
}
$self->context->{'stashed_employee_object'} = $emp;
lib/App/Dochazka/REST/Dispatch.pm view on Meta::CPAN
conn => $self->context->{'dbix_conn'},
class => 'App::Dochazka::REST::Model::Employee',
sql => $site->SQL_EMPLOYEE_SELECT_MULTIPLE_BY_NICK,
keys => [ $key ],
);
# check for 404
if ( $status->level eq 'NOTICE' and $status->code eq 'DISPATCH_NO_RECORDS_FOUND' ) {
$self->mrest_declare_status( code => 404,
explanation => "DISPATCH_SEARCH_EMPTY",
args => [ 'employee', "nick LIKE $key" ],
);
return $fail;
}
lib/App/Dochazka/REST/Dispatch.pm view on Meta::CPAN
}
# - process return value
if ( $status->level eq 'NOTICE' and $status->code eq 'DISPATCH_NO_RECORDS_FOUND' ) {
my $tsmsg = ( $ts ) ? $ts : 'now';
$self->mrest_declare_status(
code => 404,
explanation => "No $prop history for $key $value as of $tsmsg",
);
return $fail;
} elsif ( $status->not_ok ) {
$self->mrest_declare_status(
lib/App/Dochazka/REST/Dispatch.pm view on Meta::CPAN
nick => $emp->nick,
tsrange => $tsrange,
);
# - process return value
if ( $status->level eq 'NOTICE' and $status->code eq 'DISPATCH_NO_RECORDS_FOUND' ) {
$self->mrest_declare_status( code => 404, explanation => "No history for $key $value $tsrange" );
return $fail;
} elsif ( $status->not_ok ) {
$self->mrest_declare_status( code => 500, explanation => $status->text );
return $fail;
}
lib/App/Dochazka/REST/Dispatch.pm view on Meta::CPAN
} elsif ( $entity->{sec_id} ) {
$key = 'sec_id';
$value = $entity->{sec_id};
} else {
$self->mrest_declare_status(
code => 404,
explanation => "DISPATCH_EMPLOYEE_CANNOT_BE_DETERMINED"
);
return;
}
map { delete $entity->{$_} } ( 'eid', 'nick', 'sec_id' );
view release on metacpan or search on metacpan
share/js/dochazka-www/ldap-lib.js view on Meta::CPAN
},
// failure callback -- employee doesn't exist
fc = function (st) {
var err = st.payload.code,
msg;
if (err === '404') {
msg = 'Employee ' + ldapEmp.nick + ' not found in LDAP';
} else {
msg = st.payload.message;
}
coreLib.displayError(msg);
view release on metacpan or search on metacpan
lib/App/Docker/Client/Exception.pm view on Meta::CPAN
=head2 is_not_fround
=cut
sub is_not_fround { $_[0]->{code} == 404 ? 1 : 0 }
=head2 is_confict
=cut
view release on metacpan or search on metacpan
lib/App/Donburi/Web/Dispatcher.pm view on Meta::CPAN
my $req = App::Donburi::Web::Request->new($env);
my $ci = $c->new(req => $req);
my $res = $ci->$action;
return $res && ref($res) eq 'ARRAY' ? $res : $ci->auto_render($p->{action}, $res);
} else {
return [ 404, [], ['not found'] ];
}
}
sub is_called_json_rpc {
my ($env, $match) = @_;
view release on metacpan or search on metacpan
SHA1 62ebd1dc25f5ef2e8b862683b8e8e6d21588627c LICENSE
SHA1 73b7331b0aaf7bc09099d5743112641993e2727a MANIFEST
SHA1 f9115993bbeae29a220f055d84ae8acf0341f07c META.json
SHA1 650c7741bcf54c07916e8845f52f87f0cdf530e2 META.yml
SHA1 4e02abc191672e217c81417d1b9fcb84eb7c0469 Makefile.PL
SHA1 3826a1b0e10988926d2b487404fc99540bf1f3d8 README.mkdn
SHA1 50725a43916ed84f5f516324c3817c6a46416d9c bin/dothe
SHA1 392f9d0f5c02c3f36d2a1befcb1414f158525cb0 cpanfile
SHA1 07a59d1abae9a51d33e74c0897ffbb15724cdcff doap.xml
SHA1 79868796246bbd17ab90128b9d04d9a5a5310d66 lib/App/Dothe.pm
SHA1 45ca267820e69758ea9d21afcdc19d33d739f944 lib/App/Dothe/Task.pm
view release on metacpan or search on metacpan
lib/App/DownloadsDirUtils.pm view on Meta::CPAN
my $to_dir = delete($args{to_dir}) // '.';
my $res = &{"${which}_download"}(%args);
return $res unless $res->[0] == 200;
return [404, "No $which file(s) returned"] unless @{ $res->[2] };
my $envres = envresmulti();
my $i = 0;
for my $file (@{ $res->[2] }) {
$i++;
view release on metacpan or search on metacpan
lib/App/DrivePlayer/SheetDB.pm view on Meta::CPAN
# Use Drive API to verify the file exists and is not trashed before
# opening via Sheets API (which happily operates on trashed files).
my $drive = Google::RestApi::DriveApi3->new(api => $self->api);
my $meta = eval { $drive->file(id => $self->spreadsheet_id)->get(fields => 'id,trashed') };
if ($@) {
die "SHEET_NOT_FOUND: $@" if $@ =~ /404|not.?found/i;
die $@;
}
die "SHEET_NOT_FOUND: spreadsheet has been trashed\n" if $meta->{trashed};
return $self->_sheets_api->open_spreadsheet(id => $self->spreadsheet_id);
view release on metacpan or search on metacpan
lib/App/DubiousHTTP/Tests/Broken.pm view on Meta::CPAN
[ INVALID, '407' => 'code 407 with body and no authorization requested'],
[ 'VALID: other status codes with valid behavior' ],
[ UNCOMMON_VALID, '400' => 'code 400 with body'],
[ UNCOMMON_VALID, '403' => 'code 403 with body'],
[ UNCOMMON_VALID, '404' => 'code 404 with body'],
[ UNCOMMON_VALID, '406' => 'code 406 with body'],
[ UNCOMMON_VALID, '500' => 'code 500 with body'],
[ UNCOMMON_VALID, '502' => 'code 502 with body'],
[ UNCOMMON_INVALID, '100+' => 'code 100 followed by real response'],
[ INVALID, '100+b' => 'code 100 with body followed by real response'],
view release on metacpan or search on metacpan
lib/App/DuckPAN/Web.pm view on Meta::CPAN
$share_dir = undef;
}
}
}
unless ($share_dir){
$response->status(404);
my $path = join "/", @path_parts;
my $errormsg = "ERROR: File not found - $path";
print "\n" . $errormsg . "\n";
$body = $errormsg;
}
lib/App/DuckPAN/Web.pm view on Meta::CPAN
}
}
}
}
unless ($rewrite){
$response->status(404);
my $path = join "/", @path_parts;
my $errormsg = "ERROR: Rewrite not found - $path";
print "\n" . $errormsg . "\n";
$body = $errormsg;
}
view release on metacpan or search on metacpan
extra/duhead.pl view on Meta::CPAN
use strict;
use warnings;
my $lines;
while ( <> ) {
# 122160 +43404 -142272 .retro-test
my @a = /([ \d].{8})([-+ \d]{9})([-+ \d]{9})/;
next unless defined $a[0] && defined $a[1];
next if $a[1] =~ /-/;
next if $a[0] =~ /^\s+/ && $a[2] =~ /^\s+$/;
view release on metacpan or search on metacpan
lib/App/ENumberUtils.pm view on Meta::CPAN
"",
"",
"Approved in the EU.[23]",
],
[
"E404",
"Calcium alginate (thickener) (stabiliser) (gelling agent)",
"emulsifier",
"",
"",
"Approved in the EU.[23]",
lib/App/ENumberUtils.pm view on Meta::CPAN
"",
"",
"",
],
[
"E1404",
"Oxidized starch (emulsifier)",
"thickening agent",
"",
"",
"Approved in the EU.[20]",
view release on metacpan or search on metacpan
&& rm -fr $(brew --cache)/*
# HOME bin
RUN true \
&& mkdir -p /home/linuxbrew/bin \
&& curl -L https://github.com/wang-q/ubuntu/releases/download/20190906/jkbin-egaz-ubuntu-1404-2011.tar.gz | \
tar -xvzf - \
&& mv x86_64/* /home/linuxbrew/bin/ \
&& curl -O http://hgdownload.soe.ucsc.edu/admin/exe/linux.x86_64/faToTwoBit \
&& chmod +x faToTwoBit \
&& mv faToTwoBit /home/linuxbrew/bin/
view release on metacpan or search on metacpan
scripts/es-search.pl view on Meta::CPAN
es-search.pl --size=100 dst:"admin.example.com" AND src_ip:"1.2.0/16"
# Show the top src_ip for 'www.example.com'
es-search.pl --base access dst:www.example.com --top src_ip
# Tail the access log for www.example.com 404's
es-search.pl --base access --tail --show src_ip,file,referer_domain dst:www.example.com AND crit:404
=head1 NAME
es-search.pl - Search a logging cluster for information
view release on metacpan or search on metacpan
bin/station-mgr.pl view on Meta::CPAN
__END__
(dev) bofh-sider:~/git/eventstreamr/station $ ps waux|grep dv
leon 19898 2.5 0.1 850956 24560 pts/12 Sl+ 11:35 1:21 dvswitch -h localhost -p 1234
leon 20723 0.0 0.0 4404 612 ? S 12:27 0:00 sh -c ffmpeg -f video4linux2 -s vga -r 25 -i /dev/video0 -target pal-dv - | dvsource-file /dev/stdin -h localhost -p 1234
leon 20724 8.0 0.1 130680 24884 ? S 12:27 0:01 ffmpeg -f video4linux2 -s vga -r 25 -i /dev/video0 -target pal-dv -
leon 20725 0.1 0.0 10796 860 ? S 12:27 0:00 dvsource-file /dev/stdin -h localhost -p 1234
leon 20735 0.0 0.0 9396 920 pts/16 S+ 12:28 0:00 grep --color=auto dv
$VAR1 = {
view release on metacpan or search on metacpan
lib/App/ExifUtils.pm view on Meta::CPAN
require Image::ExifTool;
my %args = @_;
my $filename = $args{filename};
return [404, "No such file '$filename'"] unless -f $filename;
my $info = Image::ExifTool::ImageInfo($filename);
[200, "OK", $info];
}
1;
view release on metacpan or search on metacpan
lib/App/FakeCDN.pm view on Meta::CPAN
}
$path =~ s!^/!!;
my ($data, $content_type) = $self->get_content($path, $query);
return $self->res_404 unless $data;
return [ 200, [
'Content-Type' => $content_type,
'Content-Length' => length($data),
], [ $data ] ];
lib/App/FakeCDN.pm view on Meta::CPAN
sub res_400 {
[400, ['Content-Type' => 'text/plain', 'Content-Length' => 11], ['Bad Request']];
}
sub res_404 {
[404, ['Content-Type' => 'text/plain', 'Content-Length' => 9], ['not found']];
}
sub get_content {
my ($self, $path, $query) = @_;
view release on metacpan or search on metacpan
xt/release/cpan-changes.t
xt/release/kwalitee.t
xt/release/meta-json.t
xt/release/pod-coverage.t
xt/release/pod-linkcheck.t
xt/release/pod-no404s.t
xt/release/pod-syntax.t
view release on metacpan or search on metacpan
script/update-fatpack-snippets view on Meta::CPAN
my $envres = envresmulti();
for my $filename (@$filenames) {
unless (-f $filename) {
log_warn("File %s does not exist, skipped", $filename);
$envres->add_result(404, "File does not exist", {item_id=>$filename});
next;
}
my $content = File::Slurper::read_text($filename);
my $orig_content = $content;
view release on metacpan or search on metacpan
lib/App/FirefoxMultiAccountContainersUtils.pm view on Meta::CPAN
next unless $_->{name} eq $args->{profile};
$path = $_->{path};
last;
}
}
return [404, "No such Firefox profile '$args->{profile}', ".
"available profiles include: ".
join(", ", map {$_->{name}} @{$res->[2]})]
unless defined $path;
$path = "$path/containers.json";
view release on metacpan or search on metacpan
lib/App/Followme/Initialize.pm view on Meta::CPAN
border-radius: 1px;
text-decoration: none;
}
.btn-close:hover {
background-color: #740404;
}
#>>> copy text _templates/convert_page.htm
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />