Enviromental Variables Report. PerlScriptsJavaScripts.com

From 7607fe18ac753cc9686990e71d2e3324b46033ef Mon Sep 17 00:00:00 2001 From: wbudic Date: Sat, 9 Mar 2019 10:39:31 +1100 Subject: [PATCH] New setting. Removed hardcoded with of table display and new lines are formatted now. --- htdocs/cgi-bin/e_vars.pl | 225 +++ htdocs/cgi-bin/env.html | 2913 ++++++++++++++++++++++++++++++++++ htdocs/cgi-bin/main.cgi | 73 +- htdocs/cgi-bin/wsrc/main.css | 12 +- htdocs/cgi-bin/wsrc/main.js | 30 +- 5 files changed, 3203 insertions(+), 50 deletions(-) create mode 100755 htdocs/cgi-bin/e_vars.pl create mode 100644 htdocs/cgi-bin/env.html diff --git a/htdocs/cgi-bin/e_vars.pl b/htdocs/cgi-bin/e_vars.pl new file mode 100755 index 0000000..6d64e16 --- /dev/null +++ b/htdocs/cgi-bin/e_vars.pl @@ -0,0 +1,225 @@ +#!/usr/bin/perl + +#################################################################### +# +# Environmantal Variables (E-Vars) +# ©2002, PerlScriptsJavaScripts.com +# +# Requires: Perl5+ +# Created: January, 2002 +# Author: John Krinelos +# Contact: john@perlscriptsjavascripts.com +# +# This script / program is copyright material! +# +# Agent for copyright : +# Gene Volovich +# Law Partners, +# 140 Queen St. +# Melbourne +# Ph. +61 3 9602 2266 +# gvolovich@lawpartners.com.au +# http://www.lawpartners.com.au/ +# +#################################################################### + +#################################################################### +# +# Place this in any cgi-bin CHMOD it to 755 (if UNIX) then call +# it from your browser. Eg. http://www.you.com/cgi-bin/vars.cgi + +$of = qq~~; +$cf = qq~~; + +my @slocs = qw~ + /usr/sbin/sendmail + /usr/bin/sendmail + /sbin/sendmail + /usr/slib/sendmail + /usr/lib/sendmail + /bin/sendmail + /lib/sendmail + /slib/sendmail + /usr/sendmail + /sendmail + sendmail +~; + +print qq~Content-type: text/html + + + +Enviromental Variables Report. PerlScriptsJavaScripts.com + + + +$ofEnviromental Variables returned by this server. A PerlScriptsJavaScripts Product$cf + +
+ + + + + +~; + +my @vars = sort(keys(%ENV)); +foreach(@vars) { + $ENV{$_} ||= qq~ ~; + print qq~ + + + + + ~; +} + +print qq~ + + + + + + + + + + + + + + + + + + + + + + + + +

$ofVariable$cf	$ofValue$cf
$of\$ENV{$_}$cf	$of$ENV{$_}$cf
$of\$ENV{DOCUMENT_NAME}$cf	$of$ENV{DOCUMENT_NAME} $cf
$of\$ENV{DOCUMENT_URI}$cf	$of$ENV{DOCUMENT_URI} $cf
$of\$ENV{LAST_MODIFIED}$cf	$of$ENV{LAST_MODIFIED} $cf
$of\$ENV{DATE_GMT}$cf	$of$ENV{DATE_GMT} $cf
$of\$ENV{DATE_LOCAL}$cf	$of$ENV{DATE_LOCAL} $cf
$of\$ENV{REMOTE_USER}$cf	$of$ENV{REMOTE_USER} This var returns the value of a .ht username$cf

+
+ + +$ofPath(s) to Sendmail$cf + +
+ + +~; + +foreach(@slocs) { + if(-e $_){ + print qq~ + + + + ~; + } +} + +print qq~ +

$of$_$cf

+
+ + +$ofAdditional Information$cf + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

$ofVariable$cf	$ofValue$cf	$ofDescription$cf
$of\$] $cf	$of$]$cf	$of Version of Perl$cf
$of\$0 $cf	$of$0$cf	$of Script name$cf
$of\$\$ $cf	$of$$ $cf	$of Process ID$cf
$of\$^O $cf	$of$^O $cf	$of Operating System$cf
$of\$! $cf	$of$!$cf	$ofError returned by server$cf

+
+ + +$ofList of Modules Installed on this server$cf + +
+ + + + + + + +

$ofName$cf	$ofName$cf
+~; + +find(\&wanted, @INC); + +@found = sort { uc($a) cmp uc($b) } @found; + +for($c = 0; $c < int(@found / 2); $c++){ + $search = $found[$c]; + $search =~ s/\.pm$//i; + print qq~$of $found[$c] \n~; +} + +print qq~$cf	~; + +for($d = $c; $d < @found; $d++){ + $search = $found[$d]; + $search =~ s/\.pm$//i; + print qq~$of $found[$d] \n~; +} + +($sec, $min, $hour, $day, $mon, $year, $weekday, $dayofyear, $dst) = localtime(time); + +$year += 1900; + +print qq~$cf

+
+ +$of Copyright $year PerlScriptsJavaScripts.com$cf + +
+ + +~; + +sub wanted { + use File::Find; + $num = 0; + if ($File::Find::name =~ /\.pm$/){ + if(open(M,$File::Find::name)){ + while(){ + if (/^ *package +(\S+);/){ + push (@found, $1); + last; + } + } + chomp(@found); + } + } +} diff --git a/htdocs/cgi-bin/env.html b/htdocs/cgi-bin/env.html new file mode 100644 index 0000000..99c4fd0 --- /dev/null +++ b/htdocs/cgi-bin/env.html @@ -0,0 +1,2913 @@ +Content-type: text/html + + + +Enviromental Variables Report. PerlScriptsJavaScripts.com + + + +Enviromental Variables returned by this server. A PerlScriptsJavaScripts Product + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

Variable	Value
$ENV{HOME}	/home/will
$ENV{LANG}	en_AU.UTF-8
$ENV{LANGUAGE}	en_AU:en
$ENV{LESSCLOSE}	/usr/bin/lesspipe %s %s
$ENV{LESSOPEN}	\| /usr/bin/lesspipe %s
$ENV{LOGNAME}	will
$ENV{LS_COLORS}	rs=0:di=01;34:ln=01;36:mh=00:pi=40;33:so=01;35:do=01;35:bd=40;33;01:cd=40;33;01:or=40;31;01:mi=00:su=37;41:sg=30;43:ca=30;41:tw=30;42:ow=34;42:st=37;44:ex=01;32:.tar=01;31:.tgz=01;31:.arc=01;31:.arj=01;31:.taz=01;31:.lha=01;31:.lz4=01;31:.lzh=01;31:.lzma=01;31:.tlz=01;31:.txz=01;31:.tzo=01;31:.t7z=01;31:.zip=01;31:.z=01;31:.Z=01;31:.dz=01;31:.gz=01;31:.lrz=01;31:.lz=01;31:.lzo=01;31:.xz=01;31:.bz2=01;31:.bz=01;31:.tbz=01;31:.tbz2=01;31:.tz=01;31:.deb=01;31:.rpm=01;31:.jar=01;31:.war=01;31:.ear=01;31:.sar=01;31:.rar=01;31:.alz=01;31:.ace=01;31:.zoo=01;31:.cpio=01;31:.7z=01;31:.rz=01;31:.cab=01;31:.jpg=01;35:.jpeg=01;35:.gif=01;35:.bmp=01;35:.pbm=01;35:.pgm=01;35:.ppm=01;35:.tga=01;35:.xbm=01;35:.xpm=01;35:.tif=01;35:.tiff=01;35:.png=01;35:.svg=01;35:.svgz=01;35:.mng=01;35:.pcx=01;35:.mov=01;35:.mpg=01;35:.mpeg=01;35:.m2v=01;35:.mkv=01;35:.webm=01;35:.ogm=01;35:.mp4=01;35:.m4v=01;35:.mp4v=01;35:.vob=01;35:.qt=01;35:.nuv=01;35:.wmv=01;35:.asf=01;35:.rm=01;35:.rmvb=01;35:.flc=01;35:.avi=01;35:.fli=01;35:.flv=01;35:.gl=01;35:.dl=01;35:.xcf=01;35:.xwd=01;35:.yuv=01;35:.cgm=01;35:.emf=01;35:.ogv=01;35:.ogx=01;35:.aac=00;36:.au=00;36:.flac=00;36:.m4a=00;36:.mid=00;36:.midi=00;36:.mka=00;36:.mp3=00;36:.mpc=00;36:.ogg=00;36:.ra=00;36:.wav=00;36:.oga=00;36:.opus=00;36:.spx=00;36:.xspf=00;36:
$ENV{MAIL}	/var/mail/will
$ENV{NODE_PATH}	/usr/lib/nodejs:/usr/lib/node_modules:/usr/share/javascript
$ENV{OLDPWD}	/home/will/thttpd_dev/htdocs
$ENV{PATH}	/home/will/bin:/home/will/.local/bin:/usr/local/sbin:/usr/local/bin:/usr/local/go/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games
$ENV{PWD}	/home/will/thttpd_dev/htdocs/cgi-bin
$ENV{SHELL}	/bin/bash
$ENV{SHLVL}	2
$ENV{SSH_CLIENT}	192.168.0.3 46970 22
$ENV{SSH_CONNECTION}	192.168.0.3 46970 192.168.0.16 22
$ENV{SSH_TTY}	/dev/pts/0
$ENV{STY}	2730.NET
$ENV{TERM}	screen
$ENV{TERMCAP}	SC\|screen\|VT 100/ANSI X3.64 virtual terminal:\ + :DO=\E[%dB:LE=\E[%dD:RI=\E[%dC:UP=\E[%dA:bs:bt=\E[Z:\ + :cd=\E[J:ce=\E[K:cl=\E[H\E[J:cm=\E[%i%d;%dH:ct=\E[3g:\ + :do=^J:nd=\E[C:pt:rc=\E8:rs=\Ec:sc=\E7:st=\EH:up=\EM:\ + :le=^H:bl=^G:cr=^M:it#8:ho=\E[H:nw=\EE:ta=^I:is=\E)0:\ + :li#35:co#103:am:xn:xv:LP:sr=\EM:al=\E[L:AL=\E[%dL:\ + :cs=\E[%i%d;%dr:dl=\E[M:DL=\E[%dM:dc=\E[P:DC=\E[%dP:\ + :im=\E[4h:ei=\E[4l:mi:IC=\E[%d@:ks=\E[?1h\E=:\ + :ke=\E[?1l\E>:vi=\E[?25l:ve=\E[34h\E[?25h:vs=\E[34l:\ + :ti=\E[?1049h:te=\E[?1049l:us=\E[4m:ue=\E[24m:so=\E[3m:\ + :se=\E[23m:mb=\E[5m:md=\E[1m:mh=\E[2m:mr=\E[7m:\ + :me=\E[m:ms:\ + :Co#8:pa#64:AF=\E[3%dm:AB=\E[4%dm:op=\E[39;49m:AX:\ + :vb=\Eg:G0:as=\E(0:ae=\E(B:\ + :ac=\140\140aaffggjjkkllmmnnooppqqrrssttuuvvwwxxyyzz{{\|\|}}~~..--++,,hhII00:\ + :po=\E[5i:pf=\E[4i:Km=\E[M:k0=\E[10~:k1=\EOP:k2=\EOQ:\ + :k3=\EOR:k4=\EOS:k5=\E[15~:k6=\E[17~:k7=\E[18~:\ + :k8=\E[19~:k9=\E[20~:k;=\E[21~:F1=\E[23~:F2=\E[24~:\ + :F3=\E[1;2P:F4=\E[1;2Q:F5=\E[1;2R:F6=\E[1;2S:\ + :F7=\E[15;2~:F8=\E[17;2~:F9=\E[18;2~:FA=\E[19;2~:kb=:\ + :K2=\EOE:kB=\E[Z:kF=\E[1;2B:kR=\E[1;2A:4=\E[3;2~:\ + :7=\E[1;2F:#2=\E[1;2H:#3=\E[2;2~:#4=\E[1;2D:%c=\E[6;2~:\ + :%e=\E[5;2~:%i=\E[1;2C:kh=\E[1~:@1=\E[1~:kH=\E[4~:\ + :@7=\E[4~:kN=\E[6~:kP=\E[5~:kI=\E[2~:kD=\E[3~:ku=\EOA:\ + :kd=\EOB:kr=\EOC:kl=\EOD:km:
$ENV{USER}	will
$ENV{WINDOW}	1
$ENV{XDG_DATA_DIRS}	/home/will/.local/share/flatpak/exports/share:/var/lib/flatpak/exports/share:/usr/local/share:/usr/share
$ENV{XDG_RUNTIME_DIR}	/run/user/1000
$ENV{XDG_SESSION_COOKIE}	f1285b673e054311b158f354c6c52198-1551346125.854829-475566251
$ENV{XDG_SESSION_ID}	1
$ENV{_}	/usr/bin/perl
$ENV{DOCUMENT_NAME}
$ENV{DOCUMENT_URI}
$ENV{LAST_MODIFIED}
$ENV{DATE_GMT}
$ENV{DATE_LOCAL}
$ENV{REMOTE_USER}	This var returns the value of a .ht username

+
+ + +Path(s) to Sendmail + +
+ + + + + + + + + + + +

/usr/sbin/sendmail

/usr/lib/sendmail

+
+ + +Additional Information + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

Variable	Value	Description
$]	5.022001	Version of Perl
$0	e_vars.pl	Script name
$$	14611	Process ID
$^O	linux	Operating System
$!	No such file or directory	Error returned by server

+
+ + +List of Modules Installed on this server + +
+ + + + + + + +

Name

+
+ + Copyright 2019 PerlScriptsJavaScripts.com + +
+ + diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi index 5f00181..edc77af 100755 --- a/htdocs/cgi-bin/main.cgi +++ b/htdocs/cgi-bin/main.cgi @@ -30,6 +30,7 @@ my $db = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) #SETTINGS HERE! our $REC_LIMIT = 25; our $TIME_ZONE = 'Australia/Sydney'; +our $PRC_WIDTH = '60'; #END OF SETTINGS my $q = CGI->new; @@ -58,7 +59,7 @@ my $toggle =""; if($rs_keys||$rs_cat_idx||$stmD){$toggle=1;}; print $q->header(-expires=>"+6os", -charset=>"UTF-8"); print $q->start_html(-title => "Personal Log", - -script=>{-type => 'text/javascript', -src => 'wsrc/main.js'}, + -script=>{-type => 'text/javascript',-src => 'wsrc/main.js'}, -style =>{-type => 'text/css', -src => 'wsrc/main.css'}, -onload => "loadedBody('".$toggle."');" ); @@ -90,8 +91,8 @@ my %hshCats; $cats = $cats.''; -my $tbl = qq(

- +my $tbl = qq( +

); @@ -197,19 +198,24 @@ if($tbl_start>0){ $ch_i =~ s/https/http/gsi; $ch_i =~ s/($RE{URI}{HTTP})/$1<\/a>/gsi; } - $log = join('' , @chnks) ; + $log = join('' , @chnks); + #Decode escaped \\n + $log =~ s/\\n/
/gs; + - $tbl = $tbl . ''. - '" . - ''. - ''. - ''. - ' + \n". + '\n". + '\n". + '\n". + '\n". + ' - '; + '; $tbl_rc += 1; if($REC_LIMIT>0 && $tbl_rc==$REC_LIMIT){ @@ -252,14 +258,14 @@ if($tbl_start>0){ -

Date	Time	Log	#	Category	Edit
'. $dt->ymd . '	' . $dt->hms . "	' . $log . '	' . $amm .'	' . $ct .'	- + $tbl .= '
'. $dt->ymd . "	' . + $dt->hms . "	' . $log . "	' . $amm ."	' . $ct ."	+ +
Keywords:	+
Keywords:

'; my $frm = qq( -

- + +

@@ -268,17 +274,18 @@ my $frm = qq( qq("> - + - + -

* LOG ENTRY FORM *

Category:
Log:		).$cats.qq(
Category: ).$cats.qq(
↡ Ammount:	- +	+

@@ -291,15 +298,16 @@ my $frm = qq( my $srh = qq( - - - - ); +

Search/View By
Keywords:	-

+ + + + ); my $ctmsg = '

(Use the Category dropdown to change).

'; if($rs_keys || $rs_cat_idx || $stmD){ - $srh .= ''; $ctmsg = ""; } @@ -307,10 +315,14 @@ if($rs_keys || $rs_cat_idx || $stmD){ $srh .= ' - + - +

Search/View By
Keywords:	+
			+ $srh .= '

View by Category:	'.$ctmsg.'
+ + '.$ctmsg.'
View by Date:	From:	To: -		+ From:	+ To: +

@@ -319,14 +331,13 @@ $srh .= 'View by Category: #Page printout from here! # print ""; - print "\n

\n" . $frm ."\n

\n
"; + print "\n

\n" . $frm ."\n

\n
\n"; print '

' . $srh .'

'; print "\n

\n" . $tbl ."\n

"; print '

View Statistics

'; print '

Configure Log (Careful)