1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
#!/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 Pod::Usage;
use Storable;
my $store_file = "/tmp/envstore-$>";
my %store;
my $action = shift;
my $arg = shift;
my $arg2 = shift;
my ($key, $value);
sub usage {
pod2usage(
-message => 'Syntax error',
-exitval => 1,
-verbose => 99,
-sections => 'SYNOPSIS|DESCRIPTION',
-output => \*STDERR,
);
}
sub check_store {
my ($mode, $uid);
unless (-e $store_file) {
return(0);
}
($mode, $uid) = (stat($store_file))[2,4];
if ($uid != $<) {
print STDERR "envstore: store file not owned by us\n";
exit(1);
}
$mode &= 0x00077;
if ($mode > 0) {
print STDERR "envstore: store file writable by group/others\n";
exit(1);
}
return(1);
}
sub load_store {
return unless check_store;
%store = %{retrieve($store_file) || {}};
}
sub save_store {
umask(0077);
store(\%store, $store_file);
}
sub get_keyvalue {
my ($key, $value) = @_;
unless (defined($value)) {
if (exists($ENV{$key})) {
$value = $ENV{$key};
} else {
print STDERR "No such parameter: $key\n";
exit(1);
}
}
return($key, $value);
}
usage unless defined($action);
load_store;
if ($action eq 'save') {
usage unless defined($arg);
($key, $value) = get_keyvalue($arg, $arg2);
$store{$key} = $value;
save_store;
} elsif ($action eq 'eval') {
while (($key, $value) = each(%store)) {
$value =~ s/'/'"'"'/g;
print "export $key='$value'\n";
}
} elsif ($action eq 'show' or $action eq 'list') {
while (($key, $value) = each(%store)) {
printf("%-15s = %s\n", $key, $value);
}
} elsif ($action eq 'rm') {
usage unless defined($arg);
delete($store{$arg});
save_store;
} elsif ($action eq 'clear') {
unlink($store_file);
} else {
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 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>
|
