[Yapcom checkin] rev 18 - / lib/YAPC

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

Author: gabor
Date: 2003-11-24 16:44:41 +0200 (Mon, 24 Nov 2003)
New Revision: 18

Modified:
   README
   lib/YAPC/Organizer.pm
Log:
refactorin in order to move the filename based dispatch mode to cgiapp_prerun

Modified: README
===================================================================
--- README	2003-11-24 13:18:26 UTC (rev 17)
+++ README	2003-11-24 14:44:41 UTC (rev 18)
@@ -34,6 +34,11 @@
 
 CHANGES
 ---------
+0.07_03 2003.11.
+    - refactoring: using Class::DBI more in the way it should be used
+    - refactoring: moving over run_mode dispatching 
+
+
 0.07_02 2003.11.24
     - further refactoring the tests
     - add pages to get back lost password and get validation code again

Modified: lib/YAPC/Organizer.pm
===================================================================
--- lib/YAPC/Organizer.pm	2003-11-24 13:18:26 UTC (rev 17)
+++ lib/YAPC/Organizer.pm	2003-11-24 14:44:41 UTC (rev 18)
@@ -1,6 +1,6 @@
 package YAPC::Organizer;
 
-our $VERSION = '0.07_02';
+our $VERSION = '0.07_03';
 
 use strict;
 #use warnings FATAL => 'all';
@@ -40,12 +40,24 @@
                );
 }
 
+sub cgiapp_prerun {
+   my $self = shift;
+   my $run_mode = shift;
+
+   #warn "PRE: $self\n";
+   #warn "PRE: @_\n";
+   #$self->prerun_mode('login');
+
+}
+
+
+
 sub default {
     my $self = shift; 
     my $q = $self->query;
+    #warn "default\n";
 
 
-
     # REQUEST_URI looks like this:  /content.html
     my $page = $ENV{REQUEST_URI} || '';
     $page =~ s@.*/@@;
@@ -56,7 +68,8 @@
 
     if (not -e $filename) {
        #warn "YAPC script called for not existing file. Original: '$ENV{REQUEST_URI}' cut down: '$filename'\n";
-       $filename = "$templates_dir/error.tmpl";
+       #$filename = "$templates_dir/error.tmpl";
+       return $self->do_no_such_page();
     }
 
 
@@ -122,7 +135,14 @@
     return $t->output;
 }
 
+sub do_no_such_page {
+   my $self = shift;
+       #$filename = "$templates_dir/error.tmpl";
+   my $t = $self->_server_page('error', "$templates_dir/error.tmpl");
+   return $t->output;
 
+}
+
 sub do_change_password {
     my $self = shift;
     my $q = $self->query;

• [Yapcom checkin] rev 18 - / lib/YAPC svn 16:44 on 24 Nov 2003

Generated at 17:06 on 24 Nov 2003 by mariachi 0.51