Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (10 sloc) 303 Bytes
#!/usr/bin/perl
use strict;
use warnings;
use CHI;
my $cache = CHI->new( driver => 'File', root_dir => '_cache' );
my $filename = "changedetection.account";
open my $F, $filename or die "Could not open file '$filename': $!";
chomp(my $email = <$F>);
my $key = "monitors:$email";
$cache->remove($key);