From 28cdc0d82c6159addc6d2a66449bc6bd2ef0bb71 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Sun, 24 May 2015 00:54:55 +0200
Subject: perl: remove subdir, not touched in 9 years

---
 perl/contrib/formfind | 193 --------------------------------------------------
 1 file changed, 193 deletions(-)
 delete mode 100644 perl/contrib/formfind

(limited to 'perl/contrib/formfind')

diff --git a/perl/contrib/formfind b/perl/contrib/formfind
deleted file mode 100644
index 3ca8ea49f..000000000
--- a/perl/contrib/formfind
+++ /dev/null
@@ -1,193 +0,0 @@
-#!/usr/bin/env perl
-#
-# formfind.pl
-#
-# This script gets a HTML page on stdin and presents form information on
-# stdout.
-#
-# Author: Daniel Stenberg <daniel@haxx.se>
-# Version: 0.2 Nov 18, 2002
-#
-# HISTORY
-#
-# 0.1 - Nov 12 1998 - Created now!
-# 0.2 - Nov 18 2002 - Enhanced. Removed URL support, use only stdin.
-#
-
-$in="";
-
-if($ARGV[0] eq "-h") {
-    print  "Usage: $0 < HTML\n";
-    exit;
-}
-
-sub namevalue {
-    my ($tag)=@_;
-    my $name=$tag;
-    if($name =~ /name *=/i) {
-        if($name =~ /name *= *([^\"\']([^ \">]*))/i) {
-            $name = $1;
-        }
-        elsif($name =~ /name *= *(\"|\')([^\"\']*)(\"|\')/i) {
-            $name=$2;
-        }
-        else {
-            # there is a tag but we didn't find the contents
-            $name="[weird]";
-        }
-
-    }
-    else {
-        # no name given
-        $name="";
-    }
-    # get value tag
-    my $value= $tag;
-    if($value =~ /[^\.a-zA-Z0-9]value *=/i) {
-        if($value =~ /[^\.a-zA-Z0-9]value *= *([^\"\']([^ \">]*))/i) {
-            $value = $1;
-        }
-        elsif($value =~ /[^\.a-zA-Z0-9]value *= *(\"|\')([^\"\']*)(\"|\')/i) {
-            $value=$2;
-        }
-        else {
-            # there is a tag but we didn't find the contents
-            $value="[weird]";
-        }
-    }
-    else {
-        $value="";
-    }
-    return ($name, $value);
-}
-
-
-while(<STDIN>) {
-    $line = $_;
-    push @indoc, $line;
-    $line=~ s/\n//g;
-    $line=~ s/\r//g;
-    $in=$in.$line;
-}
-
-while($in =~ /[^<]*(<[^>]+>)/g ) {
-    # we have a tag in $1
-    $tag = $1;
-
-    if($tag =~ /^<!--/) {
-        # this is a comment tag, ignore it
-    }
-    else {
-        if(!$form &&
-           ($tag =~ /^< *form/i )) {
-            $method= $tag;
-            if($method =~ /method *=/i) {
-                $method=~ s/.*method *= *(\"|)([^ \">]*).*/$2/gi;
-            }
-            else {
-                $method="get"; # default method
-            }
-            $action= $tag;
-            $action=~ s/.*action *= *(\'|\"|)([^ \"\'>]*).*/$2/gi;
-
-            $method=uc($method);
-
-            $enctype=$tag;
-            if ($enctype =~ /enctype *=/) {
-                $enctype=~ s/.*enctype *= *(\'|\"|)([^ \"\'>]*).*/$2/gi;
-
-                if($enctype eq "multipart/form-data") {
-                    $enctype="multipart form upload [use -F]"
-                }
-                $enctype = "\n--- type: $enctype";
-            }
-            else {
-                $enctype="";
-            }
-
-            print "--- FORM report. Uses $method to URL \"$action\"$enctype\n";
-            $form=1;
-        }
-        elsif($form &&
-              ($tag =~ /< *\/form/i )) {
-
-            print "--- end of FORM\n";
-            $form=0;
-            if( 0 ) {
-                print "*** Fill in all or any of these: (default assigns may be shown)\n";
-                for(@vars) {
-                    $var = $_;
-                    $def = $value{$var};
-                    print "$var=$def\n";
-                }
-                print "*** Pick one of these:\n";
-                for(@alts) {
-                    print "$_\n";
-                }
-            }
-            undef @vars;
-            undef @alts;
-        }
-        elsif($form &&
-              ($tag =~ /^< *(input|select)/i)) {
-            $mtag = $1;
-
-            ($name, $value)=namevalue($tag);
-
-            if($mtag =~ /select/i) {
-                print "Select: NAME=\"$name\"\n";
-                push @vars, "$name";
-                $select = 1;
-            }
-            else {
-                $type=$tag;
-                if($type =~ /type *=/i) {
-                    $type =~ s/.*type *= *(\'|\"|)([^ \"\'>]*).*/$2/gi;
-                }
-                else {
-                    $type="text"; # default type
-                }
-                $type=uc($type);
-                if(lc($type) eq "reset") {
-                    # reset types are for UI only, ignore.
-                }
-                elsif($name eq "") {
-                    # let's read the value parameter
-
-                    print "Button: \"$value\" ($type)\n";
-                    push @alts, "$value";
-                }
-                else {
-                    print "Input: NAME=\"$name\"";
-                    if($value ne "") {
-                        print " VALUE=\"$value\"";
-                    }
-                    print " ($type)\n";
-                    push @vars, "$name";
-                    # store default value:
-                    $value{$name}=$value;
-                }
-            }
-        }
-        elsif($form &&
-              ($tag =~ /^< *textarea/i)) {
-            my ($name, $value)=namevalue($tag);
-
-            print "Textarea: NAME=\"$name\"\n";
-        }
-        elsif($select) {
-            if($tag =~ /^< *\/ *select/i) {
-                print "[end of select]\n";
-                $select = 0;
-            }
-            elsif($tag =~ /[^\/] *option/i ) {
-                my ($name, $value)=namevalue($tag);
-                my $s;
-                if($tag =~ /selected/i) {
-                    $s= " (SELECTED)";
-                }
-                print "  Option VALUE=\"$value\"$s\n";
-            }
-        }
-    }
-}
-- 
cgit v1.2.3