view release on metacpan or search on metacpan
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
200 => "HTTP/1.1 200 OK\r\n",
206 => "HTTP/1.1 206 Partial Content\r\n",
301 => "HTTP/1.1 301 Moved Permanently\r\n",
307 => "HTTP/1.1 307 Temporary Redirect\r\n",
403 => "HTTP/1.1 403 Forbidden\r\n",
404 => "HTTP/1.1 404 File Not Found\r\n",
408 => "HTTP/1.1 408 Request Timeout\r\n",
416 => "HTTP/1.1 416 Range Not Satisfiable\r\n",
503 => "HTTP/1.1 503 Service Unavailable\r\n"
);
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
my ($self) = @_;
my $msg = "403 Forbidden\r\n";
$self->SendHTML($msg, {'code' => 403});
}
sub Send404 {
my ($self) = @_;
my $msg = "404 Not Found";
$self->SendHTML($msg, {'code' => 404});
}
sub Send408 {
my ($self) = @_;
my $msg = "408 Request Timeout";
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
my $currentsize;
if($self->{'method'} ne 'HEAD') {
my $FH;
if(! open($FH, "<", $requestfile)) {
say "SLF: open failed";
$self->Send404;
return;
}
binmode($FH);
my $st = stat($FH);
if(! $st) {
$self->Send404();
return;
}
$currentsize = $st->size;
$fileitem{'fh'} = $FH;
}
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
# currently only supports fixed filelength
sub SendPipe {
my ($self, $FH, $filename, $filelength, $mime) = @_;
if(! defined $filelength) {
$self->Send404();
}
$mime //= getMIME($filename);
binmode($FH);
my %fileitem;
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
}
# Use perlio to read from the buf
my $fh;
if(!open($fh, '<', \$buf)) {
$self->Send404;
return;
}
my %fileitem = (
'fh' => $fh,
'get_current_length' => sub { return undef }
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
sub SendAsTar {
my ($self, $requestfile) = @_;
if(!HAS_Alien_Tar_Size) {
warn("Cannot send tar without Alien::Tar::Size");
$self->Send404();
return;
}
my ($libtarsize) = Alien::Tar::Size->dynamic_libs;
if(!$libtarsize) {
warn("Cannot find libtarsize");
$self->Send404();
return;
}
# HACK, use LD_PRELOAD to hook tar to calculate the size quickly
my @tarcmd = ('tar', '-C', dirname($requestfile), basename($requestfile), '-c', '--owner=0', '--group=0');
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
say "abs requestfile: $requestfile" if(defined $requestfile);
# not a file or is outside of the document root
if(( ! defined $requestfile) ||
(rindex($requestfile, $droot, 0) != 0)){
$request->Send404;
}
# is regular file
elsif (-f $requestfile) {
if(index($request->{'path'}{'unsafecollapse'}, '/', length($request->{'path'}{'unsafecollapse'})-1) == -1) {
$request->SendFile($requestfile);
}
else {
$request->Send404;
}
}
# is directory
elsif (-d _) {
# ends with slash
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
my $index = $requestfile.'/index.html';
if(-f $index) {
$request->SendFile($index);
return;
}
$request->Send404;
}
else {
# redirect to slash path
my $bn = basename($requestfile);
$request->SendRedirect(301, $bn.'/');
}
}
else {
$request->Send404;
}
}
sub SendDirectoryListing {
my ($self, $absdir, $urldir) = @_;
my $urf = $absdir .'/'.substr($self->{'path'}{'unsafepath'}, length($urldir));
my $requestfile = abs_path($urf);
my $ml = $absdir;
say "rf $requestfile " if(defined $requestfile);
if (( ! defined $requestfile) || (rindex($requestfile, $ml, 0) != 0)){
$self->Send404;
return;
}
if(-f $requestfile) {
if(index($self->{'path'}{'unsafecollapse'}, '/', length($self->{'path'}{'unsafecollapse'})-1) == -1) {
$self->SendFile($requestfile);
}
else {
$self->Send404;
}
return;
}
elsif(-d _) {
# ends with slash
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
else {
$self->SendRedirect(301, basename($requestfile).'/');
return;
}
}
$self->Send404;
}
sub PUTBuf_old {
my ($self, $handler) = @_;
if(length($self->{'client'}{'inbuf'}) < $self->{'header'}{'Content-Length'}) {
view release on metacpan or search on metacpan
t/release-changes_has_content.t
t/release-kwalitee.t
t/release-no-smart-comments.t
t/release-no-tabs.t
t/release-pod-coverage.t
t/release-pod-no404s.t
t/release-pod-syntax.t
t/release-portability.t
view release on metacpan or search on metacpan
script/app-map-metro view on Meta::CPAN
my $map = $maps{ $city };
if(!defined $map) {
$map = Map::Metro->new($city)->parse;
if(!defined $map) {
return $c->app->send_error(404, sprintf 'No such map <%s>', $city);
}
$maps{ $city } = $map;
}
return 0;
}
view release on metacpan or search on metacpan
lib/App/MetaCPANUtils.pm view on Meta::CPAN
require Module::Release::Select;
my $rel = Module::Release::Select::select_release(
{detail=>1}, $args{version}, $rels);
#use DD; dd $rel;
return [404, "Version $args{version} of distribution $args{distribution} not found in releases"] unless $rel;
my $url = $rel->{download_url};
(my $filename = $url) =~ s!.+/!!;
return [412, "File '$filename' already exists, not overwriting (use -O to overwrite)"]
if (-f $filename) && !$args{overwrite};
view release on metacpan or search on metacpan
lib/App/Mimosa/Controller/Root.pm view on Meta::CPAN
}
=head2 default
Standard 404 error page
=cut
sub default :Path {
my ( $self, $c ) = @_;
$c->response->body( 'Nothing to see here' );
$c->response->status(404);
}
=head2 input_error
Standard page for user-input errors.
view release on metacpan or search on metacpan
lib/App/MineralUtils.pm view on Meta::CPAN
pct_ca => 21.0751971954426,
unit => "mg-ca-citrate-tetrahydrate",
summary => "Calcium citrate tetrahydrate (C12H18Ca3O18) [most common hydrate form of Ca-citrate], in milligrams",
},
{
amount => 10.6382978723404,
pct_ca => 9.40047849134494,
unit => "mg-ca-ascorbate-dihydrate",
summary => "Calcium ascorbate dihydrate (C12H18CaO14), in milligrams",
},
{
view release on metacpan or search on metacpan
lib/App/ModuleFeaturesUtils.pm view on Meta::CPAN
return [400, "Please prefix feature name with feature set name (e.g. $fsetnames[0]/foo), there are more than one feature sets: ".join(", ", @fsetnames)]
unless @fsetnames == 1;
$fsetname = $fsetnames[0];
}
my $set_features = $features_decl->{features}{$fsetname}
or return [404, "No such feature set name declared: $fsetname"];
[200, "OK", $set_features->{$fname}];
} else {
[200, "OK", $features_decl->{features}];
}
}
view release on metacpan or search on metacpan
lib/App/MojoSlides/files/public/jquery.min.js view on Meta::CPAN
/*! jQuery v2.0.3 | (c) 2005, 2013 jQuery Foundation, Inc. | jquery.org/license
//@ sourceMappingURL=jquery-2.0.3.min.map
*/
(function(e,undefined){var t,n,r=typeof undefined,i=e.location,o=e.document,s=o.documentElement,a=e.jQuery,u=e.$,l={},c=[],p="2.0.3",f=c.concat,h=c.push,d=c.slice,g=c.indexOf,m=l.toString,y=l.hasOwnProperty,v=p.trim,x=function(e,n){return new x.fn.in...
};"inprogress"===i&&(i=n.shift(),r--),i&&("fx"===t&&n.unshift("inprogress"),delete o.stop,i.call(e,s,o)),!r&&o&&o.empty.fire()},_queueHooks:function(e,t){var n=t+"queueHooks";return q.get(e,n)||q.access(e,n,{empty:x.Callbacks("once memory").add(funct...
},delegate:function(e,t,n,r){return this.on(t,e,n,r)},undelegate:function(e,t,n){return 1===arguments.length?this.off(e,"**"):this.off(t,e||"**",n)}});var Xt,Ut,Yt=x.now(),Vt=/\?/,Gt=/#.*$/,Jt=/([?&])_=[^&]*/,Qt=/^(.*?):[ \t]*([^\r\n]*)$/gm,Kt=/^(?:a...
view release on metacpan or search on metacpan
# Examples
eg/checkit-command.conf
eg/checkit-dbi.conf
eg/checkit-default.conf
eg/checkit-ext-dbi.conf
eg/checkit-http-404.conf
eg/checkit-http.conf
eg/checkit-http-desc.conf
eg/checkit-http-ok.conf
eg/checkit-http-post.conf
eg/checkit-ping.conf
view release on metacpan or search on metacpan
example/source/.htaccess view on Meta::CPAN
AddHandler cgi-script .cgi
DirectoryIndex index.shtml
RewriteEngine On
#ErrorDocument 404 /404
view release on metacpan or search on metacpan
t/integration/lwp.t view on Meta::CPAN
my $func = lc("httpd_$p");
if (defined &$func) {
no strict 'refs';
&$func($c, $r, @p);
} else {
$c->send_error(404);
}
}
$c = undef; # close connection
}
my $errno_i = $!+0;
view release on metacpan or search on metacpan
lib/App/Music/PlayTab/Output/PostScript/Preamble.pm view on Meta::CPAN
4002F88A32AF4E7723E3AE6C0D598913243BDB47DF8D3E79B691A806E221690EA206A4A6
A2077B8324432D79C8A7A99119473022D8EBEF09843606EE962171D21099668EACB6FDD5
5417981D20FCA178A14A43A709829127E431CABB7054ECC2356E1049490410774E57BEB8
5D51A3F2A63BA5AC60295A9BF38F9B2BE9893B357F9BDEFA2B880BF35937AD32A36775F6
038449BE4054B95BAC6B86F2C6DC1989FD377E8B151B4BE9A6A6BB05F195518DE7AA8A4F
38A20A038110D69A7E556634AE7D7FBD5F5C4041C6A4E44698392270F8845F6212EE1483
30248FEEB732D4E5EC3BD7D4B04A268285800A2919960B1F99310F9A1768287150CF53BC
0FB7B2EA374BCEFA999189342679A54925C3B19F5BB38BFEE12429949AAD2512D9215C80
D67EE802E07B50DBC6547F3C37D89EC7C19D22089200AAFBB1AB624C499BC6B9226CA58E
7308B25E5D308000E58A59D0F608E8471A5D031A8BF36A6CFDD288D36E3625449DFB4284
CEDB8F2C33B0CA73FD4A36F7C67DBFD71DD91F2936D2667CEF9169EA6C55C24FA9CD62FC
8E4EA504DB3633AB6C5EE88D024853DE4BCA69476135E155639BBFD7FED2AB1F20127F1F
6FC846EAD110F1A4711C841FA92C6AA5023E3E074B3AE9CCEF3B9F23894430B8EBAC6186
4D77E8EC3F534EB235EDCB1344CF8CCE5AD7731B98D93CD1EA855D104048A0C97A1E33A9
4BD7E64467AA8EAABDEF8BA591190F6A39BD55EB6CA775A959079D6613745BE78A447ABD
AEC56668EF30677263CAFD8E8CAA3D8B26497A2F9706251C86B43319338AFF331CD45CDF
9EB93A67D7DCA12B75E6C5D42FEDD57F77E52B8DEC38548E4A39B2D2CD01593E84E08FE5
E10230D878F9934AD9F92A2B7CE07D9829DDC812D414D363A0C20928D31CDF2591C20BC6
BEA49757ACABCDC53BFE5DD96BFCB81AE0B94C441D96DD5462F033FE590E83CC7BC4578D
lib/App/Music/PlayTab/Output/PostScript/Preamble.pm view on Meta::CPAN
57AD441203AF67AF1C20CE3BFC1E878649B0417FEB9B51F52EB4FFE750BF2E628DEFD514
965F3F18FDA90F0F580675C532DA89FFA3DE5799F022FFB666918EE229477252577FD88D
0D92380743C421C29C1C395638D4C2BE78482F9059956A5800997E8BF9CA03528B67486B
6154CB4B84F793C9EF2CC8A0E5F1BDF20E2211A392656A59423CF4EA76711459A8160048
66AE99DF65E95D09653ADC9C1EF579E917131A2CB692792436F085AD54BB804F87F69464
815F2C10D404799C2FB491EC3CDFB42A7476DE3B02E7C9FBF92B11570161FA74C1A085DE
005880F696B140B35056FA3B77154901361EA904BD564A5371FB1A67ACCA00002B1BDDF9
B73D48B6F00DC7E8CA1553023A6CFED1E29CE12E7A443443620022BF9244489D2B0D676E
5C5EE900787ED320CC42A9C84909E1B83AE3626AFBE51B76B0313B1F22FF857B8E4D77BA
9DF69A709FB220CD31CEB47691E97B6FBBE93850CDC906404293B8374ACB65FF8EABC101
74A213E20008AE8A7600F949D767605F71EF3D98C44BA4B9CEA274AFBC151B1A3386E1A9
6F7B2F19F33474A40E23D27F02A1DFEBA951546CA6E13E5AD9EAC6478732128F871D3BDC
6EE40B10C0368616883F58D5CDDFDC12B54647C7E3E16EFCD575438857550E06B34138BE
AB7852D4DABB73B3A0B3EEFD3C341E56C4F2C9DF498A6B09C199611C7E62D466DBE73943
FF4095C412F6479C1F627FCEB0E6359F920A3CC691BCF4EB6E158C83B3F114FE3154F427
view release on metacpan or search on metacpan
lib/App/Mxpress/PDF/API.pm
lib/Dancer2/Plugin/CSRF/SPA.pm
Makefile.PL
MANIFEST
MANIFEST.SKIP
public/404.html
public/500.html
public/css/error.css
public/css/grids-responsive-min.css
public/css/pure-min.css
public/css/side-menu.css
view release on metacpan or search on metacpan
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
},
],
responses => { default => {} },
}, get '/api/v1/object/device/:ip' => require_role api => sub {
my $device = try { schema(vars->{'tenant'})->resultset('Device')
->find( params->{ip} ) } or send_error('Bad Device', 404);
my $data = $device->TO_JSON;
my @modules = try {
schema(vars->{'tenant'})->resultset('DevicePower')
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
},
],
responses => { default => {} },
}, get "/api/v1/object/device/:ip/$rel" => require_role api => sub {
my $rows = try { schema(vars->{'tenant'})->resultset('Device')
->find( params->{ip} )->$rel } or send_error('Bad Device', 404);
return to_json [ map {$_->TO_JSON} $rows->all ];
};
}
swagger_path {
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
},
],
responses => { default => {} },
}, get '/api/v1/object/device/:ip/power_modules' => require_role api => sub {
my $device = try { schema(vars->{'tenant'})->resultset('Device')
->find( params->{ip} ) } or send_error('Bad Device', 404);
my @rows = try {
schema(vars->{'tenant'})->resultset('DevicePower')
->search({ 'me.ip' => $device->ip })->with_poestats->hri->all;
} catch { () };
return to_json \@rows;
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
},
],
responses => { default => {} },
}, del '/api/v1/object/device/:ip/jobs' => require_role api_admin => sub {
my $device = try { schema(vars->{'tenant'})->resultset('Device')
->find( params->{ip} ) } or send_error('Bad Device', 404);
my $gone = schema(vars->{'tenant'})->resultset('Admin')->search({
device => param('ip'),
( param('port') ? ( port => param('port') ) : () ),
( param('action') ? ( action => param('action') ) : () ),
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
responses => { default => {} },
}, get qr{/api/v1/object/device/(?<ip>[^/]+)/port/(?<port>.+)/${rel}$} => require_role api => sub {
my $params = captures;
my $rows = try { schema(vars->{'tenant'})->resultset('DevicePort')
->find( $$params{port}, $$params{ip} )->$rel }
or send_error('Bad Device or Port', 404);
return to_json [ map {$_->TO_JSON} $rows->all ];
};
}
foreach my $rel (qw/power properties ssid wireless agg_master neighbor last_node/) {
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
responses => { default => {} },
}, get qr{/api/v1/object/device/(?<ip>[^/]+)/port/(?<port>.+)/${rel}$} => require_role api => sub {
my $params = captures;
my $row = try { schema(vars->{'tenant'})->resultset('DevicePort')
->find( $$params{port}, $$params{ip} )->$rel }
or send_error('Bad Device or Port', 404);
return to_json $row->TO_JSON;
};
}
# must come after the port methods above, so the route matches later
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
responses => { default => {} },
}, get qr{/api/v1/object/device/(?<ip>[^/]+)/port/(?<port>.+)$} => require_role api => sub {
my $params = captures;
my $port = try { schema(vars->{'tenant'})->resultset('DevicePort')
->find( $$params{port}, $$params{ip} ) }
or send_error('Bad Device or Port', 404);
return to_json $port->TO_JSON;
};
swagger_path {
tags => ['Objects'],
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
responses => { default => {} },
}, get '/api/v1/object/device/:ip/nodes' => require_role api => sub {
my $active = (params->{active_only} and ('true' eq params->{active_only})) ? 1 : 0;
my $rows = try { schema(vars->{'tenant'})->resultset('Node')
->search({ switch => params->{ip}, ($active ? (-bool => 'active') : ()) }) }
or send_error('Bad Device', 404);
return to_json [ map {$_->TO_JSON} $rows->all ];
};
swagger_path {
tags => ['Objects'],
lib/App/Netdisco/Web/API/Objects.pm view on Meta::CPAN
responses => { default => {} },
}, get '/api/v1/object/vlan/:vlan/nodes' => require_role api => sub {
my $active = (params->{active_only} and ('true' eq params->{active_only})) ? 1 : 0;
my $rows = try { schema(vars->{'tenant'})->resultset('Node')
->search({ vlan => params->{vlan}, ($active ? (-bool => 'active') : ()) }) }
or send_error('Bad VLAN', 404);
return to_json [ map {$_->TO_JSON} $rows->all ];
};
swagger_path {
tags => ['Objects'],
view release on metacpan or search on metacpan
share/mib/CISCO-SMI.my view on Meta::CPAN
"Added ciscoPartnerProducts to generate sysObjectID
for partner platforms"
REVISION "9505160000Z"
DESCRIPTION
"New oid assignments for Cisco REPEATER MIB and others."
REVISION "9404262000Z"
DESCRIPTION
"Initial version of this MIB module."
::= { enterprises 9 }
view release on metacpan or search on metacpan
bin/noodlepay.pl view on Meta::CPAN
hi => [qw(0039 0439)],
it => [qw(0010 0410 0810)],
ja => [qw(0011 0411)],
kr => [qw(0012 0412)],
ru => [qw(0019 0819 0419)],
zh => [qw(0004 7804 0804 1004 7c04 0c04 1404 0404)]
);
require Win32::API;
Win32::API->Import('kernel32', 'int GetUserDefaultLCID()');
my $langid = GetUserDefaultLCID();
for my $l (keys %winlang) {
view release on metacpan or search on metacpan
Test::Compile.switch = -M-warnings=deprecated
Test::ReportPrereqs.include[0] = WWW::Pastebin::PastebinCom::Create
Test::ReportPrereqs.include[1] = Clipboard
Test::ReportPrereqs.include[2] = Browser::Open
-remove = PodCoverageTests ; TODO
-remove = Test::Pod::No404s ; TODO
-remove = MetaTests ; until Test::CPAN::Meta is fixed
StaticInstall.dry_run = 0 ; we can safely set this here
[OptionalFeature / pastebin]
:version = 0.021
view release on metacpan or search on metacpan
------------------------------------------
version 0.012 at 2012-08-15 19:05:05 +0000
------------------------------------------
Change: 0066b6404245b10ff4405193bc01fd2b3485a01b
Author: William Wolf <throughnothing@gmail.com>
Date : 2012-08-15 12:05:05 +0000
v0.012
view release on metacpan or search on metacpan
lib/App/PAUSE/TimeMachine.pm view on Meta::CPAN
if ($env->{PATH_INFO} =~ m!authors/id/!) {
return [301, ['Location' => "http://backpan.perl.org/$env->{PATH_INFO}"], []];
}
return [404, ['Content-Type' => 'text/plain'], ["Not Found"]];
};
}
sub git_dir {
$_[0]->{git_dir};
view release on metacpan or search on metacpan
lib/App/PDF/Link/Icons/BandInABox.pm view on Meta::CPAN
CQ3t7e3XtOUuyzIEQfA/cP8DT/x85c93BIR904ebEnft2vUcALNWv19RFXi8Hmn+bfOf+cXj
v/jwqg1rrWbEltZWOkIolBFIeWWls7Or85q03BmGgSAI8Pv94sMPPfxPEbaI9/udNj3930//
qbOzMzNQx1kLetw9mDt77h9MJtPzA2lHs3RmLS0tdJRQKCOQ+vo6eDweaJ3aVguvQnd3N0ZF
jXLl5OQ8vuzHyzYnJiXyfVY7N3Xa1D92dHTM0Ol0rBZ9kSQJHo8HMwtnvpCRkfHcv//m330j
QtxdbW10lFAoI5DqqqpA3Pe1Ya0TBoIoQBAEJCYkHg+3hr+4ccPG9wMpdFVVNc2eM/sXLpfr
R4QQU6Do91AKu8/ng16vV9LS0v607N5lL8ydO7dhoO1qIu4Mw8Dlojm/KJSRSHl5+TUR404I
6fWtiwL0Rj2v1+uPTZ48+eW1L6zdEPh9LS0t9kWLF/2osanxcUmSrAaDYUiFXVVV8DyPsLCw
NrPZvP2Lz79YTQipHYy2qbhTKJTvFHetC1IMhYjKsgxCiCIrckeUPerg+tfX/2rs2LGlgfc8
8csnIp96+qkfnjhx4o+EEN1QC7uiKFBVVVUUpW3cuHHvbv5w878SQvhB012txL27u4uOEgpl
hNHc1hZVU3N+xIu7KIro8fSoVqu1esWjK544sP/AkoCwb9++HaUnS40dHR3/9t77763jOE6n
1+uH3GL3er1gGKb+sRWPPbblL1tWDKawa2a5syyL7u5uOlIolBFGRVlZisvlGlFV0AIuFkmS
view release on metacpan or search on metacpan
lib/App/PDFUtils.pm view on Meta::CPAN
my $envres = envresmulti();
FILE:
for my $f (@{ $args{files} }) {
unless (-f $f) {
$envres->add_result(404, "File not found", {item_id=>$f});
next FILE;
}
# XXX test that tempfile doesn't yet exist. but actually we can't avoid
# race condition because qpdf is another process
(my $tempf = $f) =~ s/\.pdf$/".tmp_" . int(rand()*900_000 + 100_000) . ".pdf"/ei
lib/App/PDFUtils.pm view on Meta::CPAN
my $envres = envresmulti();
FILE:
for my $f (@{ $args{files} }) {
unless (-f $f) {
$envres->add_result(404, "File not found", {item_id=>$f});
next FILE;
}
# XXX test that tempfile doesn't yet exist. but actually we can't avoid
# race condition because qpdf is another process
(my $tempf = $f) =~ s/\.pdf$/".tmp_" . int(rand()*900_000 + 100_000) . ".pdf"/ei
lib/App/PDFUtils.pm view on Meta::CPAN
my $envres = envresmulti();
FILE:
for my $f (@{ $args{files} }) {
unless (-f $f) {
$envres->add_result(404, "File not found", {item_id=>$f});
next FILE;
}
my $outputf = $f;
$outputf =~ s/\.(pdf)\z/.compressed.$1/i or do {
$envres->add_result(500, "Cannot determine output filename", {item_id=>$f});
view release on metacpan or search on metacpan
lib/App/PMUtils.pm view on Meta::CPAN
[200, "OK", $res];
} else {
if ($args{dir}) {
[200, "OK (not found)", "."];
} else {
[404, "No such module"];
}
}
}
$SPEC{pmdir} = do {
view release on metacpan or search on metacpan
script/elide-pod view on Meta::CPAN
require Pod::Elide;
my %args = @_;
my $pod_file = $args{pod_file};
return [404, "No such file"] unless (-f $pod_file) || $pod_file eq '-';
my $pod = do {
open my $fh, $pod_file
or return [500, "Can't open file '$pod_file': $!"];
local $/;
scalar <$fh>;
view release on metacpan or search on metacpan
script/parse-netstat view on Meta::CPAN
},
{
"foreign_host" : "90.59.178.7",
"foreign_port" : "57940",
"local_host" : "192.168.0.115",
"local_port" : "40464",
"pid" : "959363",
"program" : "rtorrent",
"proto" : "tcp6",
"recvq" : "0",
"sendq" : "0",
script/parse-netstat view on Meta::CPAN
"state" : "CONNECTED",
"type" : "STREAM"
},
{
"flags" : "",
"inode" : "15749404",
"path" : "",
"pid" : "861023",
"program" : "klauncher",
"proto" : "unix",
"refcnt" : "3",
view release on metacpan or search on metacpan
lib/App/PerlCriticUtils.pm view on Meta::CPAN
}
if ($found) {
[200, "OK", $res];
} else {
[404, "No such module"];
}
}
$SPEC{pcpless} = {
v => 1.1,
lib/App/PerlCriticUtils.pm view on Meta::CPAN
find_pmc=>0, find_pod=>0, find_prefix=>0);
if (defined $mpath) {
system "less", $mpath;
[200, "OK"];
} else {
[404, "Can't find policy $policy"];
}
}
$SPEC{pcpcat} = {
v => 1.1,
view release on metacpan or search on metacpan
bin/perlbrew-clean-site-lib view on Meta::CPAN
require File::Path;
my %args = @_;
my $perl = App::PerlbrewUtils::_find_perl_by_name($args{perl})
or return [404, "No such installed perl '$args{perl}'"];
for my $dir (glob "$perl->{dir}/lib/site_perl/*") {
File::Path::remove_tree($dir);
}
[200];
view release on metacpan or search on metacpan
7f9c4f1033e7f7601f4520b6fd998fed43460346 Move scripts/ to script/ at Shlomi Fish's advice to get search.cpan.org to index the script
0.03 Sat Jun 27 12:49:00 2009
2c9629d437bcfad319371a5f3134cabf5e2bfaf5 Update Changes
e9346b9cef1d6ce947b478e01b1b20b0d1fb3317 0.03
35853a9fca807b78c5740d3a12a48817a4043ab9 Don't depend on parent, do ISA manually
0.02 Sat Jun 27 08:33:00 2009
f5ded15fcd3dd50c75b48a475ce14d65f8487a45 0.02
e76962af5fe735775a3d6f31496604f9d245ade9 Updating changelog
304a4464b38b71f10f34c8866da7e3bab1369d3e Clean up dependency list
view release on metacpan or search on metacpan
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
$log->debug("Requesting $url");
my $ua = Mojo::UserAgent->new;
my $res = $ua->get($url => {'X-Forwarded-For' => $stream->handle->peerhost})->result;
if ($res->is_success) {
return $res->text;
} elsif ($res->code == 404) {
return "";
}
oddmuse_http_error($stream, $res->code, $res->message, $url); # false
}
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
my $url = shift;
if ($code >= 200 and $code < 300) { $code = 20 }
elsif ($code == 301) { $code = 31 }
elsif ($code >= 300 and $code < 400) { $code = 30 }
elsif ($code == 403) { $code = 60 }
elsif ($code == 404) { $code = 51 }
elsif ($code == 405) { $code = 59 }
elsif ($code >= 400 and $code < 500) { $code = 50 }
elsif ($code >= 500 and $code < 600) { $code = 40 }
else { $code = 50 }
$log->warn("$code $message requesting $url");