Parent Directory | Revision Log | Patch
revision 127 by dpavlin, Mon Jul 14 23:16:21 2008 UTC | revision 142 by dpavlin, Wed Jul 16 14:14:18 2008 UTC | |
---|---|---|
# | Line 40 sub main { | Line 40 sub main { |
40 | my ($req) = @_; | my ($req) = @_; |
41 | ||
42 | my $path = $req->request->url->path; | my $path = $req->request->url->path; |
43 | warn "REQUEST: $path\n"; | warn "REQUEST: $path ",dump( $req->params ),"\n"; |
44 | ||
45 | Module::Reload->check if $path =~ m!reload!; | Module::Reload->check if $path =~ m!reload! || $req->param('reload'); |
46 | ||
47 | warn $req->request->header('User_Agent'); | # warn $req->request->header('User_Agent'); |
#warn dump( $req ); | ||
48 | ||
49 | eval { | # eval { |
50 | { | |
51 | ||
52 | my $f; | my $f; |
53 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |