Add "rem" Perl script.

This commit is contained in:
David F. Skoll
2007-08-30 17:33:26 -04:00
parent c656a1a169
commit 3ba39b6efe
5 changed files with 3058 additions and 2315 deletions
Executable
+23
View File
@@ -0,0 +1,23 @@
#!/usr/bin/perl
eval 'exec perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
use strict;
use warnings;
my $reminder_file = $ENV{'DOTREMINDERS'} || $ENV{'HOME'} . '/.reminders';
my @cmd;
my $thing;
push(@cmd, 'remind');
while ($thing = shift(@ARGV)) {
last unless ($thing =~ /^-/);
push(@cmd, $thing);
}
push(@cmd, $reminder_file);
push(@cmd, $thing) if (defined($thing) && ($thing ne ''));
push(@cmd, @ARGV);
exec(@cmd);