1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!/usr/bin/perl
# a slightly more advanced form filler
#
# uses settings file like: $keydir/<domain>
#TODO: fallback to $HOME/.local/share
# 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/data/scripts/formfiller.pl load
# bind LN = spawn /usr/share/uzbl/examples/data/scripts/formfiller.pl new
# bind LE = spawn /usr/share/uzbl/examples/data/scripts/formfiller.pl edit
use strict;
use warnings;
my $keydir = $ENV{XDG_CONFIG_HOME} . "/uzbl/forms";
my ($config,$pid,$xid,$fifoname,$socket,$url,$title,$cmd) = @ARGV;
if (!defined $fifoname || $fifoname 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 $filename = "$keydir/$domain";
if (-e $filename){
open(my $file, $filename) or die "Failed to open $filename: $!";
my (@lines) = <$file>;
close($file);
$|++;
open(my $fifo, ">>", $fifoname) or die "Failed to open $fifoname: $!";
foreach my $line (@lines) {
next if ($line =~ m/^#/);
my ($type,$name,$value) = ($line =~ /^\s*(\w+)\s*\|\s*(.*?)\s*\|\s*(.*?)\s*$/);
if ($type eq "checkbox")
{
printf $fifo 'js document.getElementsByName("%s")[0].checked = %s;', $name, $value;
} elsif ($type eq "submit")
{
printf $fifo 'js function fs (n) {try{n.submit()} catch (e){fs(n.parentNode)}}; fs(document.getElementsByName("%s")[0]);', $name;
} elsif ($type ne "")
{
printf $fifo 'js document.getElementsByName("%s")[0].value = "%s";', $name, $value;
}
print $fifo "\n";
}
$|--;
} 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 $filename = "$keydir/$domain";
open (my $file,">>", $filename) or die "Failed to open $filename: $!";
$|++;
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;
};
};
$|--;
};
$command{$cmd}->(domain($url));
|
