From: ian <ian>
Date: Sun, 18 Apr 2004 20:37:13 +0000 (+0000)
Subject: alarming - it hides your order in your browser state
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=81167e8c84017a54ef848c647758342035ae8aff;p=trains.git

alarming - it hides your order in your browser state
---

diff --git a/farnell/farnell-find b/farnell/farnell-find
index da3871b..81c2ca6 100755
--- a/farnell/farnell-find
+++ b/farnell/farnell-find
@@ -70,6 +70,7 @@ use IO::Handle;
 use IO::File;
 use LWP::UserAgent;
 use HTTP::Request;
+use HTTP::Request::Common;
 use HTTP::Response;
 
 our(@warn);
@@ -131,6 +132,7 @@ our($item_re)= '\d{3}\-\d{3,7}';
 
 our(%stockmap)= ('In Stock' => 'Y',
 		 'Awaiting Delivery' => 'A');
+our($urlbase)= 'http://uk.farnell.com';
 
 sub get_useragent () {
     my ($whoami,$mailname);
@@ -141,13 +143,18 @@ sub get_useragent () {
     $useragent= new LWP::UserAgent(env_proxy => 1, keep_alive =>1);
 }
 
+sub check_response ($$) {
+    my ($response,$url) = @_;
+    $response->is_success or die "$url ".$response->as_string." ?";
+}
+
 sub by_item ($;$) {
     my ($itemcode,$why) = @_;
     # looks up $itemcode (ddd-d...) at Farnell and returns
     # cat hash ref
     local ($_);
     my ($chr,$shortcode,$sc2,$url,$price);
-    $url= 'http://uk.farnell.com/jsp/catalog/viewproductdetails.jsp?prodId=';
+    $url= "$urlbase/jsp/catalog/viewproductdetails.jsp?prodId=";
     $itemcode =~ m/^(\d\d\d)\-(\d{3,7})$/ or die "$itemcode ?";
     $chr->{Item}= $itemcode;
     $chr->{Shortcode}= $1.$2;
@@ -155,10 +162,8 @@ sub by_item ($;$) {
     if (!-f "farn.$itemcode") {
 	my ($response);
 	get_useragent();
-	print STDERR "got ua... $url\n";
 	$response= $useragent->get($url);
-	print STDERR "got response... $response\n";
-	$response->is_success or die "$url ".$response->as_string." ?";
+	check_response($response, $url);
 	$_= $response->content;
 	open N, ">tmp.farn.$itemcode" or die $!;
 	print N or die $!;
@@ -211,12 +216,55 @@ sub snarf ($;$) {
 
 sub cart_add (@) {
     my (@orderlist) = @_;
-    my ($i);
+    my ($i, $url, $item, $qty, @submit, $request, $response);
+    $url= "$urlbase/jsp/op/shoppingbasket.jsp;jsessionid=$jsessionid".
+	"?_DARGS=/jsp/home/quickbuycontent.jsp";
+    @submit= (
+#_DARGS => "/jsp/home/quickbuycontent.jsp",
+
+'_dyncharset' => 'ASCII',
+#'/pf/commerce/PFCartHandler.setOrderSuccessURL' => '/jsp/op/shoppingbasket.jsp',
+#'_D:/pf/commerce/PFCartHandler.setOrderSuccessURL' => ' ',
+#'/pf/commerce/PFCartHandler.setOrderErrorURL' => '/jsp/op/shoppingbasket.jsp',
+#'_D:/pf/commerce/PFCartHandler.setOrderErrorURL' => ' ',
+'/pf/commerce/PFCartHandler.addLinesSuccessURL' => '/jsp/op/shoppingbasket.jsp',
+'_D:/pf/commerce/PFCartHandler.addLinesSuccessURL' => ' ',
+#'/pf/commerce/PFCartHandler.moveToPurchaseInfoErrorURL' => '/jsp/op/shoppingbasket.jsp',
+#'_D:/pf/commerce/PFCartHandler.moveToPurchaseInfoErrorURL' => ' ',
+#'/pf/commerce/PFCartHandler.addPotentialProductsSuccessURL' => '/jsp/op/shoppingbasket.jsp',
+#'_D:/pf/commerce/PFCartHandler.addPotentialProductsSuccessURL' => ' ',
+#'/pf/commerce/PFCartHandler.addPotentialProductsErrorURL' => '/jsp/op/shoppingbasket.jsp',
+#'_D:/pf/commerce/PFCartHandler.addPotentialProductsErrorURL' => ' ',
+#'/pf/commerce/PFCartHandler.fowardOrderSuccessURL' => '/jsp/op/forwardmultistageorder.jsp',
+#'_D:/pf/commerce/PFCartHandler.fowardOrderSuccessURL' => ' ',
+#'/pf/commerce/PFCartHandler.moveToPurchaseInfoSuccessURL' => 'https://secure.farnell.com/jsp/op/shipping.jsp;jsessionid=UPTT45ICG5DERQFIAEXSFE4AVAAS4IV3',
+#'_D:/pf/commerce/PFCartHandler.moveToPurchaseInfoSuccessURL' => ' ',
+'/pf/commerce/PFCartHandler.setOrderByCommerceId.x' => '0',
+'/pf/commerce/PFCartHandler.setOrderByCommerceId.y' => '0',
+'_D:/pf/commerce/PFCartHandler.setOrderByCommerceId' => ' ',
+'_DARGS' => '/jsp/home/quickbuycontent.jsp',
+
+
+	      );
     while (@orderlist) {
-	for ($i=0; $i<5; $i++) {
-	    # fixme finish this
-	}
+	($item, $qty, @orderlist) = @orderlist;
+	push @submit,
+	'k1', $item,
+	'_D:k1', ' ',
+	'k3', $qty,
+	'_D:k3', ' ';
     }
+    get_useragent();
+print STDERR "url $url; @submit.\n";
+    $request= POST $url, \@submit;
+    $useragent->prepare_request($request);
+printf STDERR "request %s.\n", $request->as_string;
+    $response= $useragent->request($request);
+    check_response($response,$url);
+    open N, ">tmp.farn.basket.html" or die $!;
+    print N $response->content or die $!;
+    close N or die $!;
+    exec 'w3m','./tmp.farn.basket.html'; die $!;
 }
 
 sub read_spec ($) {
@@ -544,29 +592,33 @@ while (@ARGV && $ARGV[0] =~ m/^\-/) {
     }
 }
 
-if (@ARGV==1 && $ARGV[0] =~ m/^\d\d\d\-/) {
-    my ($chr, $k);
-    $chr= by_item($ARGV[0]);
-    dump_warnerrs();
-    foreach $k (sort keys %$chr) {
-	printf "%-20s %s\n", $k, $chr->{$k} or die $!;
-    }
-} elsif (@ARGV > 1 && (@ARGV % 1) && $ARGV[0] =~ m/^\d\d\d\-/) {
-    my (@orderlist,$item,$qty);
-    $jsessionid= pop @ARGV;
-    if ($jsessionid =~ m/\;jsessionid=([0-9A-Z]+)\b/) {
-	$jsessionid= $1;
-    } elsif ($jsessionid =~ m/^([0-9A-Z]+)$/) {
+if (@ARGV && $ARGV[0] =~ m/^\d\d\d\-/) {
+    if (@ARGV==1) {
+	my ($chr, $k);
+	$chr= by_item($ARGV[0]);
+	dump_warnerrs();
+	foreach $k (sort keys %$chr) {
+	    printf "%-20s %s\n", $k, $chr->{$k} or die $!;
+	}
+    } elsif (@ARGV > 1 && (@ARGV % 2)) {
+	my (@orderlist,$item,$qty);
+	$jsessionid= pop @ARGV;
+	if ($jsessionid =~ m/\;jsessionid=([0-9A-Z]+)\b/) {
+	    $jsessionid= $1;
+	} elsif ($jsessionid =~ m/^([0-9A-Z]+)$/) {
+	} else {
+	    die "bad jsessionid\n";
+	}
+	while (@ARGV) {
+	    ($item,$qty,@ARGV) = @ARGV;
+	    $item =~ m/^$item_re$/ or die "$item ?";
+	    $qty =~ m/^[1-9]\d{0,5}$/ or die "$qty ?";
+	    push @orderlist, $item, $qty;
+	}
+	cart_add(@orderlist);
     } else {
-	die "bad jsessionid\n";
-    }
-    while (@ARGV) {
-	($item,$qty,@ARGV) = @ARGV;
-	$item =~ m/^$item_re$/ or die "$item ?";
-	$qty =~ m/^[1-9]\d{0,5}$/ or die "$qty ?";
-	push @orderlist, { Item => $item, Qty => $qty };
+	die;
     }
-    cart_add(@orderlist);
 } elsif (@ARGV) { 
     my ($filename);
     foreach $filename (@ARGV) {