From b22c09bbe09753e92b4515d1bae45405aef86f22 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Fri, 29 May 2009 18:35:35 +0200
Subject: envstore: Use Simplestore library

---
 bin/envstore | 24 +++---------------------
 prereqs      |  1 +
 2 files changed, 4 insertions(+), 21 deletions(-)
 create mode 100644 prereqs

diff --git a/bin/envstore b/bin/envstore
index afc9f3e..adf8230 100755
--- a/bin/envstore
+++ b/bin/envstore
@@ -4,6 +4,7 @@
 ## License: WTFPL <http://sam.zoy.org/wtfpl>
 use strict;
 use warnings;
+use Simplestore;
 
 my $store_file = "/tmp/.envstore-$>";
 my %store;
@@ -38,32 +39,13 @@ sub check_store {
 }
 
 sub load_store {
-	my ($key, $value);
 	return unless check_store;
-	open(my $handle, '<', $store_file) or die("Cannot read $store_file: $!");
-	while (<$handle>) {
-		chomp;
-		/^(\S+)\s+(.*)$/ or next;
-		($key, $value) = ($1, $2);
-		if (exists($store{$key})) {
-			$store{$key} .= "\n$value";
-		} else {
-			$store{$key} = $value;
-		}
-	}
-	close($handle);
+	%store = %{load($store_file) || {}};
 }
 
 sub save_store {
-	my $key;
 	umask(0077);
-	open(my $handle, '>', $store_file) or die("Cannot open $store_file: $!");
-	foreach $key (keys(%store)) {
-		foreach (split(/\n/, $store{$key})) {
-			print $handle "$key\t$_\n";
-		}
-	}
-	close($handle);
+	save($store_file, \%store);
 }
 
 sub get_keyvalue {
diff --git a/prereqs b/prereqs
new file mode 100644
index 0000000..d7afa60
--- /dev/null
+++ b/prereqs
@@ -0,0 +1 @@
+depend package simplestore
-- 
cgit v1.2.3