mirror of
https://github.com/moparisthebest/curl
synced 2024-12-23 00:28:48 -05:00
195 lines
5.0 KiB
Perl
Executable File
195 lines
5.0 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# $Id$
|
|
#
|
|
# 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";
|
|
}
|
|
}
|
|
}
|
|
}
|