Add ARM files

[dh-make-perl] / dev / arm / libwww-perl / libwww-perl-5.813 / lib / LWP / Protocol / nogo.pm

diff --git a/dev/arm/libwww-perl/libwww-perl-5.813/lib/LWP/Protocol/nogo.pm b/dev/arm/libwww-perl/libwww-perl-5.813/lib/LWP/Protocol/nogo.pm
new file mode 100644 (file)
index 0000000..53a2ec5
--- /dev/null
+++ b/dev/arm/libwww-perl/libwww-perl-5.813/lib/LWP/Protocol/nogo.pm
@@ -0,0 +1,24 @@
+package LWP::Protocol::nogo;
+# If you want to disable access to a particular scheme, use this
+# class and then call
+#   LWP::Protocol::implementor(that_scheme, 'LWP::Protocol::nogo');
+# For then on, attempts to access URLs with that scheme will generate
+# a 500 error.
+
+use strict;
+use vars qw(@ISA);
+require HTTP::Response;
+require HTTP::Status;
+require LWP::Protocol;
+@ISA = qw(LWP::Protocol);
+
+sub request {
+    my($self, $request) = @_;
+    my $scheme = $request->url->scheme;
+    
+    return HTTP::Response->new(
+      &HTTP::Status::RC_INTERNAL_SERVER_ERROR,
+      "Access to \'$scheme\' URIs has been disabled"
+    );
+}
+1;