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	dpavlin	407	package Frey::Editor;
2			use Moose;
3
4	dpavlin	417	extends 'Frey::ClassLoader';
5
6	dpavlin	407	=head1 DESCRIPTION
7
8			Support for local editor invocation from web
9
10	dpavlin	495	<a target="editor" href="/editor+$path+$line">$class</a>
11	dpavlin	407
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	dpavlin	417	my ( $path, $line ) = ( $1, $2 );
30			# FIXME SECURITY path verification for $path
31	dpavlin	407	my $editor = $ENV{VISUAL} \|\| $ENV{EDITOR} \|\| 'vi';
32	dpavlin	417	$path = $self->class_path( $path ) \|\| $path if ! -e $path;
33			my $cmd = "$editor $path +$line";
34	dpavlin	407	warn "# $url -> system $cmd";
35			return $cmd;
36			}
37
38			1;