From 65d5fab2d48817b58c00813ad3e101492fd521eb Mon Sep 17 00:00:00 2001
From: Mason Larobina <mason.larobina@gmail.com>
Date: Sun, 14 Mar 2010 21:18:38 +0800
Subject: Remove old formfiller scripts.

---
 examples/data/scripts/formfiller.pl | 99 -------------------------------------
 1 file changed, 99 deletions(-)
 delete mode 100755 examples/data/scripts/formfiller.pl

(limited to 'examples/data/scripts/formfiller.pl')

diff --git a/examples/data/scripts/formfiller.pl b/examples/data/scripts/formfiller.pl
deleted file mode 100755
index 74dcc80..0000000
--- a/examples/data/scripts/formfiller.pl
+++ /dev/null
@@ -1,99 +0,0 @@
-#!/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));
-- 
cgit v1.2.3