Initial commit

run.sh

@@ -0,0 +1,84 @@
+#!/usr/bin/env bash
+
+OUTPUT_DIR="out"
+
+mkdir -p "$OUTPUT_DIR"
+
+if [[ ! -f "$OUTPUT_DIR/cgi-paths.txt" ]]; then
+  find \
+    /home/pvv/?/*/web-docs \
+    -type f \
+    \( \
+         -name '*.cgi' \
+      -o -name '*.php' \
+      -o -name '*.php3' \
+      -o -name '*.pm' \
+      -o -name '*.pl' \
+      -o -name '*.sh' \
+      -o -name '*.bash' \
+      -o -name '*.phtml' \
+      -o -name '*.shtml' \
+      -o -name '*.lisp' \
+      -o -name '*.cl' \
+    \) \
+    2>/dev/null \
+    | tee "$OUTPUT_DIR/cgi-paths.txt"
+fi
+
+if [[ ! -f out/perl-libs.txt ]]; then
+  find \
+    /home/pvv/?/*/web-docs \
+    -type f \
+    \( \
+         -name '*.pm' \
+      -o -name '*.pl' \
+    \) \
+    -exec rg '^use ([^;]+);' {} -N -o -r '$1' \; \
+    2>/dev/null \
+    | tee "$OUTPUT_DIR/perl-libs.txt"
+fi
+
+cat "$OUTPUT_DIR/perl-libs.txt" | sort > "$OUTPUT_DIR/perl-libs-sorted.txt"
+comm -2 -3 "$OUTPUT_DIR/perl-libs-sorted.txt" PERL_STANDARD_MODULES.txt > "$OUTPUT_DIR/perl-libs-filtered.txt"
+# TODO: remove pragmas
+cat "$OUTPUT_DIR/perl-libs-filtered.txt" | uniq -c | sort -gr > "$OUTPUT_DIR/perl-libs-overview.txt"
+
+if [[ ! -f "$OUTPUT_DIR/php-libs.txt" ]]; then
+  find \
+    /home/pvv/?/*/web-docs \
+    -type f \
+    \( \
+         -name '*.php' \
+      -o -name '*.php3' \
+      -o -name '*.phtml' \
+    \) \
+    -exec rg '^use ([^;]+);' {} -N -o -r '$1' \; \
+    2>/dev/null \
+    | tee "$OUTPUT_DIR/php-libs.txt"
+fi
+
+cat "$OUTPUT_DIR/php-libs.txt" | sort | uniq -c | sort -gr > "$OUTPUT_DIR/php-libs-overview.txt"
+
+find \
+  /home/pvv/?/*/web-docs \
+  -type f \
+  \( \
+       -name '*.cgi' \
+    -o -name '*.php' \
+    -o -name '*.php3' \
+    -o -name '*.pm' \
+    -o -name '*.pl' \
+    -o -name '*.sh' \
+    -o -name '*.bash' \
+    -o -name '*.phtml' \
+    -o -name '*.shtml' \
+    -o -name '*.lisp' \
+    -o -name '*.cl' \
+  \) \
+  -exec rg '(?:/store/bin|/store/gnu/bin|/usr/bin|/usr/local/bin|/local/bin|/opt/bin|/opt/local/bin|/sbin|/usr/sbin|/usr/local/sbin|/opt/sbin|/var/qmail/bin|/usr/drwho/local/bin|/usr/local/mlog3/bin|/usr/local/flite/bin|/opt/flite/bin|/opt/csw/bin|/sw/bin|/usr/sfw/bin|/perl/bin|/usr/local/php/bin|/usr/X11R6/bin)/(?:env\s*)?(\w+(?:/\w+)*)' {} -N -o -r '$1' \; \
+  2>/dev/null \
+  | tee "$OUTPUT_DIR/cgi-progs.txt"
+
+cat "$OUTPUT_DIR/cgi-progs.txt" | sort | uniq -c | sort -gr > "$OUTPUT_DIR/cgi-progs-overview.txt"
+
+# TODO find lisp libraries