--- Session.pm	2007/08/06 09:20:20	169
+++ Session.pm	2007/08/06 09:20:49	170
@@ -11,7 +11,7 @@
 use POSIX qw/strftime/;
 
 use base qw/Class::Accessor/;
-__PACKAGE__->mk_accessors(qw(session_uuid));
+__PACKAGE__->mk_accessors(qw(session_uuid session_path));
 
 
 =head1 NAME
@@ -35,8 +35,6 @@
 
 =cut
 
-my $path = 'session.pl';
-
 my $last_tick = 0;
 
 my $t = 0;
@@ -48,11 +46,24 @@
 	my $name = shift || confess "need name";
 	my $value = shift || confess "need value";
 
+	my $path = $self->session_path;
+
+	if ( ! $path ) {
+		$path = 'sess/current';
+		$self->session_path( $path );
+		if ( -e $path ) {
+			warn "session appending to: $path\n";
+		} else {
+			warn "session creating: $path\n";
+		}
+	}
+
 	if ( @timeline ) {
 		warn "INFO: Aborting recorderd session\n";
 		@timeline = ();
 		$t = 0;
 		$s = {};
+		$last_tick = 0;
 	}
 
 	my $t = $self->app->ticks;