perl - Using HTTP::Server::Simple::CGI, how do I get the headers? -

-

basically, question similar how access http request headers in http::server::simple::cgi?

the answer use parse_headers(), there no example how use properly. tried use parse_headers() i'm not getting result, stops @ parse_headers() program stucked. couldn't add comment on question above since don't have enough rep so, created new question.

below sample code, example code cpan added parse_headers:

#!/usr/bin/perl { package mywebserver;  use http::server::simple::cgi; our @isa = qw(http::server::simple::cgi); use data::dumper;  %dispatch = (     '/hello.cgi' => \&resp_hello,     # ... );  sub handle_request {     $self = shift;     $cgi  = shift;      $path = $cgi->path_info();     $handler = $dispatch{$path};      $header = $self->parse_headers();     open f,qq{>>~/mywebserver.log};     $dump = data::dumper->dump([$header], [qw($header)]);     print f $dump;     close f;      if (ref($handler) eq "code") {         print "http/1.0 200 ok\r\n";         $handler->($cgi);      } else {         print "http/1.0 404 not found\r\n";         print $cgi->header,               $cgi->start_html('not found'),               $cgi->h1('not found'),               $cgi->end_html;     } }  sub resp_hello {     $cgi  = shift;   # cgi.pm object     return if !ref $cgi;      $who = $cgi->param('name');      print $cgi->header,           $cgi->start_html("hello"),           $cgi->h1("hello $who!"),           $cgi->end_html; }  } # end of package mywebserver  # start server on port 8080 $pid = mywebserver->new(8080)->background(); print "use 'kill $pid' stop server.\n";

only added part:

    $header = $self->parse_headers();     open f,qq{>>~/mywebserver.log};     $dump = data::dumper->dump([$header], [qw($header)]);     print f $dump;     close f;

my objective headers , dump file.

add

sub headers {     my( $self, $headers ) = @_;     if( $headers ){         $self->{__last_headers} = { @$headers };     }     return $self->{__last_headers}; }

then inside handle_request use my $header = $self->headers();

fwiw, i'm curious why you're using http::server::simple::cgi instead of mojolicious or dancer or http::server::simple::psgi. https://metacpan.org/pod/psgi portability.


Comments

Post a Comment

Popular posts from this blog

python - TypeError: start must be a integer -

-
i trying draw 5 turtles, getting typeerror on line 25. here code: import turtle wn = turtle.screen() redrose = turtle.turtle() color = input("what background color be?") fillcolor_f = input("what color of rose be?") redrose.hideturtle() redrose.speed(30) redrose.penup() redrose.left(180) redrose.forward(175) redrose.right(90) redrose.forward(30) redrose.right(90) redrose.pendown() def drawrose(red): redrose.color("pink") redrose.fillcolor(fillcolor_f) redrose.fill(true) in range(red): redrose.forward(i) redrose.right(49) in range(5): drawrose(redrose) redrose.penup() redrose.forward(350) redrose.right(144) redrose.pendown() redrose.fill(false) drawrose(50) wn.bgcolor(color) i trying draw 5 roses, produces errors. doing in interactivepython.org. you recursively calling drawrose wrong parameter. on line 23 ( for in range(red): ) expect red integer...
Read more

c# - DevExpress RepositoryItemComboBox BackColor property ignored -

-
i have following code almost works properly; private void cbstatus_drawitem(object sender, listboxdrawitemeventargs e) { string item = e.item string; if (item != null) { switch (item) { case "1": e.appearance.forecolor = color.green; e.appearance.backcolor = color.green; break; case "2": e.appearance.forecolor = color.orange; e.appearance.backcolor = color.orange; break; case "3": e.appearance.forecolor = color.red; e.appearance.backcolor = color.red; break; } } } when dropdown shown, items forecolor correct, backcolor remains whatever backcolor of theme is; i.e. if i've got set dark theme, backcolor dark, cells in gridview, rather being green/orange/red. i've tried setting e.appearance.options.usebackcolor trying set e....
Read more

django - Creating multiple model instances in DRF3 -

-
1) create multiple model instances 1 api call, asked here: how create multiple model instances django rest framework? tried solution named in link, no success. i trying upload multiple files in 1 api call. result: files uploaded (only once overwrote perform_create) 1 instance created (if send 2 files, latter created instance). my code: class fileuploadserializer(serializers.modelserializer): def __init__(self, *args, **kwargs): many = kwargs.pop('many', true) super(fileuploadserializer, self).__init__(many=many, *args, **kwargs) class meta: model = fileupload read_only_fields = ('created', 'datafile', 'owner') class fileuploadviewset(viewsets.modelviewset): queryset = fileupload.objects.all() serializer_class = fileuploadserializer parser_classes = (multipartparser, formparser, ) def perform_create(self, serializer): file_list = self.request.data.getlist('file') ...
Read more