/[Frey]/trunk/lib/Frey/Server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 179 by dpavlin, Sun Aug 31 17:44:03 2008 UTC revision 180 by dpavlin, Sun Aug 31 18:02:50 2008 UTC
# Line 51  sub main { Line 51  sub main {
51    
52                  my %params = $req->params;                  my %params = $req->params;
53    
                 my @required =  
                         grep {  
                                 defined $_ && !defined( $params{$_} )  
                         }  
                         map {  
                                 my $attr = $class->meta->get_attribute($_);  
                                 $attr->is_required && $_  
                         } $class->meta->get_attribute_list;  
   
                 warn "## required = ",dump( @required );  
                 warn "## params = ",dump( %params );  
   
                 my $html;  
   
                 if ( @required ) {  
                         $html = qq|<form method="post">|;  
                         $html .= qq|<input type="text" name="$_">| foreach @required;  
                         $html .= qq|<input type="submit" value="Run $class"></form>|;  
                 } else {  
                         my $o = $class->new( %params );  
                         $o->depends if $o->can('depends');  
                         $html = $o->markup;  
                 }  
   
                 warn ">>> markup $class ",length( $html ), " bytes\n";  
                 return $html;  
54          }          }
55    
56    
# Line 92  sub main { Line 66  sub main {
66                  } elsif ( $path =~ m!/od/([^/]+)(.*)! ) {                  } elsif ( $path =~ m!/od/([^/]+)(.*)! ) {
67                          $f = Frey::ObjectDesigner->new( fey_class => $1 );                          $f = Frey::ObjectDesigner->new( fey_class => $1 );
68                  } elsif ( $path =~ m!/markup/([^/]+)(.*)! ) {                  } elsif ( $path =~ m!/markup/([^/]+)(.*)! ) {
69                          $req->print( run_markup( $req, $1 )  );                          $f = Frey::Run->new( class => $1 );
70                  } else {                  } else {
71                          $f = Frey::ClassBrowser->new;                          $f = Frey::ClassBrowser->new;
72                  }                  }
Legend:
Removed from v.179  
changed lines
  Added in v.180
  ViewVC Help
Powered by ViewVC 1.1.26