/[Perly]/lib/Perly/Action/Upload.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 /lib/Perly/Action/Upload.pm

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

revision 8 by dpavlin, Tue Jun 5 11:32:42 2007 UTC revision 9 by dpavlin, Tue Jun 5 11:54:18 2007 UTC
# Line 11  package Perly::Action::Upload; Line 11  package Perly::Action::Upload;
11  use base qw/Perly::Action::CreateCode Jifty::Action/;  use base qw/Perly::Action::CreateCode Jifty::Action/;
12    
13  use Perly::Model::Code;  use Perly::Model::Code;
14    use Perly::Model::Input;
15    
16  =head2 arguments  =head2 arguments
17    
# Line 33  sub arguments { Line 34  sub arguments {
34              },              },
35              format => {              format => {
36                  label         => 'Textfile format',                  label         => 'Textfile format',
37                  valid_values  => [qw(auto)],                  valid_values  => [qw(input perl)],
38                  default_value => 'auto'                  default_value => 'auto',
39                                    render_as     => 'select',
40              }              }
41          }          }
42  }  }
# Line 65  sub take_action { Line 67  sub take_action {
67          $content = $self->argument_value('content');          $content = $self->argument_value('content');
68      }      }
69    
70          my $code = Perly::Model::Code->new();          my $format = $self->argument_value( 'format' );
         my $id = $code->create(  
                 source => $content  
         );  
71    
72          my $message = "Created $id";          my $id;
73            if ( $format eq 'input' ) {
74                    my $input = Perly::Model::Input->new();
75                    $id = $input->create(
76                            content => $content
77                    );
78            } else {
79                    my $code = Perly::Model::Code->new();
80                    $id = $code->create(
81                            source => $content
82                    );
83            }
84    
85            my $message = "Created $format $id " . length( $content ) . " bytes";
86    
87  #       $self->result->content( $_ => $outcome->{$_} ) for keys %{$outcome};  #       $self->result->content( $_ => $outcome->{$_} ) for keys %{$outcome};
88          $self->result->message($message);          $self->result->message($message);
Legend:
Removed from v.8  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26