bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add lock cleanup code.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-11-29 15:52:07 -05:00
parent 7a03e2220d
commit c51c26f280
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
calendar-export.plx
View file

@ -46,7 +46,21 @@ use File::Temp qw/:POSIX tempfile/;
use DateTime::TimeZone;
use Date::Manip;
use DateTime::Format::ICal;
use Date::ICal;
my($CONFIG_FILE) = (@ARGV);
if (@ARGV != 1) {
print STDERR "usage: $0 <CONFIG_FILE>\n";
exit 1;
}
###############################################################################
my $CALENDAR_LOCK_FILE = "$ENV{HOME}/.emacs-calendar-to-ics-lock";
my $LOCK_CLEANUP_CODE = sub {
return (unlink($CALENDAR_LOCK_FILE) != 1) ?
"Failed unlink of $CALENDAR_LOCK_FILE. Could cause trouble." :
"";
};
###############################################################################
{
my %messageHistory;