Result:
found more than 742 distributions - search limited to the first 2001 files matching your query
( run in 2.620 )
App-MARC-Filter
view release on metacpan or search on metacpan
SHA256 53825bc78e4c910b888160bc148c8bc211be58e02b99c8edcbf4854f95faa049 inc/Module/Install/ReadmeFromPod.pm
SHA256 63ec8405523ae67c33823dcf4b136a46f0711fb17a8b58b49ddd922ed6b69611 inc/Module/Install/Scripts.pm
SHA256 4c746c02c5cc19bed4c352e76205b4adff4c45ce8310d71294e1b83c059659c2 inc/Module/Install/Win32.pm
SHA256 d3d9b4583243c470ae895defa4c44564485b53693cba1c50ab0320768f443e97 inc/Module/Install/WriteAll.pm
SHA256 393f2c2c22c634ac482f019ab8435b3490f491f94031c1c7e5dc27fdd1a8ab7d t/App-MARC-Filter/01-use.t
SHA256 bd2675381ff78630044044f3c8a037f29d509b40232b3bc61d6b24fced348d79 t/App-MARC-Filter/02-version.t
SHA256 2deced5bd8882b79293a940fbf96084826719c4fa79e776b852b70b627cbd29e t/App-MARC-Filter/03-new.t
SHA256 3f243752bbc090e5122fc57ac6639e577054f4124d358b9515ae964adce479b3 t/App-MARC-Filter/04-run.t
SHA256 7e47f7d3516715d4708f4b230fe2536a31b3b4c86565edbd5950432c1b4ac625 t/data/ex1.xml
SHA256 d1b62fe65744b82e2c313e63a2fb0229fd662adfdc4b20fb7ae6cbe5ee9fd621 t/data/ex1.xml.bz2
SHA256 a8f9541bbf8addff6f7daafc8a1084c7fcce33f68afa7f9d0b52861b3034edc4 t/data/ex2.xml
App-MARC-Leader
view release on metacpan or search on metacpan
Hash: RIPEMD160
SHA256 682cad5bedd506831d7f447b2edbfeb26e5a5a621a5cc4d72566de4d0d17824b CONCEPT
SHA256 811d8c15c91f77ca59c1edf4face9d39a2fe09d01c6936a9102d7441a31db1ac Changes
SHA256 f73776fe059c9a51e0c2c83bcb0c07d4ffac9aae7129153060fb38ef819757d1 LICENSE
SHA256 c16e8d15c23756dc4288cd653f87a66daa4cb4ef8f58d547d21180a408a4043a Leader.pm
SHA256 ab39cd1748578b8ae5b5926703124dc8c3911b2bcf24bed01fef921d44dd4cca MANIFEST
SHA256 240e8b822c28f93b8ff373a88534215d594762f3e2c2540ba3bc1620f3502525 META.yml
SHA256 95f198cba782328b32bc8cbc15ac5a051d996ccfbc5861c220974d1fb00347f4 Makefile.PL
SHA256 4d33a4d671e0d36e14ff949c14264b0f1191a981f93057631fd2ec4f3d08cfed README
SHA256 1850069aa4f227158cfffd525ef6675454e4fcff699de274889be7f951011d78 bin/marc-leader
App-MARC-Validator-Report
view release on metacpan or search on metacpan
SHA256 53825bc78e4c910b888160bc148c8bc211be58e02b99c8edcbf4854f95faa049 inc/Module/Install/ReadmeFromPod.pm
SHA256 63ec8405523ae67c33823dcf4b136a46f0711fb17a8b58b49ddd922ed6b69611 inc/Module/Install/Scripts.pm
SHA256 4c746c02c5cc19bed4c352e76205b4adff4c45ce8310d71294e1b83c059659c2 inc/Module/Install/Win32.pm
SHA256 d3d9b4583243c470ae895defa4c44564485b53693cba1c50ab0320768f443e97 inc/Module/Install/WriteAll.pm
SHA256 53cbbfdf876c296bab79e1f243a4f4cd26f8f3d6fc109a83b01805984393bbb3 t/App-MARC-Validator-Report/01-use.t
SHA256 44042276a9b51ffc63a134bb49b48772c32fe1913a036174124dfd50612bb047 t/App-MARC-Validator-Report/02-version.t
SHA256 9e462464686a3a91b92a24ded044c41aa882f868aa40fcc74b906a5d8a641bdd t/App-MARC-Validator-Report/03-new.t
SHA256 58cc502df5da5c3ad578c3491f94de61041a3892efe7eefc777382bc9b5b3578 t/App-MARC-Validator-Report/04-run.t
SHA256 c86d0ceddedcf94132273d485f1a77586092b3ee9c061b14a700bdf09eafef0a t/data/bad_report1.json
SHA256 9e2281562a45ae1f1a52c53b432eb82fa8b476b7b31bbd88e31d2690969e736a t/data/bad_report2.json
SHA256 83a335a1f40a737713e6ba95a51cc399c0618375da11f72486fee16c4d9d7be2 t/data/cnb000126664.json
App-MBUtiny
view release on metacpan or search on metacpan
eg/server.cgi view on Meta::CPAN
print get_list($file);
} else {
print $q->header(
-type => CONTENT_TYPE,
-charset => 'utf-8',
-status => '404 Not Found',
);
print "Not Found";
}
} elsif ($meth eq 'HEAD') { # lwp-request -E -m HEAD "http://localhost/mbuserver/foo/bar/test.txt"
my $file = File::Spec->catfile($root, $path);
eg/server.cgi view on Meta::CPAN
print $q->header(-type => CONTENT_TYPE, -charset => 'utf-8', -content_length => length($content));
} else {
print $q->header(
-type => CONTENT_TYPE,
-charset => 'utf-8',
-status => '404 Not Found',
);
}
} elsif ($meth eq 'PUT') { # lwp-request -E -m PUT -c "application/octet-stream" "http://localhost/mbuserver/foo/bar/test.txt" < test.txt
# Get filename
my ($volume, $directories, $file) = File::Spec->splitpath( $path );
eg/server.cgi view on Meta::CPAN
print "Method Not Allowed";
} else {
print $q->header(
-type => CONTENT_TYPE,
-charset => 'utf-8',
-status => '404 Not Found',
);
print "Not Found";
}
} else {
print $q->header(
App-MFILE-WWW
view release on metacpan or search on metacpan
share/js/core/jquery-3.2.1.js view on Meta::CPAN
/*! jQuery v3.2.1 | (c) JS Foundation and other contributors | jquery.org/license */
!function(a,b){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof windo...
a.removeEventListener("load",S),r.ready()}"complete"===d.readyState||"loading"!==d.readyState&&!d.documentElement.doScroll?a.setTimeout(r.ready):(d.addEventListener("DOMContentLoaded",S),a.addEventListener("load",S));var T=function(a,b,c,d,e,f,g){var...
null==d?void 0:d))},attrHooks:{type:{set:function(a,b){if(!o.radioValue&&"radio"===b&&B(a,"input")){var c=a.value;return a.setAttribute("type",b),c&&(a.value=c),b}}}},removeAttr:function(a,b){var c,d=0,e=b&&b.match(L);if(e&&1===a.nodeType)while(c=e[d...
App-MHFS
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'}) {
App-MP4Meta
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
App-Map-Metro
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;
}
App-MetaCPANUtils
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};
App-Mimosa
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.
App-MineralUtils
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",
},
{
App-ModuleFeaturesUtils
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}];
}
}
App-MojoSlides
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...
App-MonM
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
App-Mowyw
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
App-MtAws
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;
App-Music-PlayTab
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
App-Mxpress-PDF
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
App-Netdisco
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( _port_param($$params{port}), uri_unescape($$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( _port_param($$params{port}), uri_unescape($$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( _port_param($$params{port}), uri_unescape($$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'],
App-Netsync
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 }
App-NoodlePay
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) {
App-Nopaste
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
App-Notes
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
App-PAUSE-TimeMachine
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};
App-PDF-Link
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
App-PDFUtils
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});
App-PMUtils
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 {
App-PODUtils
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>;
( run in 2.620 seconds using v1.01-cache-2.11-cpan-788537b7465 )