r33844 - in /branches/upstream/libapache2-authcassimple-perl/current: Changes META.yml Makefile.PL lib/Apache2/AuthCASSimple.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Fri Apr 24 05:45:43 UTC 2009 

Author: dmn
Date: Fri Apr 24 05:45:34 2009
New Revision: 33844

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33844
Log:
[svn-upgrade] Integrating new upstream version, libapache2-authcassimple-perl (0.09)

Modified:
    branches/upstream/libapache2-authcassimple-perl/current/Changes
    branches/upstream/libapache2-authcassimple-perl/current/META.yml
    branches/upstream/libapache2-authcassimple-perl/current/Makefile.PL
    branches/upstream/libapache2-authcassimple-perl/current/lib/Apache2/AuthCASSimple.pm

Modified: branches/upstream/libapache2-authcassimple-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapache2-authcassimple-perl/current/Changes?rev=33844&op=diff
==============================================================================
--- branches/upstream/libapache2-authcassimple-perl/current/Changes (original)
+++ branches/upstream/libapache2-authcassimple-perl/current/Changes Fri Apr 24 05:45:34 2009
@@ -1,4 +1,12 @@
 Revision history for Perl module Apache2::AuthCASSimple
+
+0.09 Wed, 22 Apr 2009 12:33:26 +0200
+    - revert use of CGI, better fix up for REMOTE_USER bug
+
+0.08 Wed, 22 Apr 2009 08:28:46 +0200
+    - fix REMOTE_USER not set bug 
+    closes cpan http://rt.cpan.org/Ticket/Display.html?id=45202
+    closes debian bug #525097
 
 0.07 Thu, 2 Apr 2009 11:38:26 +0200
     - parse args with CGI

Modified: branches/upstream/libapache2-authcassimple-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapache2-authcassimple-perl/current/META.yml?rev=33844&op=diff
==============================================================================
--- branches/upstream/libapache2-authcassimple-perl/current/META.yml (original)
+++ branches/upstream/libapache2-authcassimple-perl/current/META.yml Fri Apr 24 05:45:34 2009
@@ -1,6 +1,8 @@
-abstract: Apache2 module to authentificate trough a CAS server
-author: Yves Agostini
-build_requires: 
+---
+abstract: 'Apache2 module to authentificate trough a CAS server'
+author:
+  - 'Yves Agostini'
+build_requires:
   Apache2::Connection: 0
   Apache2::Log: 0
   Apache::Session::Wrapper: 0
@@ -9,20 +11,25 @@
   Test::More: 0
   mod_perl2: 1.99
 distribution_type: module
-generated_by: Module::Install version 0.64
+generated_by: 'Module::Install version 0.76'
 license: perl
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
 name: Apache2-AuthCASSimple
-no_index: 
-  directory: 
+no_index:
+  directory:
     - examples
     - inc
     - t
-requires: 
+    - examples
+requires:
   Apache2::Connection: 0
   Apache2::Log: 0
   Apache::Session::Wrapper: 0
   Authen::CAS::Client: 0
   mod_perl: 1.99
   perl: 5.8.0
-tests: t/*.t
-version: 0.05
+resources:
+  license: http://dev.perl.org/licenses/
+version: 0.09

Modified: branches/upstream/libapache2-authcassimple-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapache2-authcassimple-perl/current/Makefile.PL?rev=33844&op=diff
==============================================================================
--- branches/upstream/libapache2-authcassimple-perl/current/Makefile.PL (original)
+++ branches/upstream/libapache2-authcassimple-perl/current/Makefile.PL Fri Apr 24 05:45:34 2009
@@ -10,7 +10,6 @@
 requires 'Authen::CAS::Client';
 requires 'Apache2::Log';
 requires 'Apache2::Connection';
-requires 'CGI';
 
 build_requires  'Pod::Coverage';
 build_requires  'Test::More';
@@ -19,7 +18,6 @@
 build_requires 'Authen::CAS::Client';
 build_requires 'Apache2::Log';
 build_requires 'Apache2::Connection';
-build_requires 'CGI';
 
 auto_install;
 

Modified: branches/upstream/libapache2-authcassimple-perl/current/lib/Apache2/AuthCASSimple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapache2-authcassimple-perl/current/lib/Apache2/AuthCASSimple.pm?rev=33844&op=diff
==============================================================================
--- branches/upstream/libapache2-authcassimple-perl/current/lib/Apache2/AuthCASSimple.pm (original)
+++ branches/upstream/libapache2-authcassimple-perl/current/lib/Apache2/AuthCASSimple.pm Fri Apr 24 05:45:34 2009
@@ -9,10 +9,9 @@
 use Apache::Session::Wrapper;
 use Authen::CAS::Client;
 use Apache2::Connection;
-use CGI;
 use vars qw($VERSION);
 
-$VERSION = '0.07';
+$VERSION = '0.09';
 
 #
 # handler()
@@ -24,7 +23,6 @@
   my $log = $r->log();
 
 
-  my $q = CGI->new($r);
   # does it need to do something ?
   #return DECLINED unless($r->ap_auth_type() eq __PACKAGE__);
 
@@ -36,8 +34,8 @@
   my $cas_session_timeout = $r->dir_config('CASSessionTimeout') || 60;
   my $cas_ssl = $r->dir_config('CASServerNoSSL')?0:1;
   my $cas_name = $r->dir_config('CASServerName') || 'my.casserver.com';
-  my $cas_port = $r->dir_config('CASServerPort') ? ':'.$r->dir_config('CASServerPort') : 443 ;
-  $cas_port = '' if ( $cas_port == 443 && $cas_ssl );
+  my $cas_port = $r->dir_config('CASServerPort') ? ':'.$r->dir_config('CASServerPort') : ':443' ;
+  $cas_port = '' if ( $cas_port eq ':443' && $cas_ssl );
   my $cas_path = $r->dir_config('CASServerPath') || '/' ;
   $cas_path = '' if ($cas_path eq '/');
   my $mod_proxy = $r->dir_config('ModProxy');
@@ -73,8 +71,9 @@
   $login_url =~ s/\?/\&/;
   $login_url = $cas->login_url().$login_url;
   #$log->info( '==login_url==='.$login_url.'____');
- 
-  my $ticket = $q->param('ticket');
+
+  my %args = map { split '=', $_ }  split '&', $r->args();
+  my $ticket = $args{'ticket'};
   # redirect to CAS server unless ticket parameter
   unless ($ticket) {
     $log->info(__PACKAGE__.": No ticket, client redirected to CAS server. ".$login_url);
@@ -114,7 +113,7 @@
    $log->info(__PACKAGE__.": New session ".$r->uri() ."--".$r->args());
 
    # if we are there (and timeout is set), we can create session data and cookie
-   # _remove_ticket($r);
+   _remove_ticket($r);
    _create_user_session($r) if($cas_session_timeout >= 0);
    $log->debug("Location => ".$r->uri . ($str_args ? '?' . $str_args : ''));
    $r->err_headers_out->add("Location" => $r->uri . ($str_args ? '?' . $str_args : '') );
@@ -137,8 +136,7 @@
   my $r = shift;
   my $keep_ticket = shift;
 
-  my $q = CGI->new($r);
-  my %args = $q->Vars;
+  my %args = map { split '=', $_ }  split '&', $r->args();
   my @qs = ();
 
   foreach (sort {$a cmp $b} keys(%args)) {
@@ -180,8 +178,6 @@
 #
 sub _get_query_string ($) {
   my $r = shift;
-
-  my $q = CGI->new($r);
 
   _post_to_get($r) if ($r->method eq 'POST');
 
@@ -345,7 +341,7 @@
     PerlSetVar CASServerPath /
     # PerlSetVar CASServerPort 443
     # PerlSetVar CASServerNoSSL 1
-    PerlSetVar CASSessionTimeout 60
+    PerlSetVar CASSessionTimeout 3660
     PerlSetVar CASSessionDirectory /tmp
     # PerlSetVar CASFixDirectory /
     # PerlSetVar ModProxy 1
@@ -429,7 +425,7 @@
 
 =head1 VERSION
 
-This documentation describes Apache2::AuthCASSimple version 0.07
+This documentation describes Apache2::AuthCASSimple version 0.09
 
 =head1 BUGS AND TROUBLESHOOTING
 
@@ -468,7 +464,6 @@
 Requires C<mod_perl 2> version 2.02 or later
 Requires L<Authen::CAS::Client>
 Requires L<Apache::Session::Wrapper> 
-Requires L<CGI> 
 
 =head1 AUTHOR

More information about the Pkg-perl-cvs-commits mailing list