On 01/16/2012 04:39 PM, Scott Worthington wrote:
In /usr/share/perl5/vendor_perl/Sniglets/Servers.pm we have on lines:
150 throw "User '" . $pxt->user->id . "' attempted to access
proxy interface without permission."
151 unless
$pxt->user->org->has_channel_family_entitlement('rhn-proxy');
Yes, indeed.
Can you test this patch for me?:
diff --git a/web/modules/sniglets/Sniglets/Servers.pm
b/web/modules/sniglets/Sniglets/Servers.pm
index 3c9f7c7..548d3e2 100644
--- a/web/modules/sniglets/Sniglets/Servers.pm
+++ b/web/modules/sniglets/Sniglets/Servers.pm
@@ -23,6 +23,7 @@ use File::Spec;
use Data::Dumper;
use Date::Parse;
+use PXT::Config ();
use PXT::Utils;
use PXT::HTML;
@@ -148,7 +149,7 @@ sub proxy_entitlement_form {
my $block = $params{__block__};
throw "User '" . $pxt->user->id . "' attempted to access proxy
interface without permission."
- unless $pxt->user->org->has_channel_family_entitlement('rhn-proxy');
+ unless
($pxt->user->org->has_channel_family_entitlement('rhn-proxy') or not
PXT::Config->get('subscribe_proxy_channel'))
my $sid = $pxt->param('sid');
throw "no server id!" unless $sid;
--
Miroslav Suchy
Red Hat Satellite Engineering
_______________________________________________
Spacewalk-list mailing list
[email protected]
https://www.redhat.com/mailman/listinfo/spacewalk-list
