simcop2387/web_light
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

works

Browse source
This commit is contained in:
Ryan Voots 2013-08-18 13:26:25 -07:00
parent ff35bc2f76
commit a1c32811f2
2 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
config.yml
View file

@ -4,4 +4,4 @@
show_errors: 1
public: 'files'
# logging to console
logger: "console"
# logger: "console"

13
test.pl
View file

@ -22,15 +22,16 @@ sub find_tty {
# do_ajax
any '/ajax' => sub {
my ($request, $response) = @_;
# my $json_str = $request->content();
my $json_str = $request->content();
# print "D: $json_str\n";
print "D: $json_str\n";
# my $data = {map {(split /=/, $_)} split /\&/, $json_str};
my %data = params;
my $data = {map {(split /=/, $_)} split /\&/, $json_str};
debug "Sending Color";
send_color($data);
send_color(\%data);
# return RC_OK;
};
@ -53,7 +54,7 @@ any qr{.*} => sub {
debug 'Serving file '.request->path;
if (-e $file) {
if (-f 'files/'.$file) {
return send_file( params->{file} );
} else {
return send_file( 'index.html' );