--- trunk/lib/Frey/Server.pm 2008/11/09 09:58:13 341 +++ trunk/lib/Frey/Server.pm 2008/11/15 16:29:26 346 @@ -93,6 +93,15 @@ $f = Frey::ObjectDesigner->new( fey_class => $params{class} ); $f->request( $req ); } elsif ( + $path =~ m{/editor(.+?)\+(\d+)} + ) { + my $editor = $ENV{VISUAL} || $ENV{EDITOR} || 'vi'; + my $cmd = "$editor -R +$2 $1"; + warn "# $path -> system $cmd"; + $req->print( $cmd ); + system( $cmd ); + return; + } elsif ( $path =~ m{/([^/]+)/($run_regexp)} ) { my $class = rest2class $1;