home *** CD-ROM | disk | FTP | other *** search
/ Peanuts NeXT Software Archives / Peanuts-2.iso / Developer / webobjects / extensions / win-nt / WOPerl-lite-10e7.exe / Examples / WOPerl / TimeOff / Main.wo / Main.pl < prev    next >
Encoding:
Perl Script  |  1996-08-09  |  3.6 KB  |  107 lines
  1. # $Id: Main.pl,v 1.1 1996/07/26 05:18:55 pedja Exp $
  2. # Main.pl: converted from the original Main.wos
  3. # The original file contains the following notice:
  4. #
  5. #   You may freely copy, distribute, and reuse the code in this example.
  6. #   NeXT disclaims any warranty of any kind, expressed or  implied, as to its
  7. #   fitness for any particular use.
  8. #
  9. #   The TimeOff application lets a user submit a vacation request. This
  10. #   request consists of a vacation start date, an end date, and the
  11. #   user's login and password. The TimeOff application uses a subcomponent,
  12. #   Calendar, that messages the parent component (Main) using a WOAction
  13. #   object. This works as follows:
  14. #   
  15. #   1. The parent page (Main) references the child component in its
  16. #      declarations file (Main.wod):
  17. #
  18. #      START:Calendar {
  19. #      selectedDate = startDate;
  20. #      callBack = mainPage;
  21. #      };
  22. #
  23. #      END:Calendar {
  24. #      selectedDate = endDate;
  25. #      callBack = mainPage;
  26. #      };
  27. #
  28. #   The callback attributes specified in the declaration take as their
  29. #   values methods that are triggered when the child component sends the
  30. #   callBack object an invoke message. Through this mechanism the child 
  31. #   component is able to message the parent.
  32. #
  33. #   2. The child component's script (Calendar.wos) uses the action
  34. #      keyword to declare that the callBack specified in the parent's
  35. #      declarations file is a WOAction object:
  36. #      
  37. #      action callBack;
  38. #
  39. #   3. The child component's script (Calendar.wos) sends the WOAction
  40. #      object callBack an invoke message in its setSelectedDate method, 
  41. #      which tells callBack to invoke its associated method, mainPage.
  42. # 
  43. #   The Main.wos script processes the information the user enters into 
  44. #   the Calendar and text fields: the vacation start and end dates, the 
  45. #   login, and the password. If any of these items is missing or if the 
  46. #   information is logically inconsistent (for example, if the vacation
  47. #   end date precedes the vacation start date), this script returns the 
  48. #   Error page stating the error.
  49.  
  50. package WO::TimeOff::Main;
  51. use WOPerl;
  52.  
  53. @IVARS=qw(name password);
  54. @PERSISTENT=qw(startDate endDate);
  55. # NOTE: startDate and endDate ivars are NSObjects (NSDate)
  56.  
  57. sub mainPage {
  58.   return $_[0];
  59. }
  60.  
  61. sub recordTimeOff {
  62.   my($self)=shift;
  63.   my($errorPage,$message);
  64.     
  65.   if (nil($self->{'startDate'})) {
  66.     $errorPage = $WOApp->pageWithName("Error");
  67.     $errorPage->setErrorMessage(
  68.         "You need to pick a start date for your vacation request.");
  69.     return $errorPage;
  70.   }
  71.     
  72.   if (nil($self->{'endDate'})) {
  73.     $errorPage = $WOApp->pageWithName("Error");
  74.     $errorPage->setErrorMessage(
  75.         "You need to pick an end date for your vacation request.");
  76.     return $errorPage;
  77.   }
  78.     
  79.   if ($self->{'startDate'}->compare($self->{'endDate'})>=0) {
  80.     $errorPage = $WOApp->pageWithName("Error");
  81.     $message = "Your vacation start date ("
  82.       . $self->{'startDate'}->dateWithCalendarFormatTimeZone(
  83.        "%A, %B %d, %Y",NSTimeZone->localTimeZone)->description
  84.       . ") is after your vacation end date ("
  85.       . $self->{'endDate'}->dateWithCalendarFormatTimeZone(
  86.        "%A, %B %d, %Y",NSTimeZone->localTimeZone)->description
  87.       . ")";
  88.     $errorPage->setErrorMessage($message);
  89.     return $errorPage;
  90.   }
  91.  
  92.   if (!$self->{'name'} || !$self->{'password'}) {
  93.     $errorPage = $WOApp->pageWithName("Error");
  94.     $errorPage->setErrorMessage("You forgot to enter your login information!");
  95.     return $errorPage;
  96.   }        
  97.   return $WOApp->pageWithName("Thanks");
  98. }
  99.  
  100. sub willGenerateResponseInContext {
  101.   print "Generating response: page Main\n";
  102.   return(nil);
  103. }
  104.  
  105. 'WO::TimeOff::Main';
  106. # EOF
  107.