62 |
sub main { |
sub main { |
63 |
my ($req) = @_; |
my ($req) = @_; |
64 |
|
|
65 |
|
# $req->send_headers("X-Frey-VERSION: $Frey::VERSION"); |
66 |
|
|
67 |
my $path = $req->request->url->path; |
my $path = $req->request->url->path; |
68 |
|
|
69 |
eval { |
eval { |
152 |
warn "# run $path -> $class $2"; |
warn "# run $path -> $class $2"; |
153 |
$run->{format} = $3 if $3; |
$run->{format} = $3 if $3; |
154 |
$params{request_url} = $req->request->url; |
$params{request_url} = $req->request->url; |
155 |
|
$req->send_headers( "X-Frey: run $class" ); # send something to browser so we don't time-out |
156 |
$f = Frey::Run->new( class => $class, params => \%params, run => $2, %$run ); |
$f = Frey::Run->new( class => $class, params => \%params, run => $2, %$run ); |
157 |
} elsif ( |
} elsif ( |
158 |
$path =~ m{/([^/]+)/?$} |
$path =~ m{/([^/]+)/?$} |