From 5c3b6e2f82014279b41f6103dec6dcbc05488413 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Thu, 14 Aug 2014 16:40:12 -0400
Subject: [PATCH] This much gets me logged into dc.

---
 dc-download-videos.plx | 52 ++++++++++++++++++++++++++++++++++++++----
 1 file changed, 48 insertions(+), 4 deletions(-)

diff --git a/dc-download-videos.plx b/dc-download-videos.plx
index 176412c..19e23b2 100755
--- a/dc-download-videos.plx
+++ b/dc-download-videos.plx
@@ -1,4 +1,22 @@
 #!/usr/bin/perl
+# dc-download-videos.plx
+# Copyright (C) 2014, Bradley M. Kuhn
+#
+# This program gives you software freedom; you can copy, modify, convey,
+# and/or redistribute it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 3 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program in a file called 'GPLv3'.  If not, write to the:
+#    Free Software Foundation, Inc., 51 Franklin St, Fifth Floor
+#                                    Boston, MA 02110-1301, USA.
+#
 
 use strict;
 use warnings;
@@ -6,9 +24,35 @@ use warnings;
 use WWW::Mechanize;
 use HTTP::Cookies;
 
-my $mech = WWW::Mechanize->new(
-     autocheck => 1,
-     cookie_jar => HTTP::Cookies->new( file => "$ENV{HOME}/Crypt/Poker/dc-cookies.txt"));
+my $mech = WWW::Mechanize->new(autocheck => 1);
+
+my $passfile = $ARGV[0];
+
+open(PASSWORDS, "<", $passfile) or die "unable to read $passfile $!";
+
+my($login, $password);
+while (my $line = <PASSWORDS>) {
+  if ($line =~ /^\s*login\s*:\s*(\S+)\s*$/) {
+    $login = $1;
+  } elsif ($line =~ /^\s*password\s*:\s*(\S+)\s*$/) {
+    $password = $1;
+  } else {
+    print STDERR "Bad lin in $passfile";
+    exit 1;
+  }
+}
+close PASSWORDS;
+die "error reading $passfile: $!" unless $? == 0;
 
 $mech->get("http://www.deucescracked.com/dashboard");
-print $mech->content;
+my $x = $mech->submit_form(form_number => 1,
+                   fields => { login => $login, password => $password});
+use Data::Dumper;
+print $x->decoded_content();
+
+###############################################################################
+#
+# Local variables:
+# compile-command: "perl -c dc-download-videos.plx"
+# End:
+