=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== o-saft-19.01.19/.o-saft.pl-273-#--cfg_text=EV-miss= <<@@ fehlt>> o-saft-19.01.19/.o-saft.pl:274:#--cfg_text=gethost= <<gethostbyaddr() failed>> o-saft-19.01.19/.o-saft.pl-275-#--cfg_text=host-DNS=DNS Einträge für übergebenen Hostnamen ############################################## o-saft-19.01.19/CHANGES-796- CHANGES o-saft-19.01.19/CHANGES:797: * avoid error messages when gethostbyaddr() fails o-saft-19.01.19/CHANGES-798- ############################################## o-saft-19.01.19/CHANGES-1430- NEW o-saft-19.01.19/CHANGES:1431: * -no-dns implemented (workaround for '<gethostbyaddr() failed>) o-saft-19.01.19/CHANGES-1432- * %cfg{regex} added ############################################## o-saft-19.01.19/INSTALL.sh-260-echo "#--------------------------------------------------------------" o-saft-19.01.19/INSTALL.sh:261:# err=`expr $err + 1` ; # errors not counted here o-saft-19.01.19/INSTALL.sh-262-files="openssl_h-to-perl_hash generate_ciphers_hash o-saft-README" ############################################## o-saft-19.01.19/INSTALL.sh-275-for o in $osaft_exe $osaft_gui ; do o-saft-19.01.19/INSTALL.sh:276: for p in `echo $PATH|tr ':' ' '` ; do o-saft-19.01.19/INSTALL.sh-277- d="$p/$o" o-saft-19.01.19/INSTALL.sh-278- if [ -e "$d" ]; then o-saft-19.01.19/INSTALL.sh:279: v=`$p/$o +VERSION` o-saft-19.01.19/INSTALL.sh-280- echo -n "# version $v:\t" && echo_green "$d" ############################################## o-saft-19.01.19/INSTALL.sh-289-# currently no version check o-saft-19.01.19/INSTALL.sh:290:for p in `echo $HOME $PATH|tr ':' ' '` ; do o-saft-19.01.19/INSTALL.sh-291- rc="$p/.$osaft_exe" ############################################## o-saft-19.01.19/INSTALL.sh-297-if [ -e "$rc" ]; then o-saft-19.01.19/INSTALL.sh:298: v=`awk '/RCSID/{print $3}' $rc | tr -d '{};'` o-saft-19.01.19/INSTALL.sh-299- echo -n "# found $rc\t" && echo_green "$v" ############################################## o-saft-19.01.19/INSTALL.sh-312- echo -n "# testing for $m ...\t" o-saft-19.01.19/INSTALL.sh:313: v=`perl -M$m -le 'printf"\t%s",$'$m'::VERSION' 2>/dev/null` o-saft-19.01.19/INSTALL.sh-314- if [ -n "$v" ]; then ############################################## o-saft-19.01.19/INSTALL.sh-324- 'OSaft::Doc::Data' ) c="green"; ;; o-saft-19.01.19/INSTALL.sh:325: *) c=`perl -le "print (($expect > $v) ? 'red' : 'green')"`; ;; o-saft-19.01.19/INSTALL.sh-326- esac ############################################## o-saft-19.01.19/INSTALL.sh-328- [ "$c" = "red" ] && echo_red "$v , $text_old $expect" o-saft-19.01.19/INSTALL.sh:329: [ "$c" = "red" ] && err=`expr $err + 1` o-saft-19.01.19/INSTALL.sh-330- [ "$c" = "red" ] && echo E $err ############################################## o-saft-19.01.19/INSTALL.sh-333- echo_red "$text_miss" o-saft-19.01.19/INSTALL.sh:334: err=`expr $err + 1` o-saft-19.01.19/INSTALL.sh-335- echo e $err ############################################## o-saft-19.01.19/INSTALL.sh-344-modules="Net::DNS Net::SSLeay IO::Socket::SSL" o-saft-19.01.19/INSTALL.sh:345:for p in `echo $PATH|tr ':' ' '` ; do o-saft-19.01.19/INSTALL.sh-346- o="$p/$osaft_exe" ############################################## o-saft-19.01.19/INSTALL.sh-349- for m in $modules ; do o-saft-19.01.19/INSTALL.sh:350: v=`$o --no-warn +version | awk '($1=="'$m'"){print}'` o-saft-19.01.19/INSTALL.sh-351- echo_green "$v" ############################################## o-saft-19.01.19/INSTALL.sh-366-echo "#--------------------------------------------------------------" o-saft-19.01.19/INSTALL.sh:367:for p in `echo $PATH|tr ':' ' '` ; do o-saft-19.01.19/INSTALL.sh-368- o="$p/$osaft_exe" ############################################## o-saft-19.01.19/INSTALL.sh-372- cd $p o-saft-19.01.19/INSTALL.sh:373: openssl=`$o --no-warn +version | awk '/external executable/{print $NF}' | tr '\012' ' '` o-saft-19.01.19/INSTALL.sh-374- echo -n "# $o:\t" && echo_green "$openssl" ############################################## o-saft-19.01.19/INSTALL.sh-389- echo -n "# not found\t" && echo_red "$c" o-saft-19.01.19/INSTALL.sh:390: err=`expr $err + 1` o-saft-19.01.19/INSTALL.sh-391- fi ############################################## o-saft-19.01.19/Net/SSLinfo.pm-1773- $text = '""' if ($text !~ /[\r\n]/); o-saft-19.01.19/Net/SSLinfo.pm:1774: # $data = `echo '$text' | $_openssl $mode ... 2>&1`; o-saft-19.01.19/Net/SSLinfo.pm-1775- # windows hangs even with empty STDIN, hence we use cmd.exe always ############################################## o-saft-19.01.19/Net/SSLinfo.pm-1787- close($fh); o-saft-19.01.19/Net/SSLinfo.pm:1788: #dbx# print `cat $tmp`; o-saft-19.01.19/Net/SSLinfo.pm-1789- $src = 'cmd.exe'; o-saft-19.01.19/Net/SSLinfo.pm:1790: ($data = `cmd.exe /D /S /C $tmp`) or do {$err = $!} and last; o-saft-19.01.19/Net/SSLinfo.pm-1791- $src = 'unlink'; ############################################## o-saft-19.01.19/Net/SSLinfo.pm-1846- if ($^O !~ m/MSWin32/) { o-saft-19.01.19/Net/SSLinfo.pm:1847: $data = `echo '$pem' | $_openssl $mode 2>&1`; o-saft-19.01.19/Net/SSLinfo.pm-1848- } else { # it's sooooo simple, except on Windows :-( ############################################## o-saft-19.01.19/Net/SSLinfo.pm-2644- ## no critic qw(BuiltinFunctions::ProhibitStringyEval) o-saft-19.01.19/Net/SSLinfo.pm:2645: if (eval('use Config; $b = $Config{ivsize};')) { o-saft-19.01.19/Net/SSLinfo.pm-2646- # use $Config{ivsize} ############################################## o-saft-19.01.19/Net/SSLinfo.pm-2983- $host .= ':' if ($port ne ''); o-saft-19.01.19/Net/SSLinfo.pm:2984: $data = `echo $pipe | $_timeout $_openssl $mode $host$port 2>&1`; o-saft-19.01.19/Net/SSLinfo.pm-2985- if ($data =~ m/(\nusage:|unknown option)/s) { ############################################## o-saft-19.01.19/Net/SSLinfo.pm-2997- $mode .= ' -connect'; o-saft-19.01.19/Net/SSLinfo.pm:2998: $data .= `echo $pipe | $_timeout $_openssl $mode $host$port 2>&1`; o-saft-19.01.19/Net/SSLinfo.pm-2999- } ############################################## o-saft-19.01.19/OSaft/Ciphers.pm-1256- # pod2usage( -verbose => 1 ); o-saft-19.01.19/OSaft/Ciphers.pm:1257: exec( Pod::Perldoc->run(args=>[$0]) ); o-saft-19.01.19/OSaft/Ciphers.pm-1258- } ############################################## o-saft-19.01.19/OSaft/Doc/help.txt-3481- If reverse DNS lookup fails, an error message is returned as hostname, o-saft-19.01.19/OSaft/Doc/help.txt:3482: like: '<<gethostbyaddr() failed>>'. o-saft-19.01.19/OSaft/Doc/help.txt-3483- Workaround to get rid of this message: use --no-dns option. ############################################## o-saft-19.01.19/checkAllCiphers.pl-512- # NOTE: this eval must not use the block form because the value needs to be evaluated o-saft-19.01.19/checkAllCiphers.pl:513: push(@testing, sprintf("0x%08X",$_)) foreach (eval($cfg{'cipherranges'}->{$range})); o-saft-19.01.19/checkAllCiphers.pl-514- ## use critic ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-260-echo "#--------------------------------------------------------------" o-saft-19.01.19/contrib/INSTALL-template.sh:261:# err=`expr $err + 1` ; # errors not counted here o-saft-19.01.19/contrib/INSTALL-template.sh-262-files="openssl_h-to-perl_hash generate_ciphers_hash o-saft-README" ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-275-for o in $osaft_exe $osaft_gui ; do o-saft-19.01.19/contrib/INSTALL-template.sh:276: for p in `echo $PATH|tr ':' ' '` ; do o-saft-19.01.19/contrib/INSTALL-template.sh-277- d="$p/$o" o-saft-19.01.19/contrib/INSTALL-template.sh-278- if [ -e "$d" ]; then o-saft-19.01.19/contrib/INSTALL-template.sh:279: v=`$p/$o +VERSION` o-saft-19.01.19/contrib/INSTALL-template.sh-280- echo -n "# version $v:\t" && echo_green "$d" ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-289-# currently no version check o-saft-19.01.19/contrib/INSTALL-template.sh:290:for p in `echo $HOME $PATH|tr ':' ' '` ; do o-saft-19.01.19/contrib/INSTALL-template.sh-291- rc="$p/.$osaft_exe" ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-297-if [ -e "$rc" ]; then o-saft-19.01.19/contrib/INSTALL-template.sh:298: v=`awk '/RCSID/{print $3}' $rc | tr -d '{};'` o-saft-19.01.19/contrib/INSTALL-template.sh-299- echo -n "# found $rc\t" && echo_green "$v" ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-312- echo -n "# testing for $m ...\t" o-saft-19.01.19/contrib/INSTALL-template.sh:313: v=`perl -M$m -le 'printf"\t%s",$'$m'::VERSION' 2>/dev/null` o-saft-19.01.19/contrib/INSTALL-template.sh-314- if [ -n "$v" ]; then ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-324- 'OSaft::Doc::Data' ) c="green"; ;; o-saft-19.01.19/contrib/INSTALL-template.sh:325: *) c=`perl -le "print (($expect > $v) ? 'red' : 'green')"`; ;; o-saft-19.01.19/contrib/INSTALL-template.sh-326- esac ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-328- [ "$c" = "red" ] && echo_red "$v , $text_old $expect" o-saft-19.01.19/contrib/INSTALL-template.sh:329: [ "$c" = "red" ] && err=`expr $err + 1` o-saft-19.01.19/contrib/INSTALL-template.sh-330- [ "$c" = "red" ] && echo E $err ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-333- echo_red "$text_miss" o-saft-19.01.19/contrib/INSTALL-template.sh:334: err=`expr $err + 1` o-saft-19.01.19/contrib/INSTALL-template.sh-335- echo e $err ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-344-modules="Net::DNS Net::SSLeay IO::Socket::SSL" o-saft-19.01.19/contrib/INSTALL-template.sh:345:for p in `echo $PATH|tr ':' ' '` ; do o-saft-19.01.19/contrib/INSTALL-template.sh-346- o="$p/$osaft_exe" ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-349- for m in $modules ; do o-saft-19.01.19/contrib/INSTALL-template.sh:350: v=`$o --no-warn +version | awk '($1=="'$m'"){print}'` o-saft-19.01.19/contrib/INSTALL-template.sh-351- echo_green "$v" ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-366-echo "#--------------------------------------------------------------" o-saft-19.01.19/contrib/INSTALL-template.sh:367:for p in `echo $PATH|tr ':' ' '` ; do o-saft-19.01.19/contrib/INSTALL-template.sh-368- o="$p/$osaft_exe" ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-372- cd $p o-saft-19.01.19/contrib/INSTALL-template.sh:373: openssl=`$o --no-warn +version | awk '/external executable/{print $NF}' | tr '\012' ' '` o-saft-19.01.19/contrib/INSTALL-template.sh-374- echo -n "# $o:\t" && echo_green "$openssl" ############################################## o-saft-19.01.19/contrib/INSTALL-template.sh-389- echo -n "# not found\t" && echo_red "$c" o-saft-19.01.19/contrib/INSTALL-template.sh:390: err=`expr $err + 1` o-saft-19.01.19/contrib/INSTALL-template.sh-391- fi ############################################## o-saft-19.01.19/contrib/bash_completion_o-saft-23- o-saft-19.01.19/contrib/bash_completion_o-saft:24:_y_cmds=`o-saft.pl --help=commands|awk '/^\+/{print $1}'` o-saft-19.01.19/contrib/bash_completion_o-saft:25:_y_opts=`o-saft.pl --help=opts |awk '/^\-/{print $1}'` o-saft-19.01.19/contrib/bash_completion_o-saft:26:_y_rang=`o-saft.pl --help=range |awk "/ *'/"'{print "--cipherrange="$1}'` o-saft-19.01.19/contrib/bash_completion_o-saft-27- ############################################## o-saft-19.01.19/contrib/bunt.sh-249- space="" o-saft-19.01.19/contrib/bunt.sh:250: from=`echo "$@" | \wc -c` o-saft-19.01.19/contrib/bunt.sh-251- if [ $printf -eq 1 ]; then o-saft-19.01.19/contrib/bunt.sh:252: from=`\expr $_LEN - $from` o-saft-19.01.19/contrib/bunt.sh-253- _p=$@; # printf is is really strange; squeezes spaces also ############################################## o-saft-19.01.19/contrib/bunt.sh-256- if [ -x $seq ]; then o-saft-19.01.19/contrib/bunt.sh:257: for s in `$seq $from $_LEN`; do o-saft-19.01.19/contrib/bunt.sh-258- space="$space " ############################################## o-saft-19.01.19/contrib/bunt.sh-285- txt=`bold 'striked bold green'` o-saft-19.01.19/contrib/bunt.sh:286: txt=`strike "$txt"` o-saft-19.01.19/contrib/bunt.sh:287: txt=`green "$txt"` o-saft-19.01.19/contrib/bunt.sh-288- \echo " line with $txt word" ############################################## o-saft-19.01.19/contrib/bunt.sh-317- --*) o-saft-19.01.19/contrib/bunt.sh:318: arg=`expr "$1" ':' '--\(.*\)'` o-saft-19.01.19/contrib/bunt.sh-319- expr "$arg" + 0 >/dev/null ; # prints warning on STDERR ############################################## o-saft-19.01.19/contrib/bunt.sh-336- background cyan o-saft-19.01.19/contrib/bunt.sh:337: \echo `gray "$@"` o-saft-19.01.19/contrib/bunt.sh-338- colour_reset # FIXME: does not yet work proper ############################################## o-saft-19.01.19/contrib/bunt.sh-353- \*\*ERROR*) boldred "$line\n"; continue; ;; o-saft-19.01.19/contrib/bunt.sh:354: =*) reversebg "`pad_right $line`\n"; continue; ;; o-saft-19.01.19/contrib/bunt.sh-355- "Use of "*perl*) purple "$line\n"; continue; ;; ############################################## o-saft-19.01.19/contrib/bunt.sh-375- if [ $word -eq 1 ]; then o-saft-19.01.19/contrib/bunt.sh:376: [ $italic -eq 1 ] && line=`italic_label "$line"` o-saft-19.01.19/contrib/bunt.sh-377- # first a general check to improve performance ############################################## o-saft-19.01.19/contrib/cipher_check.sh-93-logname() { o-saft-19.01.19/contrib/cipher_check.sh:94: echo "cipher_check__"`echo $*|\tr -s ' ' '_'`.txt o-saft-19.01.19/contrib/cipher_check.sh-95-} ############################################## o-saft-19.01.19/contrib/cipher_check.sh-111- line="######################################" o-saft-19.01.19/contrib/cipher_check.sh:112: base_log=`logname $ssl +cipher` o-saft-19.01.19/contrib/cipher_check.sh-113- if [ -z $try ] ; then ############################################## o-saft-19.01.19/contrib/cipher_check.sh-167- cmd="+cipher" # use +cipher as reference test o-saft-19.01.19/contrib/cipher_check.sh:168: log=`logname $ssl $cmd` o-saft-19.01.19/contrib/cipher_check.sh-169- check_cipher ############################################## o-saft-19.01.19/contrib/cipher_check.sh-175- fi o-saft-19.01.19/contrib/cipher_check.sh:176: log=`logname $ssl $cmd` o-saft-19.01.19/contrib/cipher_check.sh-177- check_cipher ############################################## o-saft-19.01.19/contrib/critic.sh-128- mode="--single-policy" o-saft-19.01.19/contrib/critic.sh:129: pols="`perl -lne '/^\[-/ && do {$_=~s/\[-([^\]]*).*/$1/;$\=q( );print}' .perlcriticrc`" o-saft-19.01.19/contrib/critic.sh-130- ;; ############################################## o-saft-19.01.19/contrib/o-saft.php-40-#dbx# echo("/cgi-bin/o-saft.pl --cgi $qs \n"); o-saft-19.01.19/contrib/o-saft.php:41:#passthru("/cgi-bin/o-saft.pl --cgi $qs", $err); o-saft-19.01.19/contrib/o-saft.php:42:passthru("cd ../cgi-bin;./o-saft.pl $qs", $err); o-saft-19.01.19/contrib/o-saft.php-43- # --cgi avoids messages like: "=== reading: ..." ############################################## o-saft-19.01.19/contrib/tcsh_completion_o-saft-24-complete o-saft.pl \ o-saft-19.01.19/contrib/tcsh_completion_o-saft:25: 'C@+@`o-saft.pl --help=commands|awk /^\\+/\{print\ \$1\}`@' \ o-saft-19.01.19/contrib/tcsh_completion_o-saft:26: 'C@-@`o-saft.pl --help=opts |awk /^\\-/\{print\ \$1\}`@' \ o-saft-19.01.19/contrib/tcsh_completion_o-saft-27- ############################################## o-saft-19.01.19/contrib/usage_examples-172- o-saft-19.01.19/contrib/usage_examples:173:o-saft.pl +cipher `awk -F: '/:/{print "--port="$2" --host="$1}' host-list.txt` o-saft-19.01.19/contrib/usage_examples-174- ############################################## o-saft-19.01.19/o-saft-106- -post=*) o-saft-19.01.19/o-saft:107: post="`expr "$1" ':' '-post=\(.*\)'`" o-saft-19.01.19/o-saft:108: cmd=`echo "$post" | awk '{print $1}'` # remove additional trailing arguments o-saft-19.01.19/o-saft-109- [ -x "$contrib/$cmd" ] && post="$contrib/$post" ############################################## o-saft-19.01.19/o-saft-docker-297- #dbx# \docker image ls ${image_name} -q | \sort -u | \wc -w o-saft-19.01.19/o-saft-docker:298: is_id=`\docker image ls ${image_name} -q | \sort -u | \wc -w` o-saft-19.01.19/o-saft-docker-299- [ "${is_id}" -eq 1 ] && return; # found image, return ############################################## o-saft-19.01.19/o-saft-docker-303- if [ "${is_id}" -gt 1 ]; then o-saft-19.01.19/o-saft-docker:304: for tag in `\docker image ls ${image_name} | \awk '/^REPOSITORY/{next}{print $2}'` ; do o-saft-19.01.19/o-saft-docker-305- # varaiable tag is the same as the global one! ############################################## o-saft-19.01.19/o-saft-docker-322- fi o-saft-19.01.19/o-saft-docker:323: _ciphers=`$_openssl ciphers -V ALL:COMPLEMENTOFALL:aNULL | \wc -l` o-saft-19.01.19/o-saft-docker-324- cat << EoDescription ############################################## o-saft-19.01.19/o-saft-docker-372-docker_status () { o-saft-19.01.19/o-saft-docker:373: image_id=`\docker image ls -q ${image_name}` o-saft-19.01.19/o-saft-docker-374- cat << EoStatus ############################################## o-saft-19.01.19/o-saft-docker-392- # list related (tagged) images o-saft-19.01.19/o-saft-docker:393: for _id in `\docker image ls -q ${registry}` ; do o-saft-19.01.19/o-saft-docker-394- $try \docker image ls | \grep "$_id" ############################################## o-saft-19.01.19/o-saft-docker-401- echo "# O-Saft docker image ..." o-saft-19.01.19/o-saft-docker:402: _id=`$0 call env | grep osaft_vm_build` o-saft-19.01.19/o-saft-docker-403- if [ -n "$_id" ]; then ############################################## o-saft-19.01.19/o-saft-docker-432- $try \docker image save -o $_tar ${image_name} && \ o-saft-19.01.19/o-saft-docker:433: $try \docker image rm `$try docker image ls -q ${image_name}` && \ o-saft-19.01.19/o-saft-docker-434- $try \docker image load -i $_tar && \ ############################################## o-saft-19.01.19/o-saft-docker-453-docker_sshx () { o-saft-19.01.19/o-saft-docker:454: _ssh=`\docker port ${image_name} 22` o-saft-19.01.19/o-saft-docker-455- if [ -z "${_ssh}" ]; then ############################################## o-saft-19.01.19/o-saft-docker-460- # TODO: returns IP of last interface if more than on exists o-saft-19.01.19/o-saft-docker:461: _ip=`\ip -4 -o addr | \awk '($2~/docker/){sub("/..","",$4);print $4}'` o-saft-19.01.19/o-saft-docker-462- $try \ssh user@${_id} -p ${_ssh} /O-Saft/o-saft.tcl ############################################## o-saft-19.01.19/o-saft-docker-530- #dbx# echo "# registry: ${registry} # image_name: ${image_name}" o-saft-19.01.19/o-saft-docker:531: _ids=`\docker image ls -q ${registry}` # ${image_name} o-saft-19.01.19/o-saft-docker-532- echo "# image IDs to be deleted: $_ids " ############################################## o-saft-19.01.19/o-saft-docker-540- for _id in $_ids ; do o-saft-19.01.19/o-saft-docker:541: _img=`echo "$_any" | \awk "/$_id/"'{print $3}'` o-saft-19.01.19/o-saft-docker-542- #dbx# echo "# ID $_any : $_id : $_img" ############################################## o-saft-19.01.19/o-saft-docker-559- '-v') set -x ; ;; o-saft-19.01.19/o-saft-docker:560: -tag=*) tag="`expr "$1" ':' '-tag=\(.*\)'`" o-saft-19.01.19/o-saft-docker-561- image_name="${registry}:$tag" o-saft-19.01.19/o-saft-docker-562- ;; o-saft-19.01.19/o-saft-docker:563: -id=*) image_name="`expr "$1" ':' '-id=\(.*\)'`"; ;; o-saft-19.01.19/o-saft-docker:564: -OSAFT_VERSION=*) OSAFT_VERSION="`expr "$1" ':' '-OSAFT_VERSION=\(.*\)'`"; ;; o-saft-19.01.19/o-saft-docker-565- '-help') my_help; exit 0; ;; ############################################## o-saft-19.01.19/o-saft-docker-dev-534- $try \docker image save -o ${image_save} ${image_name} o-saft-19.01.19/o-saft-docker-dev:535: $try \docker image rm `$try docker image ls -q ${image_name}` o-saft-19.01.19/o-saft-docker-dev-536- $try \docker image load -i ${image_save} ############################################## o-saft-19.01.19/o-saft-docker-dev-621- '-debian') _cfg_debian debian ; ;; o-saft-19.01.19/o-saft-docker-dev:622: -from=*) image_from="`expr "$1" ':' '-from=\(.*\)'`"; ;; o-saft-19.01.19/o-saft-docker-dev:623: -tar=*) host_tar="$host_tar `expr "$1" ':' '-tar=\(.*\)'`"; ;; o-saft-19.01.19/o-saft-docker-dev:624: -apt=*) apt="`expr "$1" ':' '-apt=\(.*\)'`"; ;; o-saft-19.01.19/o-saft-docker-dev-625- '-author') maintainer="MAINTAINER Achim <achim@owasp.org>"; ;; ############################################## o-saft-19.01.19/o-saft-man.pm-1393- # pod2usage( -verbose => 1 ); o-saft-19.01.19/o-saft-man.pm:1394: exec( Pod::Perldoc->run(args=>[$0]) ); o-saft-19.01.19/o-saft-man.pm-1395- } ############################################## o-saft-19.01.19/o-saft.pl-1775- 'wildcards' => " <<uses wildcards:@@>>", o-saft-19.01.19/o-saft.pl:1776: 'gethost' => " <<gethostbyaddr() failed>>", o-saft-19.01.19/o-saft.pl-1777- 'out_target' => "\n==== Target: @@ ====\n", ############################################## o-saft-19.01.19/o-saft.pl-3663- # needs to be evaluated o-saft-19.01.19/o-saft.pl:3664: foreach my $c (eval($cfg{'cipherranges'}->{$range}) ) { ## no critic qw(BuiltinFunctions::ProhibitStringyEval) o-saft-19.01.19/o-saft.pl-3665- push(@all, sprintf("0x%08X",$c)); ############################################## o-saft-19.01.19/o-saft.pl-3693- _v_print("cipher range: $range"); o-saft-19.01.19/o-saft.pl:3694: foreach my $c (eval($cfg{'cipherranges'}->{$range}) ) { ## no critic qw(BuiltinFunctions::ProhibitStringyEval) o-saft-19.01.19/o-saft.pl-3695- my $key = sprintf("0x%08X",$c); ############################################## o-saft-19.01.19/o-saft.pl-8357- # prepare DNS stuff o-saft-19.01.19/o-saft.pl:8358: # gethostbyname() and gethostbyaddr() set $? on error, needs to be reset! o-saft-19.01.19/o-saft.pl-8359- my $rhost = ""; ############################################## o-saft-19.01.19/o-saft.pl-8370- } else { o-saft-19.01.19/o-saft.pl:8371: $fail = '<<gethostbyaddr() failed>>'; o-saft-19.01.19/o-saft.pl-8372- $cfg{'ip'} = gethostbyname($host); # primary IP as identified by given hostname ############################################## o-saft-19.01.19/o-saft.pl-8377- } o-saft-19.01.19/o-saft.pl:8378: # gethostbyaddr() is strange: returns $?==0 but an error message in $! o-saft-19.01.19/o-saft.pl-8379- # hence just checking $? is not reliable, we do it additionally. o-saft-19.01.19/o-saft.pl:8380: # If gethostbyaddr() fails we use Perl's `or' to assign our default o-saft-19.01.19/o-saft.pl-8381- # text. This may happen when there are problems with the local name o-saft-19.01.19/o-saft.pl-8382- # resolution. o-saft-19.01.19/o-saft.pl:8383: # When gethostbyaddr() fails, the connection to the target most likely o-saft-19.01.19/o-saft.pl-8384- # fails also, which produces more Perl warnings later. ############################################## o-saft-19.01.19/o-saft.pl-8390- local $? = 0; local $! = undef; o-saft-19.01.19/o-saft.pl:8391: ($cfg{'rhost'} = gethostbyaddr($cfg{'ip'}, AF_INET)) or $cfg{'rhost'} = $fail; o-saft-19.01.19/o-saft.pl-8392- $cfg{'rhost'} = $fail if ($? != 0); ############################################## o-saft-19.01.19/o-saft.pl-8397- local $? = 0; local $! = undef; o-saft-19.01.19/o-saft.pl:8398: # TODO: $rhost = gethostbyaddr($ipv6, AF_INET6)); o-saft-19.01.19/o-saft.pl:8399: ($rhost = gethostbyaddr($ip, AF_INET)) or $rhost = $fail; o-saft-19.01.19/o-saft.pl-8400- $rhost = $fail if ($? != 0); ############################################## o-saft-19.01.19/o-saft.pod-4795-If reverse DNS lookup fails, an error message is returned as hostname, o-saft-19.01.19/o-saft.pod:4796:like: C<<<gethostbyaddr() failed>>>. o-saft-19.01.19/o-saft.pod-4797-Workaround to get rid of this message: use I<--no-dns> option. ############################################## o-saft-19.01.19/osaft.pm-1620- # memory footprint, but requires use of eval() when the o-saft-19.01.19/osaft.pm:1621: # range is needed: eval($cfg{cipherranges}->{rfc}) o-saft-19.01.19/osaft.pm-1622- # Each string must be syntax for perl's range definition. ############################################## o-saft-19.01.19/t/SSLinfo.pl-17- # quick&dirty o-saft-19.01.19/t/SSLinfo.pl:18: system("sed -ne 's#\$0#$0#g' -e '/^#?/s/#?//p' $0"); o-saft-19.01.19/t/SSLinfo.pl-19- exit 0; ############################################## o-saft-19.01.19/t/o-saft_bench.sh-96- #dbx# echo "o-saft.pl $cmd " o-saft-19.01.19/t/o-saft_bench.sh:97: txt=`echo "$cmd" | \sed -e "s/ $host/ "'$host/' -e 's/\\\/|/'` o-saft-19.01.19/t/o-saft_bench.sh-98- # we want a well formatted table, hence the real hostname is