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:
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();