diff options
author | 2009-05-26 20:07:33 +0200 | |
---|---|---|
committer | 2009-05-26 20:07:33 +0200 | |
commit | aa66355dde399f9e2868a80617acca96213c03fe (patch) | |
tree | 930ba564bd954f03b449bb71db8730599d58e6b1 /examples/scripts | |
parent | 5039fb8e90418df142131397af669f0232cb33fe (diff) |
new formfiller script
Diffstat (limited to 'examples/scripts')
-rwxr-xr-x | examples/scripts/formfiller.pl | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/examples/scripts/formfiller.pl b/examples/scripts/formfiller.pl new file mode 100755 index 0000000..4c351b5 --- /dev/null +++ b/examples/scripts/formfiller.pl @@ -0,0 +1,99 @@ +#!/usr/bin/perl + +# a slightly more advanced form filler +# +# uses settings file like: $keydir/<domain> + +# user arg 1: +# edit: force editing of the file (fetches if file is missing) +# load: fill forms from file (fetches if file is missing) +# new: fetch new file + +# usage example: +# bind LL = spawn /usr/share/uzbl/examples/scripts/formfiller2.pl load +# bind LN = spawn /usr/share/uzbl/examples/scripts/formfiller2.pl new +# bind LE = spawn /usr/share/uzbl/examples/scripts/formfiller2.pl edit + +use strict; +use Switch; + +my $keydir = $ENV{XDG_CONFIG_HOME} . "/uzbl/keys"; +my ($config,$pid,$xid,$fifo,$socket,$url,$title,$cmd) = @ARGV; +if($fifo eq "") { die "No fifo"; }; + +sub domain { + my ($url) = @_; + $url =~ s#http(s)?://([A-Za-z0-9\.-]+)(/.*)?#$2#; + return $url; +}; + +#my $editor = "xterm -e vim"; +my $editor = "gvim"; + +# ideally, there would be some way to ask uzbl for the html content instead of having to redownload it with +# Also, you may need to fake the user-agent on some sites (like facebook) + my $downloader = "curl -A 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.10) Gecko/2009042810 GranParadiso/3.0.10' "; +#my $downloader = "curl -s"; + +my @fields = ("type","name","value"); + +my %command; + +$command{load} = sub { + my ($domain) = @_; + my $file = "$keydir/$domain"; + if( -e $file){ + open(FH,$file); + my (@lines) = <FH>; + close(FH); + $|++; + open(FIFO,">>$fifo"); + print "opened $fifo\n"; + foreach my $line (@lines) { + if($line !~ m/^#/){ + my ($type,$name,$value) = ($line =~ /\s*(\w+)\s*\|\s*(.*?)\s*\|\s*(.*?)\s*$/); + switch ($type) { + case "" {} + case "checkbox" { printf FIFO 'act js document.getElementsByName("%s")[0].checked = %s;', $name, $value} + case "submit" { printf FIFO 'act js function fs (n) {try{n.submit()} catch (e){fs(n.parentNode)}}; fs(document.getElementsByName("%s")[0]);', $name } + else { printf FIFO 'act js document.getElementsByName("%s")[0].value = "%s";', $name, $value} + } + + print FIFO "\n"; + } + } + $|--; + close(FIFO); + } else { + $command{new}->($domain); + $command{edit}->($domain); + } +}; +$command{edit} = sub { + my ($domain) = @_; + my $file = "$keydir/$domain"; + if(-e $file){ + system ($editor, $file); + } else { + $command{new}->($domain); +} +}; +$command{new} = sub { + my ($domain) = @_; + my $file = "$keydir/$domain"; + open(FILE,">>$file"); + $|++; + print FILE "#make sure that there are no extra submits, since it may trigger the wrong one\n"; + printf FILE "#%-10s | %-10s | %s\n", @fields; + print FILE "#------------------------------\n"; + my @data = `$downloader $url`; + foreach my $line (@data){ + if($line =~ m/<input ([^>].*?)>/i){ + $line =~ s/.*(<input ([^>].*?)>).*/\1/; + printf FILE " %-10s | %-10s | %s\n", map { my ($r) = $line =~ /.*$_=["'](.*?)["']/;$r } @fields; + }; + }; + close(FILE); + $|--; +}; +$command{$cmd}->(domain($url)); |