Hi Hiltjo:

Your solution with

open(my $fh, ">", "/foo/out");

works. Many thanks.

Am 12.08.2018 um 00:58 schrieb Hiltjo Posthuma:
> On Sat, Aug 11, 2018 at 11:45:14PM +0200, Toru Okada wrote:
>> Now:
>>
>> #!/usr/bin/perl
>>
>> print("Content-Type: text/html; charset=ascii\r\n\r\n");
>> print("a"); # works
>> # no error but not found in file system after the script finished
> 
>> open(my $fh, ">", "/var/www/foo/out");
> 
> What about changing:
> 
>> open(my $fh, ">", "/var/www/foo/out");
> 
> to:
> 
> open(my $fh, ">", "/foo/out");
> 
> assuming the slowcgi chroot is /var/www of course.
> 
>> print($fh "foo");
>> close($fh);
>> print("b");
>>
>> "foo" is writable by all:
>>
>> # ls -l /var/www/
>> total 40
>> drwxr-xr-x  2 root  daemon  512 Apr  1  2017 acme
>> drwxr-xr-x  2 root  daemon  512 Apr  1  2017 bin
>> drwx-----T  2 www   daemon  512 Apr  1  2017 cache
>> drwxr-xr-x  2 root  daemon  512 Aug  9 17:56 cgi-bin
>> drwxr-xr-x  2 root  daemon  512 Aug 28  2017 conf
>> drwxrwxrwx  2 root  daemon  512 Aug  9 17:34 foo
>> drwxr-xr-x  4 root  daemon  512 Apr 15 04:26 htdocs
>> drwxr-xr-x  2 root  daemon  512 Jul  1 00:00 logs
>> drwxr-xr-x  2 root  daemon  512 Aug  9 19:39 run
>> drwxr-xr-x  5 root  daemon  512 Apr 15 11:17 usr
>>
>> # chroot -u www /var/www/ cgi-bin/test.pl
>> Content-Type: text/html; charset=ascii
>>
>> ab#
>>
>> # ls -l /var/www/cgi-bin/test.pl
>> -rwxrwxrwx  1 755  www  244 Aug  9 19:32 /var/www/cgi-bin/test.pl
>>
>> # slowcgi -d
>> slowcgi: socket: /var/www/run/slowcgi.sock
>> slowcgi: slowcgi_user: www
>> slowcgi: chroot: /var/www
>> slowcgi: inflight incremented, now 1
>> slowcgi: version:         1
>> slowcgi: type:            1
>> slowcgi: requestId:       1
>> slowcgi: contentLength:   8
>> slowcgi: paddingLength:   0
>> slowcgi: reserved:        0
>> slowcgi: role             1
>> slowcgi: flags            0
>> slowcgi: version:         1
>> slowcgi: type:            4
>> slowcgi: requestId:       1
>> slowcgi: contentLength:   808
>> slowcgi: paddingLength:   0
>> slowcgi: reserved:        0
>> slowcgi: env[0], PATH_INFO=
>> slowcgi: env[1], SCRIPT_NAME=/cgi-bin/test.pl
>> slowcgi: env[2], SCRIPT_FILENAME=//cgi-bin/test.pl
>> slowcgi: env[3], QUERY_STRING=
>> slowcgi: env[4], DOCUMENT_ROOT=/
>> slowcgi: env[5], DOCUMENT_URI=/cgi-bin/test.pl
>> slowcgi: env[6], GATEWAY_INTERFACE=CGI/1.1
>> slowcgi: env[7], 
>> HTTP_ACCEPT=text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8
>> slowcgi: env[8], HTTP_ACCEPT_ENCODING=gzip, deflate
>> slowcgi: env[9], HTTP_ACCEPT_LANGUAGE=de-DE,de;q=0.9,en-US;q=0.8,en;q=0.7
>> slowcgi: env[10], HTTP_CACHE_CONTROL=max-age=0
>> slowcgi: env[11], HTTP_CONNECTION=keep-alive
>> slowcgi: env[12], HTTP_HOST=192.168.178.43
>> slowcgi: env[13], HTTP_UPGRADE_INSECURE_REQUESTS=1
>> slowcgi: env[14], HTTP_USER_AGENT=Mozilla/5.0 (Windows NT 10.0; Win64; x64) 
>> AppleWebKit/537.36 (KHTML, like Gecko) Chrome/68.0.3440.106 Safari/537.36
>> slowcgi: env[15], REMOTE_ADDR=192.168.178.29
>> slowcgi: env[16], REMOTE_PORT=56472
>> slowcgi: env[17], REQUEST_METHOD=GET
>> slowcgi: env[18], REQUEST_URI=/cgi-bin/test.pl
>> slowcgi: env[19], SERVER_ADDR=192.168.178.43
>> slowcgi: env[20], SERVER_PORT=80
>> slowcgi: env[21], SERVER_NAME=127.0.0.1
>> slowcgi: env[22], SERVER_PROTOCOL=HTTP/1.1
>> slowcgi: env[23], SERVER_SOFTWARE=OpenBSD httpd
>> slowcgi: version:         1
>> slowcgi: type:            4
>> slowcgi: requestId:       1
>> slowcgi: contentLength:   0
>> slowcgi: paddingLength:   0
>> slowcgi: reserved:        0
>> slowcgi: fork: //cgi-bin/test.pl
>> slowcgi: version:         1
>> slowcgi: type:            5
>> slowcgi: requestId:       1
>> slowcgi: contentLength:   0
>> slowcgi: paddingLength:   0
>> slowcgi: reserved:        0
>> slowcgi: resp version:         1
>> slowcgi: resp type:            6
>> slowcgi: resp requestId:       1
>> slowcgi: resp contentLength:   44
>> slowcgi: resp paddingLength:   4
>> slowcgi: resp reserved:        0
>> slowcgi: wait: //cgi-bin/test.pl
>> slowcgi: resp version:         1
>> slowcgi: resp type:            6
>> slowcgi: resp requestId:       1
>> slowcgi: resp contentLength:   0
>> slowcgi: resp paddingLength:   0
>> slowcgi: resp reserved:        0
>> slowcgi: resp version:         1
>> slowcgi: resp type:            7
>> slowcgi: resp requestId:       1
>> slowcgi: resp contentLength:   0
>> slowcgi: resp paddingLength:   0
>> slowcgi: resp reserved:        0
>> slowcgi: resp version:         1
>> slowcgi: resp type:            3
>> slowcgi: resp requestId:       1
>> slowcgi: resp contentLength:   8
>> slowcgi: resp paddingLength:   0
>> slowcgi: resp reserved:        0
>> slowcgi: resp appStatus:       0
>> slowcgi: resp protocolStatus:  0
>>
>> # httpd -d -vv
>> socket_rlimit: max open files 1024
>> startup
>> server_privinit: adding server 127.0.0.1
>> socket_rlimit: max open files 1024
>> socket_rlimit: max open files 1024
>> server_launch: configuring server 127.0.0.1
>> server_launch: running server 127.0.0.1
>> server_launch: configuring server 127.0.0.1
>> server_launch: running server 127.0.0.1
>> server_launch: configuring server 127.0.0.1
>> server_launch: running server 127.0.0.1
>> 127.0.0.1 192.168.178.29 - - [09/Aug/2018:19:39:13 +0200] "GET 
>> /cgi-bin/test.pl HTTP/1.1" 200 0
>>
>> # cat /etc/httpd.conf
>> server "127.0.0.1" {
>>         listen on * port 80
>>         location "/cgi-bin/*" {
>>                 fastcgi
>>                 root "/"
>>         }
>> }
>>
>> # ls -l /var/www/usr/bin/
>> total 20
>> -rwxr-xr-x  1 root  daemon  9296 Apr 15 11:19 perl
>>
>> # ls -l /var/www/usr/lib/
>> total 15576
>> -r--r--r--  1 root  daemon  2862990 Apr 15 11:19 libc.so.89.3
>> -r--r--r--  1 root  daemon   463356 Apr 15 11:19 libm.so.10.0
>> -r--r--r--  1 root  daemon  4293077 Apr 15 11:20 libperl.so.18.0
>> -r--r--r--  1 root  daemon   146552 Apr 15 11:20 libpthread.so.23.0
>> -r--r--r--  1 root  daemon   125877 Apr 15 11:20 libutil.so.12.1
>>
>> # ls -l /var/www/usr/libexec/
>> total 372
>> -r--r--r--  1 root  daemon  189764 Apr 15 11:21 ld.so
>>
>> Still no error but no written file as well.
>>
>> Am 11.08.2018 um 21:13 schrieb Hiltjo Posthuma:
>>> On Sat, Aug 11, 2018 at 07:58:02PM +0200, Toru Okada wrote:
>>>> Hi:
>>>>
>>>> I want to write a file out from within a perl cgi script. This is 
>>>> obviously not possible in the standard configuration of httpd. The normal 
>>>> output works perfectly. What is to do?
>>>>
>>>> #!/usr/bin/perl
>>>>
>>>> print("Content-Type: text/html; charset=ascii\n\n");
>>>
>>> Unrelated but the line-endings should be "\r\n" for these headers.
>>> https://www.w3.org/Protocols/rfc2616/rfc2616-sec2.html#sec2.2
>>>
>>>> print("hello world"); # works
>>>> # no error but not found in file system after the script finished
>>>> open(my $fh, ">", "out") or die $!;   
>>>
>>> Maybe some permission/work directory issue? Try writing to an absolute path.
>>> slowcgi is chrooted by default, so maybe it tries to write to /var/www/out 
>>> and
>>> it has no permissions for that?
>>>
>>> Running httpd -d -vv and slowcgi -d can help to debug too.
>>>
>>>> print($fh "foo");
>>>> close($fh);
>>>>
>>>> OpenBSD 6.1
>>>>
>>>> Many thanks in advance.
>>>>
>>>
>>
> 

Reply via email to