/[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 11 by dpavlin, Tue Jun 5 11:54:18 2007 UTC revision 12 by dpavlin, Tue Jun 5 14:21:22 2007 UTC
# Line 12  use base qw/Perly::Action::CreateCode Ji Line 12  use base qw/Perly::Action::CreateCode Ji
12    
13  use Perly::Model::Code;  use Perly::Model::Code;
14  use Perly::Model::Input;  use Perly::Model::Input;
15    use Data::UUID;
16    
17  =head2 arguments  =head2 arguments
18    
# Line 53  sub take_action { Line 54  sub take_action {
54          $self->result->failure('You must upload something!');          $self->result->failure('You must upload something!');
55          return 1;          return 1;
56      }      }
57      my $outcome;  
58      my $content;      my $content;
59            my $filename;
60    
61      if ( my $fh = $self->argument_value('file') ) {      if ( my $fh = $self->argument_value('file') ) {
62          local $/;          local $/;
63          $content = <$fh>;          $content = <$fh>;
# Line 63  sub take_action { Line 66  sub take_action {
66          # doesn't try to save it away (and fail) when we do the redirect          # doesn't try to save it away (and fail) when we do the redirect
67    
68          $self->argument_value( 'file', "" );          $self->argument_value( 'file', "" );
69                    $filename = scalar( $fh );
70      } else {      } else {
71          $content = $self->argument_value('content');          $content = $self->argument_value('content');
72                    my $uuid = Data::UUID->new();
73                    $filename = $uuid->create_str;
74      }      }
75    
76    
77          my $format = $self->argument_value( 'format' );          my $format = $self->argument_value( 'format' );
78    
79          my $id;          my $id;
80          if ( $format eq 'input' ) {          if ( $format eq 'input' ) {
81                  my $input = Perly::Model::Input->new();                  my $input = Perly::Model::Input->new();
82                  $id = $input->create(                  eval {
83                          content => $content                          $id = $input->create(
84                  );                                  name => $filename,
85                                    content => $content,
86                            );
87                    };
88                    die "$@" if ($@);
89          } else {          } else {
90                  my $code = Perly::Model::Code->new();                  my $code = Perly::Model::Code->new();
91                  $id = $code->create(                  eval {
92                          source => $content                          $id = $code->create(
93                  );                                  name => $filename,
94                                    source => $content,
95                            );
96                    };
97                    die "$@" if ($@);
98          }          }
99    
100          my $message = "Created $format $id " . length( $content ) . " bytes";          my $message = "Created $format width " . length( $content ) . " bytes [$id/$filename]";
101    
102  #       $self->result->content( $_ => $outcome->{$_} ) for keys %{$outcome};  #       $self->result->content( $_ => $outcome->{$_} ) for keys %{$outcome};
103          $self->result->message($message);          $self->result->message($message);
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.26