summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/envify2
-rwxr-xr-xbin/envstore180
2 files changed, 1 insertions, 181 deletions
diff --git a/bin/envify b/bin/envify
index da9c178..7e15ab8 100755
--- a/bin/envify
+++ b/bin/envify
@@ -1,3 +1,3 @@
#!/bin/sh
-eval `envstore eval`
+eval $(envstore eval)
exec $*
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>