Parent Directory | Revision Log | Patch
revision 101 by dpavlin, Fri Jul 11 22:54:42 2008 UTC | revision 103 by dpavlin, Fri Jul 11 23:08:25 2008 UTC | |
---|---|---|
# | Line 18 use vars qw( $repl $server ); | Line 18 use vars qw( $repl $server ); |
18 | #$repl = Continuity::REPL->new; | #$repl = Continuity::REPL->new; |
19 | ||
20 | sub run { | sub run { |
21 | my ( $self, $port ) = @_; | |
22 | $server = Continuity->new( | $server = Continuity->new( |
23 | port => 16001, | port => $port || 16001, |
24 | path_session => 1, | path_session => 1, |
25 | cookie_session => 'sid', | cookie_session => 'sid', |
26 | callback => \&main, | callback => \&main, |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |