mirror of
https://salsa.debian.org/dskoll/remind.git
synced 2026-04-21 00:32:54 +02:00
David F. Skoll
24 lines
445 B
Perl
Executable File
24 lines
445 B
Perl
Executable File
#!/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);
|
|
|
|
|