pricecharts

commit ad63d5afb068d3e790083e7ae52862e90e22e930
parent d3fbab1f44080a0ec6ce6809c887391c364389a3
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Thu,  6 Nov 2014 22:20:25 -0700

update_vendors: add helper script to insert vendor info

Diffstat:
A
update_vendors.pl
 | 
32
++++++++++++++++++++++++++++++++

1 file changed, 32 insertions(+), 0 deletions(-)
diff --git a/update_vendors.pl b/update_vendors.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use shared;
+
+
+$dbh->do("create table if not exists vendors(" .
+	"name text not null primary key, " .
+	"search_url not null, " .
+	"color text not null)") or die $DBI::errstr;
+
+my $sql = "update vendors set search_url = ?, color = ? where name = ?";
+my $update_sth = $dbh->prepare($sql);
+
+$sql = "insert into vendors(name, search_url, color) values (?, ?, ?)";
+my $insert_sth = $dbh->prepare($sql);
+
+for (sort keys $cfg->{vendors}) {
+	$sql = "select * from vendors where name = ?";
+	if ($dbh->selectrow_arrayref($sql, undef, $_)) {
+		$update_sth->execute($cfg->{vendors}{$_}{search_uri},
+			"#$cfg->{vendors}{$_}{color}", $_);
+	}
+	else {
+		$insert_sth->execute($_, $cfg->{vendors}{$_}{search_uri},
+		 	"#$cfg->{vendors}{$_}{color}");
+	}
+}
+
+$dbh->disconnect();