This is an old revision of the document!
How to Run a Perl Script on LSWS?
LiteSpeed comes with a persistent Perl CGI daemon which can run Perl CGI scripts without modification, just like mod_perl in Apache.
For a Control Panel Environment
If you configure LSWS to run Perl under a control panel environment, such as cPanel, you need to configure it as a Fast CGI application, and then add a script handler for “pl” or whatever suffixes used for Perl scripts. The Perl CGI daemon is located at
/usr/local/lsws/fcgi-bin/lsperld.fpl
Restart LiteSpeed Web Server.
For LSWS Native Configuration
For LSWS native configuration, you also need to set up the Fast CGI application and add a script handler for “pl”.
As lsperld.fpl
utilizes the Fast CGI interface, it is usually already configured for control panel environments. That may not be the case in a LSWS + bare OS situation. You may need to install the Perl Fast CGI module FCGI.pm
.
The Perl Fast CGI module is available at CPAN(Comprehensive Perl Archive Network).
On CentOS7, add the perl-CPAN
package first:
yum install epel-release yum install gcc yum install perl-CPAN
The following command can be used to install FCGI.pm
through CPAN:
perl -MCPAN -e 'install FCGI'
On a CentOS box, you can install perl-CGI
and perl-FCGI
packages through:
yum install perl-CGI
Verify the installed location of FCGI.pm
.
find / -name FCGI.pm /usr/lib64/perl5/vendor_perl/FCGI.pm
In order to deal with the increasing memory usage of a persistent process, the number of requests that a Perl daemon can process is controlled by an environment variable FCGI_PERL_MAX_REQ
. The default value is 500
.
For example: FCGI_PERL_MAX_REQ=1000
.
Restart LSWS to make the changes effective.
Testing
Place a test script called test.pl
in the document root of one of your virtual hosts:
#!/usr/bin/perl print "Content-type:text/html\n\n"; print <<EndOfHTML; <html><head><title>Perl Environment Variables</title></head> <body> <h1>Perl Environment Variables</h1> EndOfHTML foreach $key (sort(keys %ENV)) { print "$key = $ENV{$key}<br>\n"; } print "</body></html>";
You should see something similar to the following when visting http://yourdomain.com/test.pl
Perl Environment Variables DOCUMENT_ROOT = /usr/local/lsws/DEFAULT/html FCGI_PERL_MAX_REQ = 1000 FCGI_ROLE = RESPONDER GATEWAY_INTERFACE = CGI-PerlEx/1.1 HTTP_ACCEPT = text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8 HTTP_ACCEPT_ENCODING = gzip, deflate HTTP_ACCEPT_LANGUAGE = en-US,en;q=0.9 HTTP_CONNECTION = keep-alive HTTP_COOKIE = SESS3d805002e809eafb1aa4295801ff28d0=AXgcoPkfgngK9KYuHS4wIn9eVLHEndfHAy7Ys9Gnj4M; COMBIN=2e9910cb4771588a621ae6371c01550bdbe3e6d498788981dca50a1ab6bef6d3; COMINF=bypass_varnish HTTP_HOST = 192.168.0.178:8088 HTTP_UPGRADE_INSECURE_REQUESTS = 1 HTTP_USER_AGENT = Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/65.0.3325.181 Safari/537.36 LSAPI_CHILDREN = 35 LSAPI_PADDING = leave_some_room_to_avoid_overwrite_important_env PATH = /bin:/usr/bin:/usr/local/bin QUERY_STRING = REMOTE_ADDR = 192.168.0.198 REMOTE_PORT = 4322 REQUEST_METHOD = GET REQUEST_URI = /test.pl SCRIPT_FILENAME = /usr/local/lsws/DEFAULT/html/test.pl SCRIPT_NAME = /test.pl SERVER_ADDR = 192.168.0.178 SERVER_ADMIN = SERVER_NAME = 192.168.0.178 SERVER_PORT = 8088 SERVER_PROTOCOL = HTTP/1.1 SERVER_SOFTWARE = LiteSpeed
Troubleshooting
Installation error on LSWS native
Without the perl-CPAN
package installed, installation may run into the following error:
Can't locate CPAN.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .). BEGIN failed--compilation aborted.
Without installing FCGI.pm
, you may run into the following error in stderr.log
and see a 503 error on screen.
[STDERR] Can't locate FCGI.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at /usr/local/lsws/fcgi-bin/lsperld.fpl line 3
lscgid: execve() No such file error
A simple test perl script on a cPanel server runs into the following error and generates a 500 error code:
lscgid: execve():/home/user1/public_html/test.pl: No such file or directory
But /home/user1/public_html/test.pl
does exist. So why the No such file or directory
error?
Inspect the file in vi:
cd /home/user1/public_html/ vi test.pl
There is a ^M
at the end of each line, which means the file is in DOS/Windows format, not Unix format:
#!/usr/bin/perl^M print "Content-type:text/html\n\n";^M print <<EndOfHTML;^M <html><head><title>Perl Environment Variables</title></head>^M <body>^M <h1>Perl Environment Variables</h1>^M EndOfHTML^M foreach $key (sort(keys %ENV)) {^M print "$key = $ENV{$key}<br>\n";^M }^M print "</body></html>";
To test further, try:
[[ $(file test.pl) =~ CRLF ]] && echo dos
It returns:
dos
Because of the difference in DOS vs Unix format, LiteSpeed lscgid can not recognize the test.pl
file. Hence the No such file or directory
error.
To fix the issue, you will need to convert from DOS format to Unix. There are many ways to do so, including the following awk
command:
mv test.pl test.pl.dos awk 'sub("$", "\r")' test.pl.dos > test.pl
You can inspect test.pl
again in vi to verify the file format. You should no longer see the trailing ^M
in each line.
#!/usr/bin/perl print "Content-type:text/html\n\n"; print <<EndOfHTML; <html><head><title>Perl Environment Variables</title></head> <body> <h1>Perl Environment Variables</h1> EndOfHTML foreach $key (sort(keys %ENV)) { print "$key = $ENV{$key}<br>\n"; }
After the conversion, you should find the perl script is working perfectly.