mirror of
https://github.com/casjaysdevdocker/lighttpd
synced 2025-01-18 00:34:23 -05:00
🗃️ Committing everything that changed 🗃️
This commit is contained in:
casjay
parent
0f7c897742
commit
125eb060c2
@ -24,7 +24,7 @@ RUN set -ex; \
|
||||
if [ "${ALPINE_VERSION}" = "edge" ]; then echo "http://dl-cdn.alpinelinux.org/alpine/${ALPINE_VERSION}/testing" >>"/etc/apk/repositories" ; fi ; \
|
||||
apk update --update-cache && apk add \
|
||||
bash iproute2 \
|
||||
spawn-fcgi lighttpd lighttpd-mod_auth lighttpd-mod_webdav && \
|
||||
spawn-fcgi lighttpd lighttpd-mod_auth lighttpd-mod_webdav python3 ruby perl perl-cgi php8-cgi && \
|
||||
cp -Rf "/etc/lighttpd" "$DEFAULT_TEMPLATE_DIR/lighttpd"
|
||||
|
||||
|
||||
@ -45,7 +45,7 @@ ARG \
|
||||
SERVICE_PORT="80" \
|
||||
EXPOSE_PORTS="80" \
|
||||
PHP_SERVER="lighttpd" \
|
||||
NODE_VERSION="14" \
|
||||
NODE_VERSION="system" \
|
||||
NODE_MANAGER="system" \
|
||||
BUILD_VERSION="latest" \
|
||||
LICENSE="MIT" \
|
||||
|
||||
404
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.cgi
Executable file
404
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.cgi
Executable file
@ -0,0 +1,404 @@
|
||||
#!/usr/bin/env perl
|
||||
##
|
||||
###########################
|
||||
## Server Info CGI v1.08 ##
|
||||
###########################
|
||||
##
|
||||
## ######################################
|
||||
## ## Server Info CGI v1.08 <20> 2000 ##
|
||||
## ## http://www.widexl.com ##
|
||||
## ## Made by Henk Boonstra ##
|
||||
## ######################################
|
||||
##
|
||||
## This script gives information about your (web)server.
|
||||
## Software, Modules, libraries, env, network...
|
||||
##
|
||||
## Install:
|
||||
## Change the path to perl (The first line in this script).
|
||||
## Upload the script in ASCII mode to your cgi-bin directory.
|
||||
## chmod script to 755.
|
||||
## Open the script in a browser.
|
||||
##
|
||||
##############################
|
||||
##############################
|
||||
|
||||
use strict;
|
||||
use warnings FATAL => 'all';
|
||||
no warnings 'redefine'; # to be remove in production
|
||||
use Carp;
|
||||
|
||||
our %info = ();
|
||||
my $output = undef;
|
||||
my $ver = 'v1.8';
|
||||
|
||||
find_prog();
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
my $header = qq|
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
|
||||
|
||||
<html>
|
||||
<head>
|
||||
<title>Server Info script</title>
|
||||
<meta name="robots" content="noindex,nofollow">
|
||||
|
||||
<style type="text/css"><!--
|
||||
BODY {
|
||||
background-color : #FFFFFF;
|
||||
font-family: verdana, arial, helvetica, sans-serif;
|
||||
color : #484848;
|
||||
font-size : 12px;
|
||||
|
||||
scrollbar-face-color: #FFFFFF;
|
||||
scrollbar-shadow-color: #000000;
|
||||
scrollbar-highlight-color: #484848;
|
||||
scrollbar-3dlight-color: #FFFFFF;
|
||||
scrollbar-darkshadow-color: #000000;
|
||||
scrollbar-track-color: #8E929D;
|
||||
scrollbar-arrow-color: #484848;
|
||||
}
|
||||
|
||||
TD {
|
||||
font-family: verdana, arial, helvetica, sans-serif;
|
||||
color : #484848;
|
||||
font-size : 12px;
|
||||
}
|
||||
|
||||
PRE {
|
||||
color : #484848;
|
||||
margin-bottom: 0px;
|
||||
margin-top: 0px;
|
||||
}
|
||||
|
||||
I {
|
||||
font-family: verdana, arial, helvetica, sans-serif;
|
||||
color : Red;
|
||||
font-size : 12px;
|
||||
}
|
||||
|
||||
STRONG {
|
||||
background-color : transparent;
|
||||
font-family: verdana, arial, helvetica, sans-serif;
|
||||
color : #484848;
|
||||
font-size : 12px;
|
||||
font-weight : bold;
|
||||
}
|
||||
|
||||
--></style>
|
||||
</head>
|
||||
<body>
|
||||
|;
|
||||
|
||||
$output .= "$header\n";
|
||||
$output .= "<table border=\"0\" cellspacing=\"0\" cellpadding=\"32\" align=\"left\" width=\"760\"><tr><td align=\"left\">\n\n";
|
||||
|
||||
if ($^O eq 'MSWin32') {
|
||||
$info{'OS_VERSION'} = `ver`;
|
||||
$info{'HOST_NAME'} = `hostname`;
|
||||
if ($info{'OS_VERSION'}) {$info{'EXEC'} = 'Enabled'}
|
||||
}
|
||||
|
||||
else {
|
||||
$info{'PROC_RELEASE'} = `uname -r`;
|
||||
$info{'MACHINE'} = `uname -m`;
|
||||
$info{'PROCESSOR'} = `uname -p`;
|
||||
$info{'NODE_NAME'} = `uname -n`;
|
||||
$info{'SYS_NAME'} = `uname -s`;
|
||||
$info{'WHOAMI'} = `whoami`;
|
||||
|
||||
my $ex = `which perl`;
|
||||
$info{'TAR'} = `which tar` || $info{'TAR'};
|
||||
$info{'GZIP'} = `which gzip` || $info{'GZIP'};
|
||||
$info{'COMPRESS'} = `which compress` || $info{'COMPRESS'};
|
||||
$info{'WHOIS'} = `which whois` || $info{'WHOIS'};
|
||||
$info{'CONVERT'} = `which convert` || $info{'CONVERT'};
|
||||
$info{'MAIL_PROGRAM'} = `which sendmail` || $info{'MAIL_PROGRAM'};
|
||||
$info{'MAIL_PROGRAM'} = "Found no mail program" if (!$info{'MAIL_PROGRAM'});
|
||||
|
||||
$info{'UPTIME'} = `uptime`;
|
||||
$info{'QUOTA'} = `quota`;
|
||||
$info{'QUOTA'} =~ s/\n/<br>/isg if ($info{'QUOTA'});
|
||||
|
||||
if ($ex) {$info{'EXEC'} = 'Enabled'}
|
||||
}
|
||||
|
||||
$info{'OS'} = $^O;
|
||||
$info{'SERVER_NAME'} = $ENV{'SERVER_NAME'};
|
||||
$info{'SERVER_ADDR'} = $ENV{'SERVER_ADDR'};
|
||||
|
||||
$info{'PERL_EXE'} = $^X;
|
||||
$info{'PERL_VER'} = $];
|
||||
$info{'PERL_LIB'} = "@INC";
|
||||
|
||||
$info{'HTTP_HOST'} = $ENV{'HTTP_HOST'};
|
||||
$info{'APACHE_LIB'} = $info{'APACHE_LIB'};
|
||||
$info{'DOCU_ROOT'} = $ENV{'DOCUMENT_ROOT'};
|
||||
$info{'SERVER_ADMIN'} = $ENV{'SERVER_ADMIN'};
|
||||
$info{'SERVER_SOFT'} = $ENV{'SERVER_SOFTWARE'};
|
||||
$info{'HTTP_ACCEPT'} = $ENV{'HTTP_ACCEPT'};
|
||||
|
||||
$info{'REMOTE_ADDR'} = $ENV{'REMOTE_ADDR'};
|
||||
$info{'REMOTE_HOST'} = $ENV{'REMOTE_HOST'};
|
||||
$info{'ACCEPT_LANG'} = $ENV{'HTTP_ACCEPT_LANGUAGE'};
|
||||
$info{'USER_AGENT'} = $ENV{'HTTP_USER_AGENT'};
|
||||
|
||||
$info{'SERVER_VER'} = server('version');
|
||||
$info{'SERVER_CPU'} = server('cpuinfo');
|
||||
$info{'SERVER_MEM'} = server('meminfo');
|
||||
|
||||
# The Output.
|
||||
$output .= "<strong>Server info</strong><br>\n";
|
||||
$output .= "Operating system = <%OS%><br>\n";
|
||||
|
||||
if (("$^O" eq "MSWin32") and ($info{'EXEC'})) {
|
||||
$output .= "Version = <%OS_VERSION%><br>\n";
|
||||
$output .= "Host name = <%HOST_NAME%><br>\n";
|
||||
}
|
||||
|
||||
if (("$^O" ne "MSWin32") and ($info{'EXEC'})) {
|
||||
$output .= "Kernel = <%PROC_RELEASE%><br>\n";
|
||||
$output .= "Machine = <%MACHINE%><br>\n";
|
||||
$output .= "Processor type = <%PROCESSOR%><br>\n";
|
||||
$output .= "Whoami = <%WHOAMI%><br>\n";
|
||||
$output .= "Host name = <%NODE_NAME%><br>\n";
|
||||
}
|
||||
|
||||
$output .= "Server name = <%SERVER_NAME%><br>\n";
|
||||
$output .= "Server IP = <%SERVER_ADDR%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Web server info</strong><br>\n";
|
||||
$output .= "HTTP address = <%HTTP_HOST%><br>\n";
|
||||
$output .= "Document root = <%DOCU_ROOT%><br>\n";
|
||||
$output .= "Apache lib = <%APACHE_LIB%><br>\n";
|
||||
$output .= "Administrator = <%SERVER_ADMIN%><br>\n";
|
||||
$output .= "Server software = <%SERVER_SOFT%><br>\n";
|
||||
$output .= "HTTP accept = <%HTTP_ACCEPT%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Server programs</strong><br>\n";
|
||||
$output .= "Mail program = <%MAIL_PROGRAM%><br>\n";
|
||||
$output .= "Tar program = <%TAR%><br>\n";
|
||||
$output .= "Gzip program = <%GZIP%><br>\n";
|
||||
$output .= "Compress program = <%COMPRESS%><br>\n";
|
||||
$output .= "Whois program = <%WHOIS%><br>\n";
|
||||
$output .= "ImageMagick convert = <%CONVERT%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Perl info</strong><br>\n";
|
||||
$output .= "Perl location = <%PERL_EXE%><br>\n";
|
||||
$output .= "Perl version = <%PERL_VER%><br>\n";
|
||||
$output .= "Locations of Perl libraries = <%PERL_LIB%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Remote user info</strong><br>\n";
|
||||
$output .= "Remote IP = <%REMOTE_ADDR%><br>\n";
|
||||
$output .= "Remote hostname = <%REMOTE_HOST%><br>\n";
|
||||
$output .= "Language = <%ACCEPT_LANG%><br>\n";
|
||||
$output .= "User agent = <%USER_AGENT%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Extra info</strong><br>\n";
|
||||
$output .= "Executing of system commands = Enabled<br>\n" if ($info{'EXEC'});
|
||||
$output .= "Executing of system commands = Not enabled<br>\n" if (!$info{'EXEC'});
|
||||
$output .= "Server uptime = <%UPTIME%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
if ("$^O" ne "MSWin32") {
|
||||
|
||||
$output .= "<strong>Server version</strong><br>\n";
|
||||
$output .= "<%SERVER_VER%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
if ($info{'QUOTA'}) {
|
||||
$output .= "<strong>Disk Quota</strong><br>\n";
|
||||
$output .= "<%QUOTA%>\n";
|
||||
$output .= "<br>\n\n";
|
||||
}
|
||||
|
||||
$output .= "<strong>CPU info</strong><br>\n";
|
||||
$output .= "<%SERVER_CPU%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Memory info</strong><br>\n";
|
||||
$output .= "<%SERVER_MEM%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
}
|
||||
|
||||
$output .= "<strong>Perl libraries installed</strong><br>\n";
|
||||
eval {require CGI};
|
||||
if ($@) {$output .= "<i>The library CGI is not installed</i><br>\n"}
|
||||
else {$output .= "Library CGI v$CGI::VERSION installed<br>\n"}
|
||||
|
||||
eval {require mod_perl};
|
||||
if ($@) {$output .= "<i>The library mod_perl is not installed</i><br>\n"}
|
||||
else {$output .= "Library mod_perl v$mod_perl::VERSION installed<br>\n"}
|
||||
|
||||
eval {require LWP};
|
||||
if ($@) {$output .= "<i>The library www-perl is not installed</i><br>\n"}
|
||||
else {$output .= "Library www-perl v$LWP::VERSION installed<br>\n"}
|
||||
|
||||
eval {require LWP::Parallel};
|
||||
if ($@) {$output .= "<i>The library LWP::Parallel is not installed</i><br>\n"}
|
||||
else {$output .= "Library LWP::Parallel v$LWP::Parallel::VERSION installed<br>\n"}
|
||||
|
||||
eval {require SOAP::Lite};
|
||||
if ($@) {$output .= "<i>The library SOAP::Lite is not installed</i><br>\n"}
|
||||
else {$output .= "Library SOAP::Lite v$SOAP::Lite::VERSION installed<br>\n"}
|
||||
|
||||
eval {require DBI};
|
||||
if ($@) {$output .= "<i>The library DBI is not installed</i><br>\n"}
|
||||
else {$output .= "Library DBI v$DBI::VERSION installed<br>\n"}
|
||||
|
||||
eval {require DBD::mysql};
|
||||
if ($@) {$output .= "<i>The library DBD::mysql is not installed</i><br>\n"}
|
||||
else {$output .= "Library DBD::mysql v$DBD::mysql::VERSION installed<br>\n"}
|
||||
|
||||
eval {require URI};
|
||||
if ($@) {$output .= "<i>The library URI is not installed</i><br>\n"}
|
||||
else {$output .= "Library URI v$URI::VERSION installed<br>\n"}
|
||||
|
||||
eval {require Digest::MD5};
|
||||
if ($@) {$output .= "<i>The library Digest::MD5 is not installed</i><br>\n"}
|
||||
else {$output .= "Library Digest::MD5 v$Digest::MD5::VERSION installed<br>\n"}
|
||||
|
||||
eval {require Crypt::SSLeay};
|
||||
if ($@) {$output .= "<i>The library Crypt::SSLeay is not installed</i><br>\n"}
|
||||
else {$output .= "Library Crypt::SSLeay v$Crypt::SSLeay::VERSION installed<br>\n"}
|
||||
|
||||
eval {require Net::SSLeay};
|
||||
if ($@) {$output .= "<i>The library Net::SSLeay is not installed</i><br><br>\n\n"}
|
||||
else {$output .= "Library Net::SSLeay.pm v$Net::SSLeay::VERSION installed<br><br>\n\n"}
|
||||
|
||||
|
||||
|
||||
if ($info{'APACHE_LIB'}) {
|
||||
my @standard_mod = ('mod_rewrite.so', 'mod_cgi.so', 'mod_perl.so', 'mod_env.so', 'mod_include.so', 'mod_alias.so', 'mod_python.so');
|
||||
my @auth_mod = ('mod_auth_digest.so', 'mod_auth_mysql.so');
|
||||
my @ext_mod = ('mod_expires.so', 'mod_headers.so', 'libphp5.so', 'mod_proxy.so', 'mod_speling.so', 'mod_status.so', 'mod_usertrack.so', 'mod_vhost_alias.so');
|
||||
|
||||
$output .= "<strong>Apache modules installed</strong><br>\n";
|
||||
|
||||
foreach my $item(@standard_mod) {
|
||||
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed<br>\n"}
|
||||
else {$output .= "<i>Module '$item' is not installed</i><br>\n"}
|
||||
}
|
||||
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
foreach my $item (@auth_mod) {
|
||||
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed<br>\n"}
|
||||
else {$output .= "<i>Module '$item' is not installed</i><br>\n"}
|
||||
}
|
||||
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
foreach my $item(@ext_mod) {
|
||||
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed<br>\n"}
|
||||
else {$output .= "<i>Module '$item' is not installed</i><br>\n"}
|
||||
}
|
||||
|
||||
$output .= "<br>\n\n";
|
||||
}
|
||||
|
||||
eval {
|
||||
$info{'GET_USER'} = getpwent();
|
||||
$info{'GET_GROUP'} = getgrent();
|
||||
$info{'GET_HOST'} = gethostent();
|
||||
$info{'GET_NET'} = getnetent();
|
||||
$info{'GET_PROTO'} = getprotoent();
|
||||
$info{'GET_SERV'} = getservent();
|
||||
|
||||
$output .= "<strong>Special info</strong><br>\n";
|
||||
$output .= "user = <%GET_USER%><br>\n";
|
||||
$output .= "group = <%GET_GROUP%><br>\n";
|
||||
$output .= "host = <%GET_HOST%><br>\n";
|
||||
$output .= "network = <%GET_NET%><br>\n";
|
||||
$output .= "protocol = <%GET_PROTO%><br>\n";
|
||||
$output .= "service = <%GET_SERV%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
};
|
||||
|
||||
$output .= "<strong>Web server Env</strong><br>\n";
|
||||
|
||||
my @keys = keys %ENV;
|
||||
my @values = values %ENV;
|
||||
foreach my $key (sort(@keys)) {
|
||||
$output .= "$key = $ENV{$key}<br>\n";
|
||||
}
|
||||
|
||||
$output .= "</td></tr></table>\n";
|
||||
$output .= "</body></html>\n";
|
||||
|
||||
$output =~ s/<%\s*(.*?)\s*%>/if ($info{$1}) {$info{$1}} else {"<i>undefined<\/i>"}/oesg;
|
||||
|
||||
print $output;
|
||||
|
||||
return 'OK';
|
||||
|
||||
########################
|
||||
## Find Programs
|
||||
########################
|
||||
sub find_prog {
|
||||
|
||||
if (-e "/usr/local/bin/tar") {$info{'TAR'} = "/usr/local/bin/tar"}
|
||||
elsif (-e "/usr/bin/tar") {$info{'TAR'} = "/usr/bin/tar"}
|
||||
elsif (-e "/usr/local/tar") {$info{'TAR'} = "/usr/local/tar"}
|
||||
|
||||
if (-e "/usr/local/bin/gzip") {$info{'GZIP'} = "/usr/local/bin/gzip"}
|
||||
elsif (-e "/usr/bin/gzip") {$info{'GZIP'} = "/usr/bin/gzip"}
|
||||
elsif (-e "/usr/local/gzip") {$info{'GZIP'} = "/usr/local/gzip"}
|
||||
|
||||
if (-e "/usr/local/bin/compress") {$info{'COMPRESS'} = "/usr/local/bin/compress"}
|
||||
elsif (-e "/usr/bin/compress") {$info{'COMPRESS'} = "/usr/bin/compress"}
|
||||
elsif (-e "/usr/local/compress") {$info{'COMPRESS'} = "/usr/local/compress"}
|
||||
|
||||
if (-e "/usr/local/bin/whois") {$info{'WHOIS'} = "/usr/local/bin/whois"}
|
||||
elsif (-e "/usr/bin/whois") {$info{'WHOIS'} = "/usr/bin/whois"}
|
||||
elsif (-e "/usr/local/whois") {$info{'WHOIS'} = "/usr/local/whois"}
|
||||
|
||||
if (-e "/usr/local/bin/convert") {$info{'CONVERT'} = "/usr/local/bin/convert"}
|
||||
elsif (-e "/usr/bin/convert") {$info{'CONVERT'} = "/usr/bin/convert"}
|
||||
elsif (-e "/usr/local/convert") {$info{'CONVERT'} = "/usr/local/convert"}
|
||||
|
||||
########################
|
||||
## Find Mail
|
||||
########################
|
||||
if (-e "/var/qmail/bin/qmail-inject") {$info{'MAIL_PROGRAM'} = "/var/qmail/bin/qmail-inject"}
|
||||
elsif (-e "/usr/sbin/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/sbin/sendmail"}
|
||||
elsif (-e "/usr/lib/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/lib/sendmail"}
|
||||
elsif (-e "/usr/bin/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/bin/sendmail"}
|
||||
|
||||
########################
|
||||
## Find Apache
|
||||
########################
|
||||
if (-e "/usr/lib/httpd/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/httpd/modules"}
|
||||
elsif (-e "/opt/lib/apache2/mod_env.so") {$info{'APACHE_LIB'} = "/opt/lib/apache2"}
|
||||
if (-e "/usr/lib64/httpd/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib64/httpd/modules"}
|
||||
#elsif (-e "/System/Library/Apache/Modules/mod_env.so") {$info{'APACHE_LIB'} = "/System/Library/Apache/Modules"}# Mac
|
||||
#elsif (-e "/System/Library/Apache2/Modules/mod_env.so") {$info{'APACHE_LIB'} = "/System/Library/Apache2/Modules"}# Mac
|
||||
#elsif (-e "/usr/local/apache/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/local/apache/modules"}# MachTen/WebTen
|
||||
#elsif (-e "/usr/local/apache2/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/local/apache2/modules"}# MachTen/WebTen
|
||||
#elsif (-e "/usr/lib/apache/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/apache/modules"}# OpenBSD
|
||||
#elsif (-e "/usr/lib/apache2/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/apache2/modules"}# OpenBSD
|
||||
#elsif (-e "/usr/lib/apache/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/apache"}
|
||||
#elsif (-e "/usr/lib/httpd/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/httpd"}
|
||||
#elsif (-e "C:/Apache/modules") {$info{'APACHE_LIB'} = "C:/Apache/modules"}# windows
|
||||
#elsif (-e "C:/Apache2/modules") {$info{'APACHE_LIB'} = "C:/Apache2/modules"}# windows
|
||||
}
|
||||
|
||||
##############
|
||||
## Server Info
|
||||
##############
|
||||
sub server {
|
||||
my $serv_info = shift;
|
||||
my $server_info = undef;
|
||||
|
||||
if (-e "/proc/$serv_info") {
|
||||
open SERVER, "</proc/$serv_info";
|
||||
$server_info .= join("<br>", <SERVER>);
|
||||
close SERVER;
|
||||
}
|
||||
return $server_info;
|
||||
}
|
||||
45
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.php
Executable file
45
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.php
Executable file
@ -0,0 +1,45 @@
|
||||
<!DOCTYPE html>
|
||||
<html lang="en-US">
|
||||
<head>
|
||||
|
||||
<!--
|
||||
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
##@Version :
|
||||
# @Author : Jason
|
||||
# @Contact : jason@casjaysdev.com
|
||||
# @License : WTFPL
|
||||
# @ReadME : env --help
|
||||
# @Copyright : Copyright (c) 2021, Casjays Developments
|
||||
# @Created : Sunday Apr 11, 2021 21:06:35 EDT
|
||||
# @File : env
|
||||
# @Description :
|
||||
# @TODO :
|
||||
# @Other :
|
||||
# @Resource :
|
||||
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
-->
|
||||
|
||||
<meta charset='utf-8'>
|
||||
<meta http-equiv="X-UA-Compatible" content="IE=edge">
|
||||
<meta name="viewport" content="width=device-width, initial-scale=1">
|
||||
<meta name="Keywords" content="Casjay, CasjaysDev, Jason M. Hempstead, Website, About Me">
|
||||
<meta name="Description" content="Created By Casjays Developments">
|
||||
<meta name="generator" content="CasjaysDev">
|
||||
<link rel="shortcut icon" href="https://static.casjay.net/favicon.ico" />
|
||||
|
||||
<!-- Begin Main Site -->
|
||||
<title>PHP Info</title>
|
||||
|
||||
</head>
|
||||
|
||||
<!-- Begin Body -->
|
||||
<body>
|
||||
<!-- Begin Main Body -->
|
||||
|
||||
<?php phpinfo () ?>
|
||||
|
||||
<!-- End Main End Body -->
|
||||
|
||||
</body>
|
||||
</html>
|
||||
|
||||
404
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.pl
Executable file
404
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.pl
Executable file
@ -0,0 +1,404 @@
|
||||
#!/usr/bin/env perl
|
||||
##
|
||||
###########################
|
||||
## Server Info CGI v1.08 ##
|
||||
###########################
|
||||
##
|
||||
## ######################################
|
||||
## ## Server Info CGI v1.08 <20> 2000 ##
|
||||
## ## http://www.widexl.com ##
|
||||
## ## Made by Henk Boonstra ##
|
||||
## ######################################
|
||||
##
|
||||
## This script gives information about your (web)server.
|
||||
## Software, Modules, libraries, env, network...
|
||||
##
|
||||
## Install:
|
||||
## Change the path to perl (The first line in this script).
|
||||
## Upload the script in ASCII mode to your cgi-bin directory.
|
||||
## chmod script to 755.
|
||||
## Open the script in a browser.
|
||||
##
|
||||
##############################
|
||||
##############################
|
||||
|
||||
use strict;
|
||||
use warnings FATAL => 'all';
|
||||
no warnings 'redefine'; # to be remove in production
|
||||
use Carp;
|
||||
|
||||
our %info = ();
|
||||
my $output = undef;
|
||||
my $ver = 'v1.8';
|
||||
|
||||
find_prog();
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
my $header = qq|
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
|
||||
|
||||
<html>
|
||||
<head>
|
||||
<title>Server Info script</title>
|
||||
<meta name="robots" content="noindex,nofollow">
|
||||
|
||||
<style type="text/css"><!--
|
||||
BODY {
|
||||
background-color : #FFFFFF;
|
||||
font-family: verdana, arial, helvetica, sans-serif;
|
||||
color : #484848;
|
||||
font-size : 12px;
|
||||
|
||||
scrollbar-face-color: #FFFFFF;
|
||||
scrollbar-shadow-color: #000000;
|
||||
scrollbar-highlight-color: #484848;
|
||||
scrollbar-3dlight-color: #FFFFFF;
|
||||
scrollbar-darkshadow-color: #000000;
|
||||
scrollbar-track-color: #8E929D;
|
||||
scrollbar-arrow-color: #484848;
|
||||
}
|
||||
|
||||
TD {
|
||||
font-family: verdana, arial, helvetica, sans-serif;
|
||||
color : #484848;
|
||||
font-size : 12px;
|
||||
}
|
||||
|
||||
PRE {
|
||||
color : #484848;
|
||||
margin-bottom: 0px;
|
||||
margin-top: 0px;
|
||||
}
|
||||
|
||||
I {
|
||||
font-family: verdana, arial, helvetica, sans-serif;
|
||||
color : Red;
|
||||
font-size : 12px;
|
||||
}
|
||||
|
||||
STRONG {
|
||||
background-color : transparent;
|
||||
font-family: verdana, arial, helvetica, sans-serif;
|
||||
color : #484848;
|
||||
font-size : 12px;
|
||||
font-weight : bold;
|
||||
}
|
||||
|
||||
--></style>
|
||||
</head>
|
||||
<body>
|
||||
|;
|
||||
|
||||
$output .= "$header\n";
|
||||
$output .= "<table border=\"0\" cellspacing=\"0\" cellpadding=\"32\" align=\"left\" width=\"760\"><tr><td align=\"left\">\n\n";
|
||||
|
||||
if ($^O eq 'MSWin32') {
|
||||
$info{'OS_VERSION'} = `ver`;
|
||||
$info{'HOST_NAME'} = `hostname`;
|
||||
if ($info{'OS_VERSION'}) {$info{'EXEC'} = 'Enabled'}
|
||||
}
|
||||
|
||||
else {
|
||||
$info{'PROC_RELEASE'} = `uname -r`;
|
||||
$info{'MACHINE'} = `uname -m`;
|
||||
$info{'PROCESSOR'} = `uname -p`;
|
||||
$info{'NODE_NAME'} = `uname -n`;
|
||||
$info{'SYS_NAME'} = `uname -s`;
|
||||
$info{'WHOAMI'} = `whoami`;
|
||||
|
||||
my $ex = `which perl`;
|
||||
$info{'TAR'} = `which tar` || $info{'TAR'};
|
||||
$info{'GZIP'} = `which gzip` || $info{'GZIP'};
|
||||
$info{'COMPRESS'} = `which compress` || $info{'COMPRESS'};
|
||||
$info{'WHOIS'} = `which whois` || $info{'WHOIS'};
|
||||
$info{'CONVERT'} = `which convert` || $info{'CONVERT'};
|
||||
$info{'MAIL_PROGRAM'} = `which sendmail` || $info{'MAIL_PROGRAM'};
|
||||
$info{'MAIL_PROGRAM'} = "Found no mail program" if (!$info{'MAIL_PROGRAM'});
|
||||
|
||||
$info{'UPTIME'} = `uptime`;
|
||||
$info{'QUOTA'} = `quota`;
|
||||
$info{'QUOTA'} =~ s/\n/<br>/isg if ($info{'QUOTA'});
|
||||
|
||||
if ($ex) {$info{'EXEC'} = 'Enabled'}
|
||||
}
|
||||
|
||||
$info{'OS'} = $^O;
|
||||
$info{'SERVER_NAME'} = $ENV{'SERVER_NAME'};
|
||||
$info{'SERVER_ADDR'} = $ENV{'SERVER_ADDR'};
|
||||
|
||||
$info{'PERL_EXE'} = $^X;
|
||||
$info{'PERL_VER'} = $];
|
||||
$info{'PERL_LIB'} = "@INC";
|
||||
|
||||
$info{'HTTP_HOST'} = $ENV{'HTTP_HOST'};
|
||||
$info{'APACHE_LIB'} = $info{'APACHE_LIB'};
|
||||
$info{'DOCU_ROOT'} = $ENV{'DOCUMENT_ROOT'};
|
||||
$info{'SERVER_ADMIN'} = $ENV{'SERVER_ADMIN'};
|
||||
$info{'SERVER_SOFT'} = $ENV{'SERVER_SOFTWARE'};
|
||||
$info{'HTTP_ACCEPT'} = $ENV{'HTTP_ACCEPT'};
|
||||
|
||||
$info{'REMOTE_ADDR'} = $ENV{'REMOTE_ADDR'};
|
||||
$info{'REMOTE_HOST'} = $ENV{'REMOTE_HOST'};
|
||||
$info{'ACCEPT_LANG'} = $ENV{'HTTP_ACCEPT_LANGUAGE'};
|
||||
$info{'USER_AGENT'} = $ENV{'HTTP_USER_AGENT'};
|
||||
|
||||
$info{'SERVER_VER'} = server('version');
|
||||
$info{'SERVER_CPU'} = server('cpuinfo');
|
||||
$info{'SERVER_MEM'} = server('meminfo');
|
||||
|
||||
# The Output.
|
||||
$output .= "<strong>Server info</strong><br>\n";
|
||||
$output .= "Operating system = <%OS%><br>\n";
|
||||
|
||||
if (("$^O" eq "MSWin32") and ($info{'EXEC'})) {
|
||||
$output .= "Version = <%OS_VERSION%><br>\n";
|
||||
$output .= "Host name = <%HOST_NAME%><br>\n";
|
||||
}
|
||||
|
||||
if (("$^O" ne "MSWin32") and ($info{'EXEC'})) {
|
||||
$output .= "Kernel = <%PROC_RELEASE%><br>\n";
|
||||
$output .= "Machine = <%MACHINE%><br>\n";
|
||||
$output .= "Processor type = <%PROCESSOR%><br>\n";
|
||||
$output .= "Whoami = <%WHOAMI%><br>\n";
|
||||
$output .= "Host name = <%NODE_NAME%><br>\n";
|
||||
}
|
||||
|
||||
$output .= "Server name = <%SERVER_NAME%><br>\n";
|
||||
$output .= "Server IP = <%SERVER_ADDR%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Web server info</strong><br>\n";
|
||||
$output .= "HTTP address = <%HTTP_HOST%><br>\n";
|
||||
$output .= "Document root = <%DOCU_ROOT%><br>\n";
|
||||
$output .= "Apache lib = <%APACHE_LIB%><br>\n";
|
||||
$output .= "Administrator = <%SERVER_ADMIN%><br>\n";
|
||||
$output .= "Server software = <%SERVER_SOFT%><br>\n";
|
||||
$output .= "HTTP accept = <%HTTP_ACCEPT%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Server programs</strong><br>\n";
|
||||
$output .= "Mail program = <%MAIL_PROGRAM%><br>\n";
|
||||
$output .= "Tar program = <%TAR%><br>\n";
|
||||
$output .= "Gzip program = <%GZIP%><br>\n";
|
||||
$output .= "Compress program = <%COMPRESS%><br>\n";
|
||||
$output .= "Whois program = <%WHOIS%><br>\n";
|
||||
$output .= "ImageMagick convert = <%CONVERT%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Perl info</strong><br>\n";
|
||||
$output .= "Perl location = <%PERL_EXE%><br>\n";
|
||||
$output .= "Perl version = <%PERL_VER%><br>\n";
|
||||
$output .= "Locations of Perl libraries = <%PERL_LIB%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Remote user info</strong><br>\n";
|
||||
$output .= "Remote IP = <%REMOTE_ADDR%><br>\n";
|
||||
$output .= "Remote hostname = <%REMOTE_HOST%><br>\n";
|
||||
$output .= "Language = <%ACCEPT_LANG%><br>\n";
|
||||
$output .= "User agent = <%USER_AGENT%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Extra info</strong><br>\n";
|
||||
$output .= "Executing of system commands = Enabled<br>\n" if ($info{'EXEC'});
|
||||
$output .= "Executing of system commands = Not enabled<br>\n" if (!$info{'EXEC'});
|
||||
$output .= "Server uptime = <%UPTIME%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
if ("$^O" ne "MSWin32") {
|
||||
|
||||
$output .= "<strong>Server version</strong><br>\n";
|
||||
$output .= "<%SERVER_VER%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
if ($info{'QUOTA'}) {
|
||||
$output .= "<strong>Disk Quota</strong><br>\n";
|
||||
$output .= "<%QUOTA%>\n";
|
||||
$output .= "<br>\n\n";
|
||||
}
|
||||
|
||||
$output .= "<strong>CPU info</strong><br>\n";
|
||||
$output .= "<%SERVER_CPU%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
$output .= "<strong>Memory info</strong><br>\n";
|
||||
$output .= "<%SERVER_MEM%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
}
|
||||
|
||||
$output .= "<strong>Perl libraries installed</strong><br>\n";
|
||||
eval {require CGI};
|
||||
if ($@) {$output .= "<i>The library CGI is not installed</i><br>\n"}
|
||||
else {$output .= "Library CGI v$CGI::VERSION installed<br>\n"}
|
||||
|
||||
eval {require mod_perl};
|
||||
if ($@) {$output .= "<i>The library mod_perl is not installed</i><br>\n"}
|
||||
else {$output .= "Library mod_perl v$mod_perl::VERSION installed<br>\n"}
|
||||
|
||||
eval {require LWP};
|
||||
if ($@) {$output .= "<i>The library www-perl is not installed</i><br>\n"}
|
||||
else {$output .= "Library www-perl v$LWP::VERSION installed<br>\n"}
|
||||
|
||||
eval {require LWP::Parallel};
|
||||
if ($@) {$output .= "<i>The library LWP::Parallel is not installed</i><br>\n"}
|
||||
else {$output .= "Library LWP::Parallel v$LWP::Parallel::VERSION installed<br>\n"}
|
||||
|
||||
eval {require SOAP::Lite};
|
||||
if ($@) {$output .= "<i>The library SOAP::Lite is not installed</i><br>\n"}
|
||||
else {$output .= "Library SOAP::Lite v$SOAP::Lite::VERSION installed<br>\n"}
|
||||
|
||||
eval {require DBI};
|
||||
if ($@) {$output .= "<i>The library DBI is not installed</i><br>\n"}
|
||||
else {$output .= "Library DBI v$DBI::VERSION installed<br>\n"}
|
||||
|
||||
eval {require DBD::mysql};
|
||||
if ($@) {$output .= "<i>The library DBD::mysql is not installed</i><br>\n"}
|
||||
else {$output .= "Library DBD::mysql v$DBD::mysql::VERSION installed<br>\n"}
|
||||
|
||||
eval {require URI};
|
||||
if ($@) {$output .= "<i>The library URI is not installed</i><br>\n"}
|
||||
else {$output .= "Library URI v$URI::VERSION installed<br>\n"}
|
||||
|
||||
eval {require Digest::MD5};
|
||||
if ($@) {$output .= "<i>The library Digest::MD5 is not installed</i><br>\n"}
|
||||
else {$output .= "Library Digest::MD5 v$Digest::MD5::VERSION installed<br>\n"}
|
||||
|
||||
eval {require Crypt::SSLeay};
|
||||
if ($@) {$output .= "<i>The library Crypt::SSLeay is not installed</i><br>\n"}
|
||||
else {$output .= "Library Crypt::SSLeay v$Crypt::SSLeay::VERSION installed<br>\n"}
|
||||
|
||||
eval {require Net::SSLeay};
|
||||
if ($@) {$output .= "<i>The library Net::SSLeay is not installed</i><br><br>\n\n"}
|
||||
else {$output .= "Library Net::SSLeay.pm v$Net::SSLeay::VERSION installed<br><br>\n\n"}
|
||||
|
||||
|
||||
|
||||
if ($info{'APACHE_LIB'}) {
|
||||
my @standard_mod = ('mod_rewrite.so', 'mod_cgi.so', 'mod_perl.so', 'mod_env.so', 'mod_include.so', 'mod_alias.so', 'mod_python.so');
|
||||
my @auth_mod = ('mod_auth_digest.so', 'mod_auth_mysql.so');
|
||||
my @ext_mod = ('mod_expires.so', 'mod_headers.so', 'libphp5.so', 'mod_proxy.so', 'mod_speling.so', 'mod_status.so', 'mod_usertrack.so', 'mod_vhost_alias.so');
|
||||
|
||||
$output .= "<strong>Apache modules installed</strong><br>\n";
|
||||
|
||||
foreach my $item(@standard_mod) {
|
||||
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed<br>\n"}
|
||||
else {$output .= "<i>Module '$item' is not installed</i><br>\n"}
|
||||
}
|
||||
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
foreach my $item (@auth_mod) {
|
||||
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed<br>\n"}
|
||||
else {$output .= "<i>Module '$item' is not installed</i><br>\n"}
|
||||
}
|
||||
|
||||
$output .= "<br>\n\n";
|
||||
|
||||
foreach my $item(@ext_mod) {
|
||||
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed<br>\n"}
|
||||
else {$output .= "<i>Module '$item' is not installed</i><br>\n"}
|
||||
}
|
||||
|
||||
$output .= "<br>\n\n";
|
||||
}
|
||||
|
||||
eval {
|
||||
$info{'GET_USER'} = getpwent();
|
||||
$info{'GET_GROUP'} = getgrent();
|
||||
$info{'GET_HOST'} = gethostent();
|
||||
$info{'GET_NET'} = getnetent();
|
||||
$info{'GET_PROTO'} = getprotoent();
|
||||
$info{'GET_SERV'} = getservent();
|
||||
|
||||
$output .= "<strong>Special info</strong><br>\n";
|
||||
$output .= "user = <%GET_USER%><br>\n";
|
||||
$output .= "group = <%GET_GROUP%><br>\n";
|
||||
$output .= "host = <%GET_HOST%><br>\n";
|
||||
$output .= "network = <%GET_NET%><br>\n";
|
||||
$output .= "protocol = <%GET_PROTO%><br>\n";
|
||||
$output .= "service = <%GET_SERV%><br>\n";
|
||||
$output .= "<br>\n\n";
|
||||
};
|
||||
|
||||
$output .= "<strong>Web server Env</strong><br>\n";
|
||||
|
||||
my @keys = keys %ENV;
|
||||
my @values = values %ENV;
|
||||
foreach my $key (sort(@keys)) {
|
||||
$output .= "$key = $ENV{$key}<br>\n";
|
||||
}
|
||||
|
||||
$output .= "</td></tr></table>\n";
|
||||
$output .= "</body></html>\n";
|
||||
|
||||
$output =~ s/<%\s*(.*?)\s*%>/if ($info{$1}) {$info{$1}} else {"<i>undefined<\/i>"}/oesg;
|
||||
|
||||
print $output;
|
||||
|
||||
return 'OK';
|
||||
|
||||
########################
|
||||
## Find Programs
|
||||
########################
|
||||
sub find_prog {
|
||||
|
||||
if (-e "/usr/local/bin/tar") {$info{'TAR'} = "/usr/local/bin/tar"}
|
||||
elsif (-e "/usr/bin/tar") {$info{'TAR'} = "/usr/bin/tar"}
|
||||
elsif (-e "/usr/local/tar") {$info{'TAR'} = "/usr/local/tar"}
|
||||
|
||||
if (-e "/usr/local/bin/gzip") {$info{'GZIP'} = "/usr/local/bin/gzip"}
|
||||
elsif (-e "/usr/bin/gzip") {$info{'GZIP'} = "/usr/bin/gzip"}
|
||||
elsif (-e "/usr/local/gzip") {$info{'GZIP'} = "/usr/local/gzip"}
|
||||
|
||||
if (-e "/usr/local/bin/compress") {$info{'COMPRESS'} = "/usr/local/bin/compress"}
|
||||
elsif (-e "/usr/bin/compress") {$info{'COMPRESS'} = "/usr/bin/compress"}
|
||||
elsif (-e "/usr/local/compress") {$info{'COMPRESS'} = "/usr/local/compress"}
|
||||
|
||||
if (-e "/usr/local/bin/whois") {$info{'WHOIS'} = "/usr/local/bin/whois"}
|
||||
elsif (-e "/usr/bin/whois") {$info{'WHOIS'} = "/usr/bin/whois"}
|
||||
elsif (-e "/usr/local/whois") {$info{'WHOIS'} = "/usr/local/whois"}
|
||||
|
||||
if (-e "/usr/local/bin/convert") {$info{'CONVERT'} = "/usr/local/bin/convert"}
|
||||
elsif (-e "/usr/bin/convert") {$info{'CONVERT'} = "/usr/bin/convert"}
|
||||
elsif (-e "/usr/local/convert") {$info{'CONVERT'} = "/usr/local/convert"}
|
||||
|
||||
########################
|
||||
## Find Mail
|
||||
########################
|
||||
if (-e "/var/qmail/bin/qmail-inject") {$info{'MAIL_PROGRAM'} = "/var/qmail/bin/qmail-inject"}
|
||||
elsif (-e "/usr/sbin/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/sbin/sendmail"}
|
||||
elsif (-e "/usr/lib/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/lib/sendmail"}
|
||||
elsif (-e "/usr/bin/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/bin/sendmail"}
|
||||
|
||||
########################
|
||||
## Find Apache
|
||||
########################
|
||||
if (-e "/usr/lib/httpd/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/httpd/modules"}
|
||||
elsif (-e "/opt/lib/apache2/mod_env.so") {$info{'APACHE_LIB'} = "/opt/lib/apache2"}
|
||||
if (-e "/usr/lib64/httpd/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib64/httpd/modules"}
|
||||
#elsif (-e "/System/Library/Apache/Modules/mod_env.so") {$info{'APACHE_LIB'} = "/System/Library/Apache/Modules"}# Mac
|
||||
#elsif (-e "/System/Library/Apache2/Modules/mod_env.so") {$info{'APACHE_LIB'} = "/System/Library/Apache2/Modules"}# Mac
|
||||
#elsif (-e "/usr/local/apache/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/local/apache/modules"}# MachTen/WebTen
|
||||
#elsif (-e "/usr/local/apache2/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/local/apache2/modules"}# MachTen/WebTen
|
||||
#elsif (-e "/usr/lib/apache/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/apache/modules"}# OpenBSD
|
||||
#elsif (-e "/usr/lib/apache2/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/apache2/modules"}# OpenBSD
|
||||
#elsif (-e "/usr/lib/apache/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/apache"}
|
||||
#elsif (-e "/usr/lib/httpd/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/httpd"}
|
||||
#elsif (-e "C:/Apache/modules") {$info{'APACHE_LIB'} = "C:/Apache/modules"}# windows
|
||||
#elsif (-e "C:/Apache2/modules") {$info{'APACHE_LIB'} = "C:/Apache2/modules"}# windows
|
||||
}
|
||||
|
||||
##############
|
||||
## Server Info
|
||||
##############
|
||||
sub server {
|
||||
my $serv_info = shift;
|
||||
my $server_info = undef;
|
||||
|
||||
if (-e "/proc/$serv_info") {
|
||||
open SERVER, "</proc/$serv_info";
|
||||
$server_info .= join("<br>", <SERVER>);
|
||||
close SERVER;
|
||||
}
|
||||
return $server_info;
|
||||
}
|
||||
8
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.py
Executable file
8
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.py
Executable file
@ -0,0 +1,8 @@
|
||||
#!/usr/bin/env python
|
||||
import sys
|
||||
import os
|
||||
|
||||
print "Content-Type: text/html\n\n"
|
||||
|
||||
for name, value in os.environ.items():
|
||||
print "%s\t= %s <br/>" % (name, value)
|
||||
7
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.rb
Executable file
7
rootfs/usr/local/share/template-files/data/htdocs/cgi-bin/env.rb
Executable file
@ -0,0 +1,7 @@
|
||||
#!/usr/bin/env ruby
|
||||
# -*- coding: None -*-
|
||||
|
||||
require 'cgi' //cgi file to create a simple cgi object.
|
||||
cgi = CGI.new //instantiating a cgi object.
|
||||
puts cgi.header //thats telling the server about the type(html).
|
||||
puts "hello" // thats the output on the browser.
|
||||
Loading…
x
Reference in New Issue
Block a user