[Spacewalk-list] Spacewalk Proxy 1.6 and non-self signed certificates

[Scott Worthington]

On Monday, January 30, 2012 5:02:35 AM, Miroslav Suchý wrote:
> 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;
>

Is your patch missing a ';' at the end?  I added a ';' in my 
/usr/share/perl5/vendor_perl/Sniglets/Servers.pm and it works!

Clicking on the "Proxy" menu I now see:

Menu: "Activation   Systems Using Proxy"
--------
This machine is currently a licensed RHN Proxy (v1.6).

After clicking on the menu item "Systems Using Proxy", the web gui 
lists all of the systems using this proxy.

It works (after adding the ';')!