--- trunk/lib/Frey/Server.pm 2008/11/15 16:29:26 346 +++ trunk/lib/Frey/Server.pm 2008/11/17 22:57:51 387 @@ -96,7 +96,8 @@ $path =~ m{/editor(.+?)\+(\d+)} ) { my $editor = $ENV{VISUAL} || $ENV{EDITOR} || 'vi'; - my $cmd = "$editor -R +$2 $1"; + # FIXME SECURITY path verification for $1 + my $cmd = "$editor +$2 $1"; warn "# $path -> system $cmd"; $req->print( $cmd ); system( $cmd ); @@ -106,7 +107,7 @@ ) { my $class = rest2class $1; warn "# run $class $2\n"; - $f = Frey::Run->new( class => $class, params => \%params ); + $f = Frey::Run->new( class => $class, params => \%params, run => $2 ); } elsif ( $path =~ m{/([^/]+)/?$} ) { @@ -130,7 +131,7 @@ if ( $@ ) { warn $@; $req->conn->send_error( 404 ); # FIXME this should probably be 500, but we can't ship page with it - $req->print( qq{
$@
} );
+		$req->print( qq{
$@
} );
 #		Carp::REPL::repl;
 
 	}