Apache-Voodoo

 view release on metacpan or  search on metacpan

lib/Apache/Voodoo/MP/V1.pm  view on Meta::CPAN

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
use Apache::Request;
use Apache::Cookie;
 
use base("Apache::Voodoo::MP::Common");
 
sub declined     { return Apache::Constants::DECLINED;     }
sub forbidden    { return Apache::Constants::FORBIDDEN;    }
sub ok           { return Apache::Constants::OK;           }
sub server_error { return Apache::Constants::SERVER_ERROR; }
sub not_found    { return Apache::Constants::NOT_FOUND;    }
 
sub content_type   { shift()->{'r'}->send_http_header(@_); }
sub err_header_out { shift()->{'r'}->err_header_out(@_); }
sub header_in      { shift()->{'r'}->header_in(@_); }
sub header_out     { shift()->{'r'}->header_out(@_); }
 
sub redirect {
        my $self = shift;
        my $loc  = shift;

lib/Apache/Voodoo/MP/V2.pm  view on Meta::CPAN

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
use Apache2::Upload;
use Apache2::Cookie;
 
use base("Apache::Voodoo::MP::Common");
 
sub declined     { return Apache2::Const::DECLINED;     }
sub forbidden    { return Apache2::Const::FORBIDDEN;    }
sub unauthorized { return Apache2::Const::AUTH_REQUIRED;}
sub ok           { return Apache2::Const::OK;           }
sub server_error { return Apache2::Const::SERVER_ERROR; }
sub not_found    { return Apache2::Const::NOT_FOUND;    }
 
sub content_type   { shift()->{'r'}->content_type(@_); }
sub err_header_out { shift()->{'r'}->err_headers_out->add(@_); }
sub header_in      { shift()->{'r'}->headers_in->{shift()}; }
sub header_out     { shift()->{'r'}->headers_out->add(@_); }
 
sub redirect {
        my $self = shift;
        my $loc  = shift;

lib/Apache/Voodoo/Soap.pm  view on Meta::CPAN

72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
my $return;
if ($self->{'mp'}->is_get() && $r->unparsed_uri =~ /\?wsdl$/) {
        my $uri = $self->{'mp'}->uri();
 
        $uri =~ s/^\///;
        $uri =~ s/\/$//;
 
        # FIXME hack.  Shouldn't be looking in there to get this
        unless ($self->{'engine'}->_app->{'controllers'}->{$uri}) {
                return $self->{'mp'}->not_found();
        }
 
        my $m = ref($self->{'engine'}->_app->{'controllers'}->{$uri});
        if ($m eq "Apache::Voodoo::Loader::Dynamic") {
                $m = ref($self->{'engine'}->_app->{'controllers'}->{$uri}->{'object'});
        }
        # FIXME here ends the hackery
 
        my $wsdl;
        eval {

lib/Apache/Voodoo/Soap.pm  view on Meta::CPAN

148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
$filename =~ s/\/$//;
 
$filename =~ s/\.tmpl$//;
unless ($self->{'run'}->{'method'} eq 'handle') {
        $filename =~ s/([\w_]+)$/$self->{'run'}->{'method'}_$1/i;
        $uri      =~ s/([\w_]+)$/$self->{'run'}->{'method'}_$1/i;
}
 
unless (-e "$filename.tmpl" &&
        -r "$filename.tmpl") {
        $self->{'status'} = $self->{'mp'}->not_found();
        $self->_client_fault($self->{'mp'}->not_found(),'No such service:'.$filename);
};
 
my $content;
eval {
        $self->{'engine'}->begin_run();
 
        $content = $self->{'engine'}->execute_controllers($uri,$params);
};
if (my $e = Exception::Class->caught()) {
        if ($e->isa("Apache::Voodoo::Exception::Application::Redirect")) {

lib/Apache/Voodoo/Test.pm  view on Meta::CPAN

185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
        $self->content_type('text/plain');
        $self->print("No WSDL generator installed.  Either install Pod::WSDL or Pod::WSDL2");
        return $self->ok;
}
 
# copied straight from Soap.pm
# FIXME hack.  Shouldn't be looking in there to get this
$uri =~ s/^\/+//;
 
unless ($self->{'engine'}->_app->{'controllers'}->{$uri}) {
        return $self->not_found();
}
 
my $m = ref($self->{'engine'}->_app->{'controllers'}->{$uri});
if ($m eq "Apache::Voodoo::Loader::Dynamic") {
        $m = ref($self->{'engine'}->_app->{'controllers'}->{$uri}->{'object'});
}
# FIXME here ends the hackery
 
my $wsdl;
eval {

lib/Apache/Voodoo/Test.pm  view on Meta::CPAN

343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
 
}
 
sub status { return $_[0]->{'status'}; }
 
sub declined     { my $self = shift; $self->{'status'} = "DECLINED";      return $self->{'status'}; }
sub forbidden    { my $self = shift; $self->{'status'} = "FORBIDDEN";     return $self->{'status'}; }
sub unauthorized { my $self = shift; $self->{'status'} = "AUTH_REQUIRED"; return $self->{'status'}; }
sub ok           { my $self = shift; $self->{'status'} = "OK";            return $self->{'status'}; }
sub server_error { my $self = shift; $self->{'status'} = "SERVER_ERROR";  return $self->{'status'}; }
sub not_found    { my $self = shift; $self->{'status'} = "NOT_FOUND";     return $self->{'status'}; }
 
sub content_type {
        my $self = shift;
 
        $self->{'content_type'} = shift if scalar(@_);
        return $self->{'content_type'};
}
 
sub err_header_out {
        my $self = shift;

t/test_data/test_db.sql  view on Meta::CPAN

21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
        a_text text
);
 
INSERT INTO avt_table VALUES(1,1,0,'2009-01-01','13:00:00','2000-02-01 12:00:00','a text string',             'a much larger text string');
INSERT INTO avt_table VALUES(2,2,1,'2010-01-01','17:00:00','2010-02-01 14:00:00','another text string',       'different much longer string');
INSERT INTO avt_table VALUES(3,4,1,'2010-03-15','16:00:00','2010-01-01 12:00:00','loren ipsum solor sit amet','consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.');
 
DROP TABLE IF EXISTS avt_all_types;
CREATE TABLE avt_all_types (
        id int unsigned not null primary key,
        bigint_not_null             bigint not null,
        bigint_null                 bigint     null,
        bigint_unsigned_not_null    bigint unsigned not null,
        bigint_unsigned_null        bigint unsigned     null,
        char_not_null               char(32) not null,
        char_null                   char(32)     null,
        date_not_null               date not null,
        date_null                   date     null,
        decimal_not_null            decimal(4,2) not null,
        decimal_null                decimal(4,2)     null,
        int_not_null                int not null,
        int_null                    int     null,
        int_unsigned_not_null       int unsigned not null,
        int_unsigned_null           int unsigned     null,
        integer_not_null            integer not null,
        integer_null                integer     null,
        mediumint_not_null          mediumint not null,
        mediumint_null              mediumint     null,
        mediumint_unsigned_not_null mediumint unsigned not null,
        mediumint_unsigned_null     mediumint unsigned null,
        smallint_not_null           smallint not null,
        smallint_null               smallint     null,
        smallint_unsigned_not_null  smallint unsigned not null,
        smallint_unsigned_null      smallint unsigned     null,
        text_not_null               text not null,
        text_null                   text     null,
        time_not_null               time not null,
        time_null                   time     null,
        tinyint_not_null            tinyint not null,
        tinyint_null                tinyint     null,
        tinyint_unsigned_not_null   tinyint unsigned not null,
        tinyint_unsigned_null       tinyint unsigned     null,
        varchar_not_null            varchar(64) not null,
        varchar_null                varchar(64)     null
);