SL::SessionFile::Random - damit man sich nicht selber einen Namen ausdenken muss

diff --git a/SL/SessionFile.pm b/SL/SessionFile.pm
index 69997e9a160003d4e5c0a65f54a9a7049bb8488b..6f04041e1a34bb56dd8cad7779d7fcfffb66a1f1 100644 (file)
--- a/SL/SessionFile.pm
+++ b/SL/SessionFile.pm
@@ -24,6 +24,8 @@ sub new {
   $file_name =~ s:.*/::g;
   $file_name =  "${path}/${file_name}";
 
   $file_name =~ s:.*/::g;
   $file_name =  "${path}/${file_name}";
 

+  $self->file_name($file_name);
+

   if ($params{mode}) {
     my $mode = $params{mode};
 
   if ($params{mode}) {
     my $mode = $params{mode};
 


@@ -35,11 +37,14 @@ sub new {
     $self->fh(IO::File->new($file_name, $mode));
   }
 
     $self->fh(IO::File->new($file_name, $mode));
   }
 

-  $self->file_name($file_name);
-

   return $self;
 }
 
   return $self;
 }
 

+sub open {
+  my ($self, $mode) = @_;
+  return $self->fh(IO::File->new($self->file_name, $mode));
+}
+

 sub exists {
   my ($self) = @_;
   return -f $self->file_name;
 sub exists {
   my ($self) = @_;
   return -f $self->file_name;


@@ -139,6 +144,10 @@ Returns the full relative file name associated with this instance. If
 it has been created for "customer.csv" then the value returned might
 be C<users/session_files/e8789b98721347/customer.csv>.
 
 it has been created for "customer.csv" then the value returned might
 be C<users/session_files/e8789b98721347/customer.csv>.
 

+=item C<open, %params]>
+
+Opens the file_name given at creation with the given parameters.
+

 =item C<exists>
 
 Returns trueish if the file exists.
 =item C<exists>
 
 Returns trueish if the file exists.

diff --git a/SL/SessionFile/Random.pm b/SL/SessionFile/Random.pm
new file mode 100644 (file)
index 0000000..366baf4
--- /dev/null
+++ b/SL/SessionFile/Random.pm
@@ -0,0 +1,62 @@
+package SL::SessionFile::Random;
+
+use strict;
+use parent qw(SL::SessionFile);
+
+my @CHARS = ('A'..'Z', 'a'..'z', 0..9, '_');
+my $template = 'X' x 10;
+use constant MAX_TRIES => 1000;
+
+sub new {
+  my ($class, %params) = @_;
+
+  my $filename;
+  my $tries = 0;
+  $filename = _get_file() while $tries++ < MAX_TRIES && (!$filename || -e $filename);
+
+  $class->SUPER::new($filename, %params);
+}
+
+sub _get_file {
+  my $filename = $template;
+  $filename =~ s/X(?=X*\z)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
+  $filename;
+}
+
+1;
+
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+SL::SessionFile::Random - SessionFile with a random name
+
+=head1 SYNOPSIS
+
+  use SL::SessionFile::Random;
+
+  # Create a session file named "customer.csv" (relative names only)
+  my $sfile = SL::SessionFile::Random->new("w");
+  $sfile->fh->print("col1;col2;col3\n" .
+                    "value1;value2;value3\n");
+  $sfile->fh->close;
+
+=head1 DESCRIPTION
+
+This modules gives you a random file in the current session cache that is guaranteed to be unique
+
+=head1 FUNCTIONS
+
+same as SL::SessioNFile
+
+=head1 BUGS
+
+NONE yet.
+
+=head1 AUTHOR
+
+Sven Schoeling E<lt>s.schoeling@linet-services.deE<gt>
+
+=cut