/[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 28 by dpavlin, Wed Jun 6 09:24:59 2007 UTC revision 29 by dpavlin, Wed Jun 6 17:27:23 2007 UTC
# Line 69  sub take_action { Line 69  sub take_action {
69    
70          $self->argument_value( 'file', "" );          $self->argument_value( 'file', "" );
71                  $filename = scalar( $fh );                  $filename = scalar( $fh );
72                    $filename =~ s/^.*([\/\\])([^\1]+)$/$2/;
73      } else {      } else {
74          $content = $self->argument_value('content');          $content = $self->argument_value('content');
75                  my $uuid = Data::UUID->new();                  my $uuid = Data::UUID->new();
Legend:
Removed from v.28  
changed lines
  Added in v.29
  ViewVC Help
Powered by ViewVC 1.1.26