view release on metacpan or search on metacpan
SHA1 9d23f7efe7217d113889cdb3dc84b9d473069e1f README
SHA1 9029d10c37ad361e0582c4f88e44d1a9602c0458 README.apache-2.4.pod
SHA1 2ba7c70bf5de1d9faa51f6c9377af729f4dcb3ce TODO
SHA1 d1e695706bce96eb8b23c4f022e9819d9dae2ea1 lib/Apache/AuthTicket.pm
SHA1 b06bfd3a9979902eb53cf923e2c6c8bb9a0a8ab8 lib/Apache/AuthTicket/Base.pm
SHA1 1b5e3e88012610655b52c94f97fd40432998662c lib/Apache2/AuthTicket.pm
SHA1 5c582e555b7a769a5426c9594986503204db047c sample/apache.conf
SHA1 43aa0abcaeb4b81a674bf4fe1e86283f11a1fa2b sample/apache2.conf
SHA1 bfed0aca630ec73296e56764a3f8f0e95976e2a4 sample/mysql.sql
SHA1 9b9c1209bcb8dab96718617324684794cc000e2a sample/pgsql.sql
SHA1 cf09a993ef33cb3f9c7d00245a3ea81c3f5799f2 scripts/perlbrew-smoke
view all matches for this distribution
view release on metacpan or search on metacpan
passwd_srv.pl view on Meta::CPAN
if ($rcode == $Net::NIS::YP_SUCCESS) {
return(1);
}
if ($rcode == $Net::NIS::ERR_ACCESS) { print "403 Access violation\n"; }
elsif ($rcode == $Net::NIS::ERR_KEY) { print "404 No such key in map\n"; }
elsif ($rcode == $Net::NIS::ERR_BADARGS){ print "501 Args to function are bad\n"; }
elsif ($rcode == $Net::NIS::ERR_BADDB) { print "502 YP data base is bad\n"; }
elsif ($rcode == $Net::NIS::ERR_BUSY) { print "503 Database is busy\n"; }
elsif ($rcode == $Net::NIS::ERR_DOMAIN) { print "504 Can't bind to a server which serves this domain\n"; }
elsif ($rcode == $Net::NIS::ERR_MAP) { print "505 No such map in server's domain\n"; }
view all matches for this distribution
view release on metacpan or search on metacpan
examples/batik3D.svg view on Meta::CPAN
<stop offset="0.6124" style="stop-color:#262044"/>
<stop offset="1" style="stop-color:#000000"/>
</radialGradient>
<path style="opacity:0.65;fill:url(#aigrd3);stroke:none;" d="M331.134,618.467c-16.178-9.131-37.029-6.313-62.569,8.465c-15.656,9.061-28.994,21.36-40.032,36.904c-11.03,15.537-18.335,32.283-21.906,50.239c-0.415,2.237-1.046,5.439-1.894,9.601
c-4.943,25.854-10.678,40.66-17.207,44.438c-3.463,2.003-6.178,2.002-8.126-0.026c-1.947-2.018-2.921-5.919-2.921-11.704c0-7.565,1.56-16.268,4.662-26.108c3.104-9.829,7.603-20.441,13.492-31.837l-60.586,9.803c-7.07,17.15-12.346,33.156-15.827,48.015
c-3.48,14.867-5.23,28.931-5.23,42.199c0,28.851,7.801,47.663,23.394,56.438c15.602,8.77,35.831,5.959,60.694-8.429c16.017-9.268,29.399-21.594,40.15-36.997c10.749-15.404,18.226-32.972,22.438-52.708c0.631-3.312,1.533-7.929,2.687-13.856
c3.373-18.247,8.262-29.229,14.683-32.943c3.679-2.131,6.601-2.184,8.757-0.169c2.164,2.019,3.237,5.871,3.237,11.557c0,8.118-1.921,17.941-5.763,29.483c-3.841,11.552-9.92,25.68-18.235,42.385l64.581-10.714c8.604-20.145,15.052-39.052,19.345-56.702
s6.448-34.073,6.448-49.24c0-29.602-8.09-48.961-24.269-58.093z"/>
<radialGradient id="aigrd4" cx="357" cy="543.022" r="484.1474" fx="357" fy="543.022" gradientUnits="userSpaceOnUse">
<stop offset="0" style="stop-color:#FFFFFF"/>
<stop offset="0.3427" style="stop-color:#472EBF"/>
examples/batik3D.svg view on Meta::CPAN
c1.069-1.072,2.464-1.111,4.186-0.114c0.889,0.515,1.697,1.21,2.424,2.085c0.728,0.876,1.4,1.971,2.021,3.286v-2.271l6.655,3.851v17.111l-6.407-3.707z M763.455,252.331c0,0.727,0.166,1.409,0.496,2.045c0.331,0.638,0.767,1.113,1.306,1.425
c0.552,0.319,0.989,0.353,1.315,0.101s0.49-0.747,0.49-1.484c0-0.748-0.167-1.444-0.498-2.086c-0.331-0.643-0.767-1.121-1.308-1.434c-0.539-0.313-0.975-0.336-1.306-0.071c-0.331,0.265-0.496,0.767-0.496,1.505z"/>
<path style="fill:url(#aigrd9);stroke:none;" d="M777.566,269.097v-10.795l-1.981-1.147v-6.314l1.981,1.146v-5.645l6.952,4.022v5.645l1.982,1.147v6.315l-1.982-1.147v10.795l-6.952-4.022z"/>
<path style="fill:url(#aigrd9);stroke:none;" d="M795.884,257.234c0,1.227-0.338,2.006-1.014,2.339c-0.676,0.333-1.589,0.167-2.737-0.498c-1.158-0.671-2.079-1.568-2.765-2.695c-0.685-1.125-1.026-2.295-1.026-3.51s0.337-1.978,1.015-2.288
c0.674-0.311,1.6-0.126,2.776,0.555c1.167,0.675,2.083,1.556,2.75,2.644c0.667,1.087,1,2.239,1,3.453z M788.637,275.502v-17.111l6.951,4.023v17.11l-6.951-4.022z"/>
<path style="fill:url(#aigrd18);stroke:none;" d="M798.736,281.346v-25.648l6.893,3.988v15.074l2.928-4.842l8.164,4.725l-5.095,5.276l5.361,11.988l-8.239-4.767l-3.12-8.209v6.404l-6.893-3.988z"/>
</g>
</g>
<g id="Flying_x0020_Text" style="fill-rule:nonzero;clip-rule:nonzero;fill:#6C54DE;stroke:#000000;stroke-miterlimit:4;">
<path style="fill:none;stroke:#FFFFFF;" d="M819.707,951.325l-430-248.26L389,54.891l430,248.261l0.707,648.173z"/>
<path style="fill:none;stroke:#FFFFFF;stroke-width:1.1556;" d="M369.666,53.265v713.131l-265.503,153.63V206.893L369.666,53.265z"/>
examples/batik3D.svg view on Meta::CPAN
c0.147,0.324,0.041,0.594-0.319,0.813c-0.243,0.148-0.543,0.229-0.904,0.242c-0.36,0.016-0.713-0.044-1.058-0.169z"/>
<path d="M224.618,872.843l-3.122-4.239c-0.504,0.308-0.888,0.463-1.154,0.467c-0.583,0.006-1.054-0.089-1.41-0.284c-0.357-0.195-0.542-0.417-0.553-0.663c-0.014-0.244,0.232-0.52,0.735-0.826l2.569-1.563c0.504-0.309,0.971-0.465,1.395-0.471
c0.425-0.006,0.816,0.089,1.172,0.287c0.356,0.193,0.541,0.416,0.554,0.66c0.012,0.246-0.234,0.523-0.74,0.831l-0.335,0.203l4.821,6.546l-2.094,1.275l-11.552-2.449l-0.293,0.178c-0.506,0.311-0.971,0.465-1.396,0.471c-0.425,0.006-0.816-0.089-1.172-0.285
c-0.357-0.196-0.542-0.416-0.553-0.662c-0.013-0.245,0.233-0.522,0.74-0.829l2.525-1.539c0.504-0.308,0.968-0.463,1.393-0.467c0.424-0.005,0.815,0.09,1.172,0.285c0.356,0.195,0.543,0.458,0.56,0.785c0.008,0.162-0.24,0.399-0.742,0.705l7.479,1.585z"/>
<path d="M231.928,860.331l-0.721-0.396l2.346-1.428c0.509-0.31,0.976-0.468,1.401-0.473c0.425-0.005,0.814,0.09,1.171,0.285s0.542,0.417,0.554,0.662c0.012,0.245-0.237,0.523-0.745,0.832l-0.335,0.206l8.689,4.772c0.839,0.461,1.422,0.953,1.749,1.477
c0.328,0.525,0.408,1.099,0.244,1.721c-0.165,0.621-0.633,1.167-1.404,1.637l-2.277,1.387c-0.484,0.296-0.939,0.443-1.366,0.449c-0.428,0.002-0.815-0.091-1.163-0.281c-0.357-0.196-0.542-0.419-0.555-0.666c-0.016-0.245,0.221-0.518,0.706-0.813l2.223-1.352
c0.615-0.377,0.895-0.774,0.839-1.197c-0.057-0.422-0.388-0.8-0.991-1.131l-1.16-0.637c-0.107,0.456-0.306,0.872-0.598,1.246c-0.293,0.374-0.681,0.709-1.165,1.003c-1.369,0.834-3.055,1.233-5.062,1.2c-2.006-0.032-3.806-0.485-5.398-1.36
c-1.599-0.879-2.479-1.896-2.639-3.055c-0.161-1.156,0.443-2.151,1.812-2.984c0.51-0.312,1.084-0.558,1.722-0.742c0.638-0.184,1.345-0.307,2.125-0.362z M236.504,862.845c-0.881-0.485-1.919-0.737-3.114-0.76c-1.195-0.021-2.176,0.201-2.945,0.668
c-0.767,0.468-1.102,1.047-1.002,1.736c0.098,0.688,0.589,1.275,1.469,1.757c0.89,0.488,1.929,0.744,3.121,0.764c1.191,0.02,2.17-0.204,2.938-0.672c0.767-0.467,1.105-1.044,1.009-1.731c-0.095-0.688-0.587-1.276-1.476-1.762z"/>
<path d="M247.004,854.697l-10.87,1.619c-0.547,0.085-0.96,0.116-1.239,0.093c-0.278-0.027-0.548-0.112-0.806-0.255c-0.328-0.181-0.509-0.396-0.543-0.65c-0.034-0.253,0.086-0.464,0.361-0.631c0.17-0.103,0.544-0.2,1.123-0.293l16.108-2.395l-3.323,9.416
c-0.121,0.345-0.267,0.567-0.437,0.671c-0.275,0.169-0.632,0.249-1.072,0.241c-0.439-0.006-0.827-0.101-1.164-0.286c-0.259-0.144-0.417-0.293-0.476-0.454c-0.057-0.159-0.025-0.396,0.095-0.721l2.243-6.355z"/>
examples/batik3D.svg view on Meta::CPAN
<path d="M334.959,824.643l5.355,2.942c0.111-0.506,0.324-0.966,0.641-1.379s0.734-0.777,1.25-1.091c1.393-0.848,3.141-1.252,5.246-1.217c2.105,0.036,3.962,0.496,5.573,1.382c1.539,0.845,2.366,1.832,2.477,2.962c0.112,1.128-0.588,2.151-2.098,3.07
c-0.536,0.325-1.134,0.595-1.794,0.807c-0.66,0.214-1.381,0.372-2.166,0.48l0.598,0.329l-2.345,1.428c-0.509,0.308-0.977,0.467-1.401,0.472c-0.424,0.008-0.816-0.089-1.171-0.285c-0.357-0.196-0.541-0.416-0.555-0.662c-0.012-0.245,0.236-0.523,0.745-0.835
l0.334-0.202l-10.32-5.668l-0.335,0.204c-0.509,0.307-0.976,0.466-1.4,0.472c-0.425,0.006-0.816-0.091-1.171-0.285c-0.357-0.195-0.542-0.417-0.556-0.661c-0.012-0.248,0.236-0.524,0.746-0.834l2.345-1.429z M351.083,826.541c-0.982-0.539-2.104-0.819-3.367-...
c-1.261-0.02-2.315,0.228-3.157,0.739c-0.837,0.509-1.205,1.13-1.106,1.856c0.099,0.729,0.627,1.354,1.586,1.881c0.875,0.479,1.853,0.717,2.937,0.707c1.083-0.011,2.103-0.307,3.058-0.888c0.953-0.581,1.413-1.186,1.379-1.813
c-0.035-0.628-0.478-1.175-1.33-1.644z"/>
<path d="M366.46,822.934l-0.571-0.313c-0.188,0.481-0.509,0.948-0.962,1.404c-0.453,0.456-0.925,0.836-1.423,1.141c-1.081,0.657-2.295,1.007-3.643,1.047s-2.431-0.163-3.248-0.614c-0.995-0.546-1.487-1.313-1.477-2.307c0.009-0.99,0.772-1.95,2.293-2.873
c0.608-0.371,1.389-0.756,2.341-1.159l-0.573-0.315c-0.359-0.196-0.783-0.28-1.268-0.246c-0.487,0.033-1.094,0.271-1.822,0.715c-0.596,0.361-1.231,0.912-1.903,1.643c-0.252,0.271-0.478,0.467-0.676,0.588c-0.27,0.163-0.614,0.241-1.03,0.23
c-0.417-0.012-0.803-0.115-1.159-0.311c-0.202-0.111-0.342-0.229-0.424-0.347c-0.082-0.121-0.109-0.241-0.08-0.363c0.03-0.122,0.169-0.329,0.419-0.623c0.334-0.396,0.713-0.776,1.135-1.144c0.421-0.368,0.842-0.682,1.261-0.938
c1.254-0.762,2.544-1.177,3.876-1.247s2.551,0.197,3.66,0.81l4.905,2.691l0.334-0.204c0.509-0.31,0.976-0.468,1.4-0.472c0.425-0.006,0.815,0.089,1.172,0.286c0.356,0.194,0.541,0.417,0.553,0.661c0.013,0.245-0.235,0.523-0.744,0.833l-2.346,1.428z
M362.196,820.593c-0.99,0.39-1.827,0.793-2.509,1.206c-0.82,0.501-1.291,1.059-1.414,1.675c-0.068,0.388,0.051,0.666,0.357,0.833c0.223,0.123,0.492,0.166,0.807,0.136c0.581-0.061,1.157-0.265,1.728-0.613c0.485-0.293,0.923-0.689,1.314-1.186
c0.391-0.494,0.634-0.993,0.729-1.495l-1.013-0.556z"/>
examples/batik3D.svg view on Meta::CPAN
c0.427-0.004,0.818,0.093,1.175,0.289c0.349,0.189,0.53,0.41,0.545,0.656c0.014,0.249-0.221,0.517-0.705,0.813z M623.375,695.757l-8.598,5.232c-0.485,0.295-0.938,0.446-1.361,0.454c-0.422,0.005-0.811-0.089-1.168-0.285c-0.356-0.196-0.542-0.418-0.557-0.6...
c-0.015-0.248,0.221-0.519,0.705-0.813l8.597-5.234c0.485-0.294,0.94-0.444,1.366-0.447c0.427-0.005,0.819,0.091,1.176,0.287c0.356,0.196,0.54,0.416,0.55,0.66c0.011,0.243-0.226,0.515-0.71,0.809z"/>
<path d="M616.656,687.063l2.575-1.567l5.079,3.517c0.262,0.183,0.398,0.34,0.406,0.469c0.01,0.13-0.072,0.246-0.242,0.35c-0.177,0.106-0.375,0.161-0.597,0.161c-0.221-0.001-0.491-0.07-0.811-0.208l-6.41-2.721z M620.823,684.527l2.575-1.568l5.079,3.517
c0.263,0.183,0.4,0.338,0.411,0.465c0.013,0.127-0.071,0.246-0.247,0.352c-0.177,0.109-0.375,0.162-0.598,0.162c-0.221,0-0.491-0.07-0.811-0.206l-6.41-2.721z"/>
<path d="M641.445,679.406c1.076-0.1,2.077-0.063,3.002,0.104c0.925,0.168,1.782,0.467,2.564,0.898c0.845,0.465,1.432,1.012,1.759,1.643c0.329,0.633,0.306,1.273-0.065,1.927c-0.372,0.652-1.158,1.343-2.354,2.071c-1.559,0.95-3.018,1.505-4.379,1.669
c-0.763,0.086-1.373,0.007-1.821-0.24c-0.343-0.187-0.536-0.404-0.579-0.651c-0.043-0.248,0.072-0.456,0.347-0.624c0.19-0.115,0.464-0.19,0.823-0.23c0.524-0.046,0.952-0.125,1.287-0.238c0.502-0.178,1.097-0.479,1.785-0.896c1.172-0.714,1.84-1.33,2.003-1....
c0.163-0.518-0.085-0.957-0.747-1.32c-0.489-0.27-1.113-0.437-1.872-0.5c-0.76-0.065-1.518-0.011-2.276,0.164c-0.434,0.103-1.029,0.352-1.783,0.747c-0.356,0.19-0.734,0.279-1.134,0.269c-0.399-0.009-0.761-0.106-1.084-0.282c-0.34-0.187-0.526-0.403-0.561-...
c-0.035-0.246,0.097-0.462,0.398-0.646c0.667-0.405,1.021-0.624,1.058-0.656c0.231-0.177,0.393-0.391,0.484-0.644c0.091-0.255,0.068-0.51-0.069-0.771c-0.139-0.26-0.366-0.479-0.683-0.652c-0.504-0.278-1.126-0.4-1.871-0.374c-0.744,0.026-1.493,0.27-2.245,...
c-0.969,0.588-1.378,1.224-1.227,1.894c0.042,0.198,0.044,0.341,0.005,0.425c-0.052,0.132-0.164,0.247-0.334,0.353c-0.275,0.166-0.627,0.245-1.056,0.236c-0.429-0.006-0.813-0.104-1.154-0.293c-0.534-0.291-0.753-0.76-0.655-1.404
c0.141-0.937,0.869-1.808,2.186-2.607c1.242-0.756,2.659-1.135,4.248-1.134c1.589,0.002,2.973,0.327,4.15,0.974c0.612,0.338,1.072,0.719,1.381,1.144c0.307,0.429,0.465,0.9,0.468,1.419z"/>
<path d="M654.152,670.653l2.617,1.436c1.55,0.851,2.654,1.898,3.316,3.138c0.661,1.241,0.287,2.288-1.124,3.147c-0.814,0.496-1.712,0.797-2.695,0.906c-0.982,0.111-2.293,0.008-3.931-0.313c-1.637-0.318-3.09-0.827-4.361-1.524l-2.618-1.438
c-1.541-0.845-2.646-1.891-3.316-3.131c-0.667-1.24-0.297-2.29,1.115-3.148c0.806-0.49,1.698-0.791,2.678-0.906c0.979-0.109,2.29-0.006,3.935,0.307c1.644,0.315,3.105,0.824,4.384,1.527z M652.14,671.875c-1.294-0.71-2.731-1.148-4.315-1.307
c-0.885-0.079-1.643,0.072-2.275,0.456c-0.612,0.374-0.818,0.84-0.618,1.401c0.304,0.848,1.117,1.631,2.435,2.355l2.618,1.438c1.302,0.716,2.745,1.149,4.326,1.301c0.876,0.084,1.635-0.067,2.275-0.456c0.605-0.37,0.808-0.833,0.608-1.394
c-0.306-0.848-1.118-1.633-2.435-2.357l-2.619-1.438z"/>
examples/batik3D.svg view on Meta::CPAN
<path d="M480.288,891.639l-27.513-14.832l11.012-6.823c2.351-1.456,4.846-2.237,7.483-2.341c2.638-0.105,5.133,0.477,7.486,1.746c1.501,0.809,2.438,1.673,2.81,2.598c0.372,0.922,0.138,1.817-0.702,2.685c1.949-0.757,3.845-1.08,5.689-0.976
c1.844,0.11,3.675,0.653,5.493,1.634c2.572,1.388,3.788,2.881,3.649,4.486c-0.138,1.604-1.614,3.275-4.427,5.02l-10.98,6.804z M467.061,875.542l3.845,2.074l1.092-0.679c0.675-0.418,1.024-0.826,1.046-1.223c0.022-0.398-0.28-0.765-0.905-1.103
c-0.624-0.337-1.277-0.482-1.955-0.438s-1.356,0.273-2.031,0.69l-1.092,0.678z M476.793,880.788l4.445,2.396l1.393-0.862c0.828-0.512,1.271-1.009,1.33-1.494c0.059-0.484-0.266-0.916-0.975-1.302c-0.722-0.388-1.496-0.547-2.321-0.476
c-0.825,0.072-1.651,0.364-2.479,0.874l-1.392,0.864z"/>
<path d="M513.589,871.006l-2.94-1.584c0.465,1.162,0.563,2.171,0.297,3.025c-0.268,0.853-0.919,1.602-1.958,2.245c-1.89,1.172-4.413,1.627-7.567,1.367c-3.155-0.259-6.238-1.201-9.25-2.823c-3.148-1.697-5.074-3.438-5.779-5.224
c-0.706-1.787-0.082-3.282,1.872-4.493c1.008-0.624,2.181-1.054,3.523-1.284c1.342-0.231,2.906-0.273,4.695-0.124l-2.579-1.392l7.538-4.669l19.404,10.462l-7.256,4.493z M499.473,868.439c0.819,0.44,1.667,0.683,2.546,0.718c0.879,0.04,1.625-0.133,2.24-0.5...
c0.625-0.388,0.875-0.83,0.75-1.327s-0.603-0.97-1.434-1.418c-0.843-0.454-1.709-0.702-2.593-0.744c-0.887-0.04-1.636,0.129-2.25,0.511c-0.615,0.381-0.852,0.825-0.714,1.336c0.138,0.512,0.624,0.989,1.455,1.438z"/>
<path d="M525.219,863.801l-12.255-6.605l-2.261,1.4l-7.149-3.854l2.262-1.4l-6.428-3.465l7.888-4.889l6.428,3.465l2.262-1.4l7.149,3.853l-2.262,1.402l12.255,6.608l-7.889,4.886z"/>
<path d="M520.488,837.235c1.393,0.752,2.117,1.584,2.172,2.502c0.057,0.917-0.567,1.778-1.867,2.584c-1.311,0.813-2.769,1.235-4.373,1.271c-1.604,0.034-3.095-0.32-4.474-1.064c-1.38-0.744-2.086-1.566-2.116-2.47c-0.03-0.905,0.619-1.769,1.951-2.596
c1.322-0.817,2.759-1.246,4.311-1.284c1.551-0.039,3.016,0.314,4.396,1.058z M537.756,856.033l-19.403-10.46l7.889-4.888l19.404,10.461l-7.89,4.887z"/>
<path d="M549.209,848.938l-29.076-15.675l7.79-4.826l17.084,9.21l-4.096-6.051l9.246-5.728l3.556,8.604l16.149,1.669l-9.331,5.781l-10.795-1.726l7.262,3.915l-7.789,4.826z"/>
</g>
<g id="CSS_XSL" style="fill:#CF0E00;stroke:none;">
<path d="M475.61,949.512c-0.75,0.024-1.409,0.108-1.979,0.247c-0.569,0.139-1.057,0.34-1.464,0.604c-0.673,0.435-0.986,0.895-0.942,1.38s0.433,0.916,1.164,1.293c0.7,0.358,1.465,0.526,2.297,0.502s1.557-0.237,2.177-0.639c0.389-0.251,0.675-0.558,0.859-0....
c0.183-0.364,0.27-0.779,0.259-1.247l6.632,3.409c-0.279,0.653-0.642,1.237-1.085,1.751c-0.446,0.512-0.975,0.969-1.593,1.366c-1.014,0.657-2.16,1.156-3.438,1.503c-1.278,0.344-2.656,0.524-4.135,0.541c-1.568,0.012-3.084-0.144-4.55-0.469
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/AxKit/Plugin/NotFoundIfPathInfo.pm view on Meta::CPAN
1;
__END__
=head1 NAME
Apache::AxKit::Plugin::NotFoundIfPathInfo - return 404 (NOT FOUND) if
PATH_INFO is present.
=head1 SYNOPSIS
AxAddPlugin Apache::AxKit::Plugin::NotFoundIfPathInfo
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/AxKit/Plugin/Upload.pm view on Meta::CPAN
To see if an upload is already running, call:
Apache::AxKit::Plugin::Upload::is_running($r,$id)
In some constellations, the upload progress bar won't appear or shows a 404. This
highly depends on your file layout. To fix that problem, create a tiny script that does:
Apache::AxKit::Plugin::Upload::init($r,$id)
if (!Apache::AxKit::Plugin::Upload::is_running($r,$id));
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/CGI/Builder.pm view on Meta::CPAN
; goto &CGI::Builder::import
}
; use Class::props
{ name => 'no_page_content_status'
, default => '404 Not Found'
}
; use Object::props
{ name => 'r'
, default => sub{ Apache->request }
lib/Apache/CGI/Builder.pm view on Meta::CPAN
=head1 CBF Overriding
=head2 CBF no_page_content_status
This extension overrides this class property by just changing the '204 No Content' (that the CBF sets when no page_content has been produced by the process), with a more consistent '404 Not Found' status. It does so because the client is requesting a...
=head1 Selfloading Perl*Handlers
The CBB that uses this module, will have a special feature: a sort of Selfloading of Perl*Handlers.
view all matches for this distribution
view release on metacpan or search on metacpan
t/httpd02.conf view on Meta::CPAN
# 1) plain text
#ErrorDocument 500 "The server made a boo boo.
# n.b. the single leading (") marks it as text, it does not get output
#
# 2) local redirects
#ErrorDocument 404 /missing.html
# to redirect to local URL /missing.html
#ErrorDocument 404 /cgi-bin/missing_handler.pl
# N.B.: You can redirect to a script or a document using server-side-includes.
#
# 3) external redirects
#ErrorDocument 402 http://some.other_server.com/subscription_info.html
# N.B.: Many of the environment variables associated with the original
view all matches for this distribution
view release on metacpan or search on metacpan
0.03 Thu Aug 15 15:17:48 JST 2002
- First C<CustomKeyword> is used when command match fails
0.02 Wed Aug 7 17:48:25 JST 2002
- Now single word like "google" works
- Displays error message rather than 404
0.01 Tue Aug 6 21:35:37 2002
- original version
view all matches for this distribution
view release on metacpan or search on metacpan
xs/Apache/DAV/WalkerCtx/WalkerCtx.xs view on Meta::CPAN
obj -> doc = (dav_xml_doc *)davxs_sv2_Apache__DAV__XMLDoc((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
}
if ((tmpsv = hv_fetch((HV *)item, "propfind_type", sizeof("propfind_type") - 1, 0)) || overwrite) {
obj -> propfind_type = (int)davxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
}
if ((tmpsv = hv_fetch((HV *)item, "propstat_404", sizeof("propstat_404") - 1, 0)) || overwrite) {
obj -> propstat_404 = (dav_text *)davxs_sv2_Apache__DAV__Text((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
}
if ((tmpsv = hv_fetch((HV *)item, "is_move", sizeof("is_move") - 1, 0)) || overwrite) {
obj -> is_move = (int)davxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
}
if ((tmpsv = hv_fetch((HV *)item, "if_header", sizeof("if_header") - 1, 0)) || overwrite) {
xs/Apache/DAV/WalkerCtx/WalkerCtx.xs view on Meta::CPAN
RETVAL
MODULE = Apache::DAV::WalkerCtx PACKAGE = Apache::DAV::WalkerCtx
Apache::DAV::Text
propstat_404(obj, val=NULL)
Apache::DAV::WalkerCtx obj
Apache::DAV::Text val
PREINIT:
/*nada*/
CODE:
RETVAL = (Apache__DAV__Text) obj->propstat_404;
if (items > 1) {
obj->propstat_404 = (Apache__DAV__Text) val;
}
OUTPUT:
RETVAL
MODULE = Apache::DAV::WalkerCtx PACKAGE = Apache::DAV::WalkerCtx
view all matches for this distribution
view release on metacpan or search on metacpan
handler is not exported.
Expected Codes:
0 OK
404 File Not Found
500 Server Error
404 could not find, open, etc... file
500 missing closing embedded perl bracket
embedded perl has an error
When a 500 error is returned, a warning will be issued to STDERR providing
details about the error.
sub embedded {
my ($class,$r,$file,@args) = @_;
my $lineno = 0;
local *F;
my $line;
(-e $file && open(F,$file)) or return 404;
READLINE:
while (defined ($line = <F>)) {
$lineno++;
if ($line =~ /^\s*\<\!--\s+perl\s*/) {
(my $perl = $0) =~ s/::/_/g;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Emulator/Apache/Constants.pm view on Meta::CPAN
SERVER_ERROR);
sub OK { 0 }
sub DECLINED { -1 }
sub DONE { -2 }
sub NOT_FOUND { 404 }
sub FORBIDDEN { 403 }
sub AUTH_REQUIRED { 401 }
sub SERVER_ERROR { 500 }
my(@methods) = qw(M_CONNECT
lib/Apache/Emulator/Apache/Constants.pm view on Meta::CPAN
use constant HTTP_MOVED_PERMANENTLY => 301;
use constant HTTP_METHOD_NOT_ALLOWED => 405;
use constant HTTP_NOT_MODIFIED => 304;
use constant HTTP_UNAUTHORIZED => 401;
use constant HTTP_FORBIDDEN => 403;
use constant HTTP_NOT_FOUND => 404;
use constant HTTP_BAD_REQUEST => 400;
use constant HTTP_INTERNAL_SERVER_ERROR => 500;
use constant HTTP_NOT_ACCEPTABLE => 406;
use constant HTTP_NO_CONTENT => 204;
use constant HTTP_PRECONDITION_FAILED => 412;
view all matches for this distribution
view release on metacpan or search on metacpan
ErrorControl.pm view on Meta::CPAN
}
my $notes = ($r->prev()) ? $r->prev()->notes() : undef;
# set the current error_code's TMPL_IF on (if the TMPL_IF exists)
# i.e. <TMPL_IF NAME="404">
if (exists $params{$self->{error_code}}) {
$tmpl->param( $self->{error_code} => TRUE );
} elsif (exists $params{'unknown_error'}) {
$tmpl->param( unknown_error => TRUE );
}
# set the error_code TMPL_VAR
# i.e. <TMPL_VAR NAME="error_code"> (which is substituted with 404)
if (exists $params{error_code}) {
$tmpl->param( error_code => $self->{error_code} );
}
# set the error_note if its defined
if (exists $params{'error_notes'}
ErrorControl.pm view on Meta::CPAN
ErrorDocument 400 /error
ErrorDocument 401 /error
ErrorDocument 402 /error
ErrorDocument 403 /error
ErrorDocument 404 /error
ErrorDocument 500 /error
in your template (allerrors.tmpl):
<TMPL_SET NAME="webmaster_email">dj@boxen.net</TMPL_SET>
ErrorControl.pm view on Meta::CPAN
<HEAD>
<TITLE>Error <TMPL_VAR NAME="error_code"></TITLE>
</HEAD>
<BODY>
<TMPL_IF NAME="404">
<H1>Error 404: File Not Found</H1>
<HR><BR>
<p>The file you were looking for is not here, we must have
deleted it - or you just might be mentally retarded</p>
</TMPL_IF>
ErrorControl.pm view on Meta::CPAN
<TMPL_VAR NAME="date">
=item *
B<error_code> - the I<error code>, i.e. 404, 403, 500 etc
<TMPL_VAR NAME="error_code">
=item *
ErrorControl.pm view on Meta::CPAN
defined for the I<error code> encountered the param B<unknown_error> is
turned on (obviously only if it too is defined).
personally I cant see why anyone would ever need B<unknown_error> but ive
added it here anyways.
<TMPL_IF NAME="404">
Error 404 - File Not Found
</TMPL_IF>
=item *
B<unknown_error> - if the B<*error_code*> is not defined as a TMPL_VAR or
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Gallery.pm view on Meta::CPAN
my $uri = $r->uri;
$uri =~ s/\/$//;
unless (-f $filename or -d $filename) {
show_error($r, 404, "404!", "No such file or directory: ".uri_escape($r->uri, $escape_rule));
return $::MP2 ? Apache2::Const::OK() : Apache::Constants::OK();
}
my $doc_pattern = $r->dir_config('GalleryDocFile');
unless ($doc_pattern) {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Hendrix.pm view on Meta::CPAN
# Find handlers for this type of request
my $handlers =
__PACKAGE__->handlers->{ $ENV{CONTEXT_PREFIX} }->{ $ENV{REQUEST_METHOD} };
# 404 if we don't have any
return Apache2::Const::NOT_FOUND if !$handlers;
# Check one by one to see if we have a match, either string or regexp
ROUTE:
for my $route ( @{$handlers} ) {
lib/Apache/Hendrix.pm view on Meta::CPAN
}
return $result;
}
} ## end ROUTE: for my $route ( @{$handlers...})
# No route found, we 404.
return Apache2::Const::NOT_FOUND;
} ## end sub handler
sub make_json {
my ( $r, $object ) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
ImageMagick.pm view on Meta::CPAN
$VERSION = '2.0b7' ;
# define constants here instead of use Apache::Constants qw(:common);to remove dependency
use constant OK => 0 ;
use constant NOT_FOUND => 404 ;
use constant SERVER_ERROR => 500 ;
use constant DECLINED => -1 ;
$packnum = 1 ;
$debug = 0 ;
view all matches for this distribution
view release on metacpan or search on metacpan
newSVrv|||
newSVsv|||
newSVuv|5.006000||p
newSV|||
newUNOP|||
newWHILEOP||5.004040|
newXSproto||5.006000|
newXS||5.006000|
new_collate||5.006000|
new_constant|||
new_ctype||5.006000|
view all matches for this distribution
view release on metacpan or search on metacpan
Author: Andrew Kirkpatrick <ubermonk@gmail.com>
Date : 2015-02-12 23:29:39 +0000
clarity in member names
Change: ee438bfd2e74048dfe1092f93d10241751ad7177
Author: Andrew Kirkpatrick <ubermonk@gmail.com>
Date : 2015-02-12 18:44:58 +0000
code cleanup and die on falsey format
view all matches for this distribution
view release on metacpan or search on metacpan
common => { # Interface methods common to all DBI handle classes
'DESTROY' => $keeperr,
'CLEAR' => $keeperr,
'EXISTS' => $keeperr,
'FETCH' => { O=>0x0404 },
'FIRSTKEY' => $keeperr,
'NEXTKEY' => $keeperr,
'STORE' => { O=>0x0418 | 0x4 },
_not_impl => undef,
can => { O=>0x0100 }, # special case, see dispatch
dump_handle => { U =>[1,3,'[$message [, $level]]'], O=>0x0004 },
err => $keeperr,
errstr => $keeperr,
state => $keeperr,
func => { O=>0x0006 },
parse_trace_flag => { U =>[2,2,'$name'], O=>0x0404, T=>8 },
parse_trace_flags => { U =>[2,2,'$flags'], O=>0x0404, T=>8 },
private_data => { U =>[1,1], O=>0x0004 },
set_err => { U =>[3,6,'$err, $errmsg [, $state, $method, $rv]'], O=>0x0010 },
trace => { U =>[1,3,'[$trace_level, [$filename]]'], O=>0x0004 },
trace_msg => { U =>[2,3,'$message_text [, $min_level ]' ], O=>0x0004, T=>8 },
swap_inner_handle => { U =>[2,3,'$h [, $allow_reparent ]'] },
selectrow_arrayref=>{U =>[2,0,'$statement [, \%attr [, @bind_params ] ]'], O=>0x2000 },
selectrow_hashref=>{ U =>[2,0,'$statement [, \%attr [, @bind_params ] ]'], O=>0x2000 },
selectall_arrayref=>{U =>[2,0,'$statement [, \%attr [, @bind_params ] ]'], O=>0x2000 },
selectall_hashref=>{ U =>[3,0,'$statement, $keyfield [, \%attr [, @bind_params ] ]'], O=>0x2000 },
selectcol_arrayref=>{U =>[2,0,'$statement [, \%attr [, @bind_params ] ]'], O=>0x2000 },
ping => { U =>[1,1], O=>0x0404 },
disconnect => { U =>[1,1], O=>0x0400|0x0800 },
quote => { U =>[2,3, '$string [, $data_type ]' ], O=>0x0430 },
quote_identifier=> { U =>[2,6, '$name [, ...] [, \%attr ]' ], O=>0x0430 },
rows => $keeperr,
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Logmonster.pm view on Meta::CPAN
my $spam_score = 0;
# check for spam quotient
if ( $data->{status} ) {
if ( $data->{status} == 404 ) { # check for 404 status
$spam_score++; # a 404 alone is not a sign of naughtiness
}
if ( $data->{status} == 412 ) { # httpd config slapping them
$spam_score++;
}
view all matches for this distribution
view release on metacpan or search on metacpan
} else {
# find the MP3 file that corresponds to basename.m3u
@matches = grep { m!/$basename[^/]*$! } @{$self->find_mp3s};
}
if($r->content_type eq 'audio/x-scpls'){
open(FILE,$r->filename) || return 404;
$r->send_fd(\*FILE);
close(FILE);
} else {
$self->send_playlist(\@matches);
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/No404Proxy/Mogile.pm view on Meta::CPAN
package Apache::No404Proxy::Mogile;
use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.1';
use base 'Apache::No404Proxy';
use MogileFS;
use LWP::UserAgent;
sub get_mogile_object {
lib/Apache/No404Proxy/Mogile.pm view on Meta::CPAN
1;
__END__
=head1 NAME
Apache::No404Proxy::Mogile - Implementation of Apache::No404Proxy
=head1 SYNOPSIS
# in httpd.conf
PerlTransHandler Apache::No404Proxy::Mogile
PerlSetVar MogileTracker 192.168.100.1:4100
PerlSetVar MogileDomain webservice_name
=head1 EXPORT
Apache::No404Proxy::Mogile is one of the implementations of
Apache::No404Proxy. This module uses MogileFS and LWP::UserAgent to fetch
content from mogile.
=head1 AUTHOR
Nick Gerakines, C<< <nick at gerakines.net> >>
=head1 SEE ALSO
L<Apache::No404Proxy>, L<Apache::No404Proxy::Google>, L<MogileFS>
=head1 COPYRIGHT & LICENSE
Copyright 2006 Nick Gerakines, all rights reserved.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/No404Proxy.pm view on Meta::CPAN
package Apache::No404Proxy;
use strict;
use vars qw($VERSION);
$VERSION = 0.05;
lib/Apache/No404Proxy.pm view on Meta::CPAN
my $res = LWP::UserAgent->new->simple_request($request);
$r->content_type($res->header('Content-type'));
my $body;
if ($res->code == 404 && ! $class->exclude($r->uri)) {
$body = $class->fetch($r);
unless ($body) {
require Apache::Log;
$r->log->error('Apache::No404Proxy: no cache found');
return NOT_FOUND;
}
} else {
$body = $res->content;
}
lib/Apache/No404Proxy.pm view on Meta::CPAN
sub fetch {
my($class, $r) = @_;
# Default to Google. Oddly enough delegating to my own child!
require Apache::No404Proxy::Google;
Apache::No404Proxy::Google->fetch($r);
}
1;
__END__
=head1 NAME
Apache::No404Proxy - 404 free Proxy
=head1 SYNOPSIS
# in httpd.conf
PerlTransHandler Apache::No404Proxy # default uses ::Google
PerlSetVar GoogleLicenseKey **************
=head1 DESCRIPTION
Oops, 404 Not found. But wait..., there is a Google cache!
Apache::No404Proxy serves as a proxy server, which automaticaly
detects 404 responses and fetches Google cache via SOAP. You need your
Google account to use this module. See Google Web API terms for
details.
Set your browser's proxy setting to Apache::No404Proxy based server,
and it becomes 404 free now!
=head1 AUTHOR
Tastuhiko Miyagawa <miyagawa@bulknews.net>
view all matches for this distribution
view release on metacpan or search on metacpan
t/00perlrun.t view on Meta::CPAN
if($response->is_success) {
ok(0);
print STDERR "Should have failed, instead received: " . $response->code . "\n";
}
else {
if($response->code != 404) {
ok(0);
print STDERR "Should have gotten file not found, instead received: " . $response->code . "\n";
}
else {
ok(1);
view all matches for this distribution
view release on metacpan or search on metacpan
- extended red-text error handling to include page-load errors
- Template::PSP now retains all template formatting including whitespace
- %QUERY hash is available courtesy of CGI::Minimal and Scott Kiehn
- improved recovery from page-load errors by causing interpreter to restart
after these errors
- Apache::PSP now declares 404 errors when a file is not found (instead
of red text and 200)
- minor bug fixes and reformatting
0.6 XX Dec 2002 (not publicly released)
- replaced VEP-reliant code with new routines to fill
view all matches for this distribution
view release on metacpan or search on metacpan
ParseLog.pm view on Meta::CPAN
305 => "Use Proxy",
400 => "Bad Request",
401 => "Unauthorized",
402 => "Payment Required",
403 => "Forbidden",
404 => "Not Found",
405 => "Method Not Allowed",
406 => "Not Acceptable",
407 => "Proxy Authentication Required",
408 => "Request Time-out",
409 => "Conflict",
ParseLog.pm view on Meta::CPAN
C<lstatus();>
%lstatus = $logobject->lstatus();
Returns a hash containing HTTP codes and messages (e.g. "404 Not Found")
for the last status (i.e., when the httpd finishes processing that
request) as keys, and the hit count for each key as values.
=cut
ParseLog.pm view on Meta::CPAN
C<ostatus();>
%ostatus = $logobject->ostatus();
Returns a hash containing HTTP codes and messages (e.g. "404 Not Found")
for the original status (i.e., when the httpd starts processing that
request) as keys, and the hit count for each key as values.
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
t/00-decompress.t view on Meta::CPAN
return 500;
}
sub Apache::Constants::NOT_FOUND
{
return 404;
}
Apache::Precompress::handler($request);
# Compare the file to the data below
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/SPARQL.pm view on Meta::CPAN
'TemporarilyMoved' => 307,
'MalformedRequest' => 400,
'MalformedQuery' => 400,
'Unauthorized' => 401,
'Forbidden' => 403,
'NotFound' => 404,
'NoDeletionPerformed' => 409,
'RequestRefused' => 409,
'OperationPointError' => 500,
'UnsupportedOperation' => 501,
'Unavailable' => 503
view all matches for this distribution
view release on metacpan or search on metacpan
t/apache/010_tester.t view on Meta::CPAN
is($t->mech->response->headers->content_encoding, "gzip") or ASTU_Wait;
$t->ok_get('/test/www/hello.xhtml');
is($t->mech->response->headers->content_encoding, "gzip") or ASTU_Wait;
$t->ok_get('/test/www/nothing.html', 404);
$t->ok_get($_uri);
is($t->mech->content, $_hc);
# relative to root location
view all matches for this distribution
view release on metacpan or search on metacpan
Scriptor.pm view on Meta::CPAN
{ my ($this,@ext)=@_;
foreach (@ext) { delete $this->{Handlers}{$_} }
return;
}
# void set_404_url($url)
# Óñòàíàâëèâàåò àäðåñ ñòðàíèöû 404-é îøèáêè, íà êîòîðóþ áóäåò ïðîèçâåäåí
# ðåäèðåêò, åñëè ôàéë íå íàéäåí.
sub set_404_url
{ my ($th,$url)=@_;
$th->{404}=$url;
}
# void set_htaccess_name($name)
# Óñòàíàâëèâàåò èìÿ htaccess-ôàéëà. Ïî óìîë÷àíèþ ýòî .htaccess.
sub set_htaccess_name
Scriptor.pm view on Meta::CPAN
}
# Äèðåêòèâà AddHandler
if($s=~m/AddHandler\s+([\w\d-]+)\s*(.+)/si) {
push @AddHandler, [ $1, [ map { s/^\s*\.?|\s+$//sg; $_?($_):() } split /\s+/, $2 ] ];
}
# Äèðåêòèâà ErrorDocument 404
if($s=~/ErrorDocument\s+404\s+"?([^"]+)"?/si) {
$th->set_404_url($1);
}
}
# Çàòåì äîáàâëÿåì öåïî÷êè îáðàáîò÷èêîâ
my %ProcessedExt=();
foreach my $info (@AddHandler) {
Scriptor.pm view on Meta::CPAN
# Òåïåðü ðàáîòàåì ñ ÊÎÏÈÅÉ îáúåêòà. Òàêèì îáðàçîì, äàëüíåéøèå âûçîâû
# process_htaccesses è ò.ä. íå îòðàçÿòñÿ íà îáùåì ñîñòîÿíèè îáúåêòà
# ïîñëå îêîí÷àíèÿ çàïðîñà.
local $this->{Handlers}={%{$this->{Handlers}}};
local $this->{404}=$this->{404};
# Ðàçäåëÿåì íà URL è QUERY_STRING
local ($ENV{SCRIPT_NAME},$q) = split /\?/, $uri, 2;
$ENV{QUERY_STRING}=defined $q? $q : "";
Scriptor.pm view on Meta::CPAN
# Ôóíêöèÿ îáðàáîò÷èêà ïðèíèìàåò ïàðàìåòð: âõîäíîé áóôåð.
# Åå çàäà÷à - îáðàáîòàòü åãî è, èñïîëüçóÿ print, ïðîïå÷àòàòü ðåçóëüòàò.
#  ñëó÷àå îøèáêè (ôàéë íå íàéäåí) ôóíêöèÿ äîëæíà âîçâðàòèòü -1!
my $result=&$func($input);
if($result eq "-1") {
if($th->{404} && $th->{404} ne $th->{self_scriptname}) {
Redirect($th->{404});
exit;
} else {
die "$hand: could not find the file $ENV{SCRIPT_FILENAME}\n";
}
}
Scriptor.pm view on Meta::CPAN
Helps to organize the Apache handler conveyor. That means you can redirect the output from one handler to another handler.
=item *
Supports non-existance URL handling and 404 Error processing.
=item *
Uses C<.htaccess> files to configure.
Scriptor.pm view on Meta::CPAN
=item C<$obj'removehandler($ext)>
Removes all the handlers for extension C<$ext>.
=item C<$obj'set_404_url($url)>
Sets up the redirect address for 404 error. By default, this value is
bringing up from C<.htaccess> files.
=item C<$obj'set_htaccess_name($name)>
Tells Apache::Scriptor object then Apache user configuration file is called C<$name>
view all matches for this distribution
view release on metacpan or search on metacpan
demo/httpdconf/httpd.sec2.conf view on Meta::CPAN
# 1) plain text
#ErrorDocument 500 "The server made a boo boo.
# n.b. the single leading (") marks it as text, it does not get output
#
# 2) local redirects
#ErrorDocument 404 /missing.html
# to redirect to local URL /missing.html
#ErrorDocument 404 /cgi-bin/missing_handler.pl
# N.B.: You can redirect to a script or a document using server-side-includes.
#
# 3) external redirects
#ErrorDocument 402 http://some.other_server.com/subscription_info.html
# N.B.: Many of the environment variables associated with the original
view all matches for this distribution