/[smeserver]/rpms/e-smith-manager/sme7/e-smith-manager-1.14.0-nowarnings.patch
ViewVC logotype

Annotation of /rpms/e-smith-manager/sme7/e-smith-manager-1.14.0-nowarnings.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Sun Jul 1 14:28:47 2007 UTC (17 years, 4 months ago) by slords
Branch: MAIN
CVS Tags: e-smith-manager-1_14_0-17_el4_sme, e-smith-manager-1_14_0-11_el4_sme, e-smith-manager-1_14_0-14_el4_sme, e-smith-manager-1_14_0-13_el4_sme, e-smith-manager-1_14_0-16_el4_sme, e-smith-manager-1_14_0-20_el4_sme, e-smith-manager-1_14_0-19_el4_sme, e-smith-manager-1_14_0-15_el4_sme, e-smith-manager-1_14_0-18_el4_sme, e-smith-manager-1_14_0-8_el4_sme, e-smith-manager-1_14_0-12_el4_sme
Updates

1 slords 1.1 diff -Nur -x '*.orig' -x '*.rej' e-smith-manager-1.14.0/root/etc/e-smith/web/common/cgi-bin/login mezzanine_patched_e-smith-manager-1.14.0/root/etc/e-smith/web/common/cgi-bin/login
2     --- e-smith-manager-1.14.0/root/etc/e-smith/web/common/cgi-bin/login 2007-07-01 08:04:55.000000000 -0600
3     +++ mezzanine_patched_e-smith-manager-1.14.0/root/etc/e-smith/web/common/cgi-bin/login 2007-07-01 08:02:51.000000000 -0600
4     @@ -83,38 +83,38 @@
5     my $at = Apache::AuthTkt->new(conf => "/etc/e-smith/web/common/cgi-bin/AuthTKT.cfg");
6     my $q = CGI->new;
7     my $x_f = $q->http('X-Forwarded-Host');
8     -warn "X-Forwarded-Host is $x_f\n" if $x_f;
9     -warn "HTTP_HOST is $ENV{HTTP_HOST}\n" if $ENV{HTTP_HOST};
10     +#warn "X-Forwarded-Host is $x_f\n" if $x_f;
11     +#warn "HTTP_HOST is $ENV{HTTP_HOST}\n" if $ENV{HTTP_HOST};
12     my ($server_name, $server_port) = split /:/, $q->http('X-Forwarded-Host') || $ENV{HTTP_HOST};
13     $server_name ||= $ENV{SERVER_NAME} if $ENV{SERVER_NAME};
14     $server_port ||= $ENV{SERVER_PORT} if $ENV{SERVER_PORT};
15     #my $AUTH_DOMAIN = $at->domain || $server_name;
16     my $AUTH_DOMAIN = $server_name;
17     -warn "AUTH_DOMAIN is $AUTH_DOMAIN\n";
18     -warn "AuthTkt->domain was set\n" if $at->domain;
19     +#warn "AUTH_DOMAIN is $AUTH_DOMAIN\n";
20     +#warn "AuthTkt->domain was set\n" if $at->domain;
21     my @auth_domain = $AUTH_DOMAIN && $AUTH_DOMAIN =~ /\./ ? ( -domain => $AUTH_DOMAIN ) : ();
22     my $ticket = $q->cookie($at->cookie_name);
23     my $probe = $q->cookie('auth_probe');
24     my $back = $q->cookie($at->back_cookie_name) if $at->back_cookie_name;
25     -warn "back from cookie is $back\n" if $back;
26     +#warn "back from cookie is $back\n" if $back;
27     my $have_cookies = $ticket || $probe || $back || '';
28     $back ||= $q->param($at->back_arg_name) if $at->back_arg_name;
29     -warn "back from cgi param is $back\n" if $back;
30     +#warn "back from cgi param is $back\n" if $back;
31     $back ||= $ENV{HTTP_REFERER} if $ENV{HTTP_REFERER} && $BACK_REFERER;
32     $back =~ s/^http:/https:/;
33     -warn "back is $back\n";
34     +#warn "back is $back\n";
35     if ($back && $back =~ m!^/!) {
36     my $hostname = $server_name;
37     my $port = $server_port;
38     $hostname .= ':' . $port if $port && $port != 80 && $port != 443;
39     $back = sprintf "http%s://%s%s", ($port == 443 ? 's' : ''), $hostname, $back;
40     -warn "back is $back\n";
41     +#warn "back is $back\n";
42     } elsif ($back && $back !~ m/^http/i) {
43     $back = 'http://' . $back;
44     -warn "back is $back\n";
45     +#warn "back is $back\n";
46     }
47     $back = uri_unescape($back) if $back && $back =~ m/^https?%3A%2F%2F/;
48     -warn "back is $back\n";
49     +#warn "back is $back\n";
50     my $back_esc = uri_escape($back) if $back;
51     my $back_html = escapeHTML($back) if $back;
52    
53     @@ -328,7 +328,7 @@
54     print qq(</form>\n);
55     }
56    
57     - print qq(<p><a href="$back_html">Previous Page</a></p>\n) if $back_html;
58     +# print qq(<p><a href="$back_html">Previous Page</a></p>\n) if $back_html;
59     print <<EOD;
60     </div>
61     </body>
62     diff -Nur -x '*.orig' -x '*.rej' e-smith-manager-1.14.0/root/etc/e-smith/web/common/cgi-bin/logout mezzanine_patched_e-smith-manager-1.14.0/root/etc/e-smith/web/common/cgi-bin/logout
63     --- e-smith-manager-1.14.0/root/etc/e-smith/web/common/cgi-bin/logout 2007-07-01 08:04:55.000000000 -0600
64     +++ mezzanine_patched_e-smith-manager-1.14.0/root/etc/e-smith/web/common/cgi-bin/logout 2007-07-01 08:04:34.000000000 -0600
65     @@ -33,7 +33,7 @@
66     my $at = Apache::AuthTkt->new(conf => "/etc/e-smith/web/common/cgi-bin/AuthTKT.cfg");
67     my $q = CGI->new;
68     my ($server_name, $server_port) = split /:/, $q->http('X-Forwarded-Host') || $ENV{HTTP_HOST};
69     -warn "servername is $server_name; HOST is $ENV{HTTP_HOST}\n";
70     +#warn "servername is $server_name; HOST is $ENV{HTTP_HOST}\n";
71     $server_name ||= $ENV{SERVER_NAME};
72     $server_port ||= $ENV{SERVER_PORT};
73     $server_port = '443';

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed