/[Frey]/branches/zimbardo/lib/Frey/Run.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 /branches/zimbardo/lib/Frey/Run.pm

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

revision 989 by dpavlin, Sat Jan 10 23:28:43 2009 UTC revision 1128 by dpavlin, Tue Jun 30 14:13:15 2009 UTC
# Line 85  sub html { Line 85  sub html {
85    
86                  if ( my $form = $self->params_form ) {                  if ( my $form = $self->params_form ) {
87                          $html = $self->html_page( body => $form );                          $html = $self->html_page( body => $form );
88                          warn "got required params form for $class ", $self->run, " format: ", $self->format;                          warn "missing required params form for $class ", $self->run, " format: ", $self->format;
89                  } else {                  } else {
90    
91                          $self->usage->{ $class }++;                          $self->usage->{ $class }++;
# Line 161  sub html { Line 161  sub html {
161                                  foreach ( $o->status ) {                                  foreach ( $o->status ) {
162                                          next if $current_status->{$_}++;                                          next if $current_status->{$_}++;
163                                          $self->add_status( $_ );                                          $self->add_status( $_ );
164                                          warn "# run add_status: ", $self->dump( $_ );  #                                       warn "# run add_status: ", $self->dump( $_ ); # FIXME
165                                  }                                  }
166                          }                          }
167    
# Line 173  sub html { Line 173  sub html {
173    
174          if ( $@ ) {          if ( $@ ) {
175                  my $error = $@;                  my $error = $@;
176                    warn $error;
177    
178                    exit if $error =~ m{Attempt to reload \S+ aborted}; # FIXME Mojo can't reload DBIx::Class
179    
180                  my $o = Frey->new;                  my $o = Frey->new;
181                  $o->{request_url} = $self->request_url; # sigh, this is dynamic languge, right?                  $o->{request_url} = $self->request_url; # sigh, this is dynamic languge, right?
182                  Frey::Web->meta->apply( $o );                  Frey::Web->meta->apply( $o );
Legend:
Removed from v.989  
changed lines
  Added in v.1128
  ViewVC Help
Powered by ViewVC 1.1.26