--- trunk/lib/Frey/Editor.pm 2008/11/18 12:02:57 407 +++ trunk/lib/Frey/Editor.pm 2008/11/18 16:39:13 417 @@ -1,6 +1,8 @@ package Frey::Editor; use Moose; +extends 'Frey::ClassLoader'; + =head1 DESCRIPTION Support for local editor invocation from web @@ -24,9 +26,11 @@ sub command { my ( $self, $url ) = @_; $url =~ url_regex; + my ( $path, $line ) = ( $1, $2 ); + # FIXME SECURITY path verification for $path my $editor = $ENV{VISUAL} || $ENV{EDITOR} || 'vi'; - # FIXME SECURITY path verification for $1 - my $cmd = "$editor $1 +$2"; + $path = $self->class_path( $path ) || $path if ! -e $path; + my $cmd = "$editor $path +$line"; warn "# $url -> system $cmd"; return $cmd; }