From 20bcc774686078cf7f5c58ef058ca2458b01086d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Mon, 2 Nov 2009 21:21:10 +0100
Subject: Rewrite in C, release v2.0 (from branch 'v2')

---
 bin/envstore | 180 -----------------------------------------------------------
 1 file changed, 180 deletions(-)
 delete mode 100755 bin/envstore

(limited to 'bin/envstore')

diff --git a/bin/envstore b/bin/envstore
deleted file mode 100755
index 59d9a67..0000000
--- a/bin/envstore
+++ /dev/null
@@ -1,180 +0,0 @@
-#!/usr/bin/env perl
-## envstore - save and load environment variables
-## Copyright © 2009 by Daniel Friesel <derf@derf.homelinux.org>
-## License: WTFPL <http://sam.zoy.org/wtfpl>
-use strict;
-use warnings;
-use 5.010;
-use Pod::Usage;
-use Storable 'nstore', 'retrieve';
-
-my $store_file = $ENV{ENVSTORE_FILE} || "/tmp/envstore-$>";
-my %store;
-my $action = shift;
-my $arg = shift;
-my $arg2 = shift;
-
-sub usage {
-	pod2usage(
-		-message  => 'Syntax error',
-		-exitval  => 1,
-		-verbose  => 99,
-		-sections => 'SYNOPSIS|DESCRIPTION',
-		-output   => \*STDERR,
-	);
-	return;
-}
-
-sub check_store {
-	my ($mode, $uid);
-
-	if (-e $store_file) {
-		($mode, $uid) = (stat($store_file))[2,4];
-	}
-	else {
-		return 0;
-	}
-
-	if ($uid != $<) {
-		print STDERR "envstore: store file is insecure (not owned by us)\n";
-		exit 1;
-	}
-	if (($mode & 0x00077) > 0) {
-		print STDERR "envstore: store file is insecure (writable by group/others)\n";
-		exit 1;
-	}
-	return 1;
-}
-
-sub load_store {
-	if (check_store) {
-		%store = %{retrieve($store_file) || {}};
-	}
-	return;
-}
-
-sub save_store {
-	umask(0077);
-	nstore(\%store, $store_file);
-	return;
-}
-
-sub get_keyvalue {
-	my ($key, $value) = @_;
-	if (not defined($value)) {
-		if (exists($ENV{$key})) {
-			$value = $ENV{$key};
-		}
-		else {
-			print STDERR "No such parameter: $key (perhaps you forgot to export it?)\n";
-			exit(1);
-		}
-	}
-	return($key, $value);
-}
-
-if (
-	not defined $action
-	or ($action ~~ ['save', 'rm'] and not defined $arg)
-) {
-	usage;
-}
-load_store;
-
-given ($action) {
-	when ('save') {
-		my ($key, $value) = get_keyvalue($arg, $arg2);
-		$store{$key} = $value;
-		save_store;
-	}
-	when ('eval') {
-		while (my ($key, $value) = each(%store)) {
-			$value =~ s/'/'"'"'/g;
-			print "export $key='$value'\n";
-		}
-	}
-	when (['show', 'list']) {
-		while (my ($key, $value) = each(%store)) {
-			printf("%-15s = %s\n", $key, $value);
-		}
-	}
-	when ('rm') {
-		delete($store{$arg});
-		save_store;
-	}
-	when ('clear') {
-		unlink($store_file);
-	}
-	default {
-		usage;
-	}
-}
-__END__
-
-=head1 NAME
-
-envstore - save and restore environment variables
-
-=head1 SYNOPSIS
-
-B<envstore> I<command> [ I<arguments> ]
-
-=head1 DESCRIPTION
-
-envstore can save and restore environment variables, thus transferring them
-between different shells.
-
-I<command> must be one of
-
-=over
-
-=item B<clear>
-
-Forget all stored variables
-
-=item B<eval>
-
-Produce shell code for evaluation, restoring all saved variables
-
-=item B<save> I<variable> [I<value>]
-
-Save I<variable> either with its current shell value or with I<value>
-
-=item B<show>
-
-List saved variables in better readable format
-
-=item B<rm> I<variable>
-
-Remove I<variable> from store
-
-=back
-
-=head1 ENVIRONMENT
-
-=over
-
-=item B<ENVSTORE_FILE>
-
-The file in which the environment parameters are stored. By default
-F</tmp/envstore-$UID>
-
-=back
-
-=head1 LIMITATIONS
-
-You should not store null bytes or similar extremely weird binary data. They
-might work fine, but there's a high chance that somewhere, something goes wrong
-and you start to lose bytes or get undefined behaviour.
-
-Also, since shells 'flatten' the input when using eval, newlines in variable
-values will be stored correctly, but silently dropped when loading the
-environment with eval.  You can work around that by doing
-C<< envstore eval E<gt> $tmpfile; source $tmpfile >> or (in zsh)
-C<< source E<lt>(envstore eval) >>.
-
-=head1 AUTHOR
-
-B<envstore> was written by Daniel Friesel E<lt>derf@derf.homelinux.orgE<gt>
-
-Original idea and script by Maximilian Gass E<lt>mxey@ghosthacking.netE<gt>
-- 
cgit v1.2.3