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
|
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: message_delete.pl,v 1.1.2.3 2001/10/29 17:26:00 pudge Exp $
use strict;
use File::Spec::Functions;
use Slash::Utility;
my $me = 'message_delete.pl';
use vars qw( %task );
$task{$me}{timespec} = '7 6 * * *';
$task{$me}{timespec_panic_2} = ''; # if major panic, dailyStuff can wait
$task{$me}{code} = sub {
my($virtual_user, $constants, $slashdb, $user) = @_;
my $messages = getObject('Slash::Messages');
unless ($messages) {
slashdLog("$me: could not instantiate Slash::Messages object");
return;
}
$messages->deleteMessages();
messagedLog("$me end");
};
my $errsub = sub {
doLog('messaged', \@_);
};
*messagedLog = $errsub unless defined &messagedLog;
1;
|
