[Yapcom checkin] rev 41 - lib/YAPC

[prev] [thread] [next] [lurker] [Date index for 2003/11/25]

Author: gabor
Date: 2003-11-25 11:15:57 +0200 (Tue, 25 Nov 2003)
New Revision: 41

Modified:
   lib/YAPC/Organizer.pm
Log:
fix bad url in the e-mail sent with the validation code

Modified: lib/YAPC/Organizer.pm
===================================================================
--- lib/YAPC/Organizer.pm	2003-11-25 08:49:42 UTC (rev 40)
+++ lib/YAPC/Organizer.pm	2003-11-25 09:15:57 UTC (rev 41)
@@ -235,7 +235,8 @@
                       associate => $q);
        $mail->param("authcode" => $person->authcode);
        my $validation_url = "http://$ENV{HTTP_HOST}$ENV{REQUEST_URI}";
-       $validation_url .= "?run=validation&email=" . $person->email . "&authcode=" . $person->authcode;
+       $validation_url =~ s/\w+.html$/validation.html/;
+       $validation_url .= "?email=" . $person->email . "&authcode=" . $person->authcode;
        $mail->param("validation_url"  => $validation_url);
        my %mail = (To      => $person->email,
                    From    => $YAPC::Config::email_address,
@@ -432,9 +433,11 @@
      $self->send_email_with_validation_code($person);
      $self->send_email_to_admin_about_new_registration($person);
 
-     $t = $self->_server_page('validation');
-     $t->param('run' => 'validation');
-     return $t->output;
+     my $validation_url = "http://$ENV{HTTP_HOST}$ENV{REQUEST_URI}";
+     $validation_url =~ s/\w+.html$/validation.html/;
+
+     $self->header_type('redirect');
+     $self->header_props(-url => $validation_url);
 }
 
 sub validation {

• [Yapcom checkin] rev 41 - lib/YAPC svn 11:15 on 25 Nov 2003

Generated at 12:06 on 25 Nov 2003 by mariachi 0.51