36 |
|
|
37 |
sub print { |
sub print { |
38 |
my $self = shift; |
my $self = shift; |
39 |
warn "# print ",dump( @_ ); |
warn "# print ", join(' ', map { length $_ } @_ ); |
40 |
$self->{print}->( @_ ); |
$self->{_print}->( @_ ); |
41 |
} |
} |
42 |
|
|
43 |
sub request { |
sub request { |
45 |
|
|
46 |
if ( my $ref = ref($url) ) { |
if ( my $ref = ref($url) ) { |
47 |
die "url not URI but ", dump( $url ) unless $ref =~ m{^URI}; |
die "url not URI but ", dump( $url ) unless $ref =~ m{^URI}; |
48 |
|
} else { |
49 |
$url = URI->new($url); |
$url = URI->new($url); |
50 |
} |
} |
51 |
|
|
62 |
if ( system($cmd) == 0 ) { |
if ( system($cmd) == 0 ) { |
63 |
my $server = Frey::Server->new; |
my $server = Frey::Server->new; |
64 |
$self->load_config; |
$self->load_config; |
65 |
Module::Reload->check; |
# Module::Reload->check; |
66 |
warn "# reload done"; |
warn "# reload done"; |
67 |
$self->print( refresh( $1, 1 ) ); |
$self->print( refresh( $1, 0 ) ); |
68 |
return; |
return; |
69 |
} else { |
} else { |
70 |
warn "ERROR: $?"; |
warn "ERROR: $?"; |
86 |
return $class; |
return $class; |
87 |
} |
} |
88 |
|
|
|
|
|
89 |
my $f; |
my $f; |
90 |
|
|
91 |
# shared run params |
# shared run params |
155 |
sub refresh { |
sub refresh { |
156 |
my ( $url, $time ) = @_; |
my ( $url, $time ) = @_; |
157 |
$url ||= '/'; |
$url ||= '/'; |
158 |
$time ||= 1; |
$time ||= 0; |
159 |
warn "# refresh $url"; |
warn "# refresh $url"; |
160 |
qq| |
qq| |
161 |
<html> |
<html> |