| 1 |
slords |
1.1 |
Index: formmagick/lib/CGI/Persistent.pm |
| 2 |
|
|
diff -u formmagick/lib/CGI/Persistent.pm:1.1.1.1 formmagick/lib/CGI/Persistent.pm:1.2 |
| 3 |
|
|
--- formmagick/lib/CGI/Persistent.pm:1.1.1.1 Mon Jul 22 13:42:19 2002 |
| 4 |
|
|
+++ formmagick/lib/CGI/Persistent.pm Fri Aug 16 14:34:05 2002 |
| 5 |
|
|
@@ -14,22 +14,25 @@ |
| 6 |
|
|
use Persistence::Object::Simple; |
| 7 |
|
|
use vars qw(@ISA $VERSION); |
| 8 |
|
|
use Data::Dumper; |
| 9 |
|
|
-@ISA = qw( CGI ); ( $VERSION ) = '$Revision: 1.00 $' =~ /(\d+\.\d+)/; |
| 10 |
|
|
+use File::Basename; |
| 11 |
|
|
+@ISA = qw( CGI ); ( $VERSION ) = '$Revision: 1.00 $' =~ /(\d+\.\d+)/; |
| 12 |
|
|
|
| 13 |
|
|
sub new { |
| 14 |
|
|
|
| 15 |
|
|
my ( $class, $dope, $id ) = @_ ; |
| 16 |
|
|
$dope = "." unless $dope; |
| 17 |
|
|
my $cgi = new CGI; # print $cgi->header (); |
| 18 |
|
|
- my $fn = $cgi->param( '.id' ) || $id; |
| 19 |
|
|
+ $cgi->{sessiondir} = dirname($id) if $id; |
| 20 |
|
|
+ my $fn = basename($cgi->param( '.id' ) || $id); |
| 21 |
|
|
|
| 22 |
|
|
unless ( $fn ) { |
| 23 |
|
|
my $po = new Persistence::Object::Simple ( __Dope => $dope ); |
| 24 |
|
|
- $cgi->append( -name => '.id', -values => $po->{ __Fn } ); |
| 25 |
|
|
- $fn = $po->{ __Fn }; undef $po; |
| 26 |
|
|
+ $cgi->append( -name => '.id', -values => basename $po->{ __Fn } ); |
| 27 |
|
|
+ $fn = basename $po->{ __Fn }; undef $po; |
| 28 |
|
|
} |
| 29 |
|
|
|
| 30 |
|
|
- my $po = new Persistence::Object::Simple __Fn => $fn; |
| 31 |
|
|
+ my $po = new Persistence::Object::Simple __Fn => |
| 32 |
|
|
+ join "/", ($cgi->{sessiondir},$fn); |
| 33 |
|
|
$po->{ __DOPE } = undef; |
| 34 |
|
|
my @names = $cgi->param (); |
| 35 |
|
|
|
| 36 |
|
|
@@ -51,7 +54,7 @@ |
| 37 |
|
|
sub delete { |
| 38 |
|
|
|
| 39 |
|
|
my ( $self, $param ) = @_; |
| 40 |
|
|
- my $fn = $self->param( '.id' ); |
| 41 |
|
|
+ my $fn = join "/", ($self->{sessiondir},$self->param( '.id' )); |
| 42 |
|
|
my $po = new Persistence::Object::Simple __Fn => $fn; |
| 43 |
|
|
delete $po->{ $param }; $po->commit (); |
| 44 |
|
|
$self->SUPER::delete ( $param ); # delete, is like, overloaded. |
| 45 |
|
|
@@ -61,7 +64,7 @@ |
| 46 |
|
|
sub delete_all { |
| 47 |
|
|
|
| 48 |
|
|
my ( $self ) = shift; |
| 49 |
|
|
- $fn = $self->param( '.id' ); |
| 50 |
|
|
+ $fn = join "/", ($self->{sessiondir},$self->param( '.id' )); |
| 51 |
|
|
my $po = new Persistence::Object::Simple __Fn => $fn; |
| 52 |
|
|
$po->expire; |
| 53 |
|
|
$self->SUPER::delete_all (); |
| 54 |
|
|
@@ -99,7 +102,7 @@ |
| 55 |
|
|
|
| 56 |
|
|
} |
| 57 |
|
|
|
| 58 |
|
|
-"True Value"; |
| 59 |
|
|
+1; |
| 60 |
|
|
|
| 61 |
|
|
=head1 NAME |
| 62 |
|
|
|
| 63 |
|
|
|
Parent Directory
| 
Revision Log
| 
Revision Graph
