lib/Frey/Editor.pm

package Frey::Editor;
use Moose;

=head1 DESCRIPTION

Support for local editor invocation from web

 <a href="/editor+$path+$line" target="editor">$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 $editor = $ENV{VISUAL} || $ENV{EDITOR} || 'vi';
        # FIXME SECURITY path verification for $1
        my $cmd = "$editor $1 +$2";
        warn "# $url -> system $cmd";
        return $cmd;
}

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