1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
package main;
sub hostname { 'test1.example.com' }
package Lemonldap::NG::Handler::Test;
use Lemonldap::NG::Handler::Main;
our @ISA = qw(Lemonldap::NG::Handler::Main);
our $header;
use constant defaultLogger => 'Lemonldap::NG::Common::Logger::Std';
use constant REDIRECT => 302;
#sub hostname { 'test1.example.com' }
*hostname = \&main::hostname;
*logger = \&Lemonldap::NG::Handler::Main::logger;
sub newRequest { 1 }
sub header_in { "" }
sub is_initial_req { '1' }
sub remote_ip { '127.0.0.1' }
sub args { undef }
sub unparsed_uri { '/' }
sub uri { '/' }
sub uri_with_args { '/' }
sub get_server_port { '80' }
sub set_header_out { $header = join( ':', $_[1], $_[2], ); }
sub setServerSignature { 1 }
sub _lmLog { 1 }
1;
|
