lib/Frey/Editor.pm

package Frey::Editor;
use Moose;

extends 'Frey::ClassLoader';

=head1 DESCRIPTION

Support for local editor invocation from web

 <a target="editor" href="/editor+$path+$line">$class</a>

=head2 url

  $path =~ $editor->url_regex

=cut

sub url_regex { qr{/editor\+?(.+?)\+(\d+)} }

=head2 command

  my $system = $editor->command( $path );

=cut

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';
        $path = $self->class_path( $path ) || $path if ! -e $path;
        my $cmd = "$editor $path +$line";
        warn "# $url -> system $cmd";
        return $cmd;
}

1;
1	package Frey::Editor;
2	use Moose;
3
4	extends 'Frey::ClassLoader';
5
6	=head1 DESCRIPTION
7
8	Support for local editor invocation from web
9
10	<a target="editor" href="/editor+$path+$line">$class</a>
11
12	=head2 url
13
14	$path =~ $editor->url_regex
15
16	=cut
17
18	sub url_regex { qr{/editor\+?(.+?)\+(\d+)} }
19
20	=head2 command
21
22	my $system = $editor->command( $path );
23
24	=cut
25
26	sub command {
27	my ( $self, $url ) = @_;
28	$url =~ url_regex;
29	my ( $path, $line ) = ( $1, $2 );
30	# FIXME SECURITY path verification for $path
31	my $editor = $ENV{VISUAL} \|\| $ENV{EDITOR} \|\| 'vi';
32	$path = $self->class_path( $path ) \|\| $path if ! -e $path;
33	my $cmd = "$editor $path +$line";
34	warn "# $url -> system $cmd";
35	return $cmd;
36	}
37
38	1;