极湖

分 時 日 月 星期
43 21 * * *               21:43 执行
15 05 * * * 　　          05:15 执行
0 17 * * *                17:00 执行
0 17 * * 1                每周一的 17:00 执行
0,10 17 * * 0,2,3         每周日,周二,周三的 17:00和 17:10 执行
0-10 17 1 * *             毎月1日从 17:00到7:10 毎隔1分钟 执行
0 0 1,15 * 1              毎月1日和 15日和 一日的 0:00 执行
42 4 1 * * 　          　 毎月1日的 4:42分 执行
0 21 * * 1-6　　          周一到周六 21:00 执行
0,10,20,30,40,50 * * * *　每隔10分 执行
*/10 * * * * 　　　　　　 每隔10分 执行
* 1 * * *　　　　　　　　 从1:0到1:59 每隔1分钟 执行
0 1 * * *　　　　　　　　 1:00 执行
0 */1 * * *　　　　　　　 毎时0分 每隔1小时 执行
0 * * * *　　　　　　　　 毎时0分 每隔1小时 执行
2 8-20/3 * * *　　　　　　8:02,11:02,14:02,17:02,20:02 执行
30 5 1,15 * *　　　　　　 1日 和 15日的 5:30 执行

#!/bin/sh
#
# chkconfig: 3 65 65
# description: DLE auto start-stop script.
#
# Copyright (c) 2000-2002 The Apache Software Foundation.
# See license at the end of this file.
#
export LANG=ja_JP.eucJP

DLE_HOME=/opt/evdo/kd_dir/dle/3.1/dle
case "$1" in
    'start')
        # Start dle:
        cd $DLE_HOME/shell
        ./dle_od_start.sh
        ;;
    'stop')
        # Stop dle:
        cd $DLE_HOME/shell
        ./dle_od_stop.sh
        ;;
    'restart')
        # Restart dle:
        $0 stop
        $0 start
        ;;
    *)
        echo "Usage: dle {start|stop|restart}"
        exit 1
esac

#!/usr/bin/perl
use strict;

use vars qw($result_file);

$result_file = './ml_member_list.txt';

&main();

sub main()
{
if( -e $result_file ) {
unlink($result_file);
}

my $ml_root = '/home/somedir';

opendir(DIR, $ml_root) || die "Open dir $ml_root failed !";
my @all_ml = grep /^\.qmail.*$/, readdir DIR;
print $ml_root . ': '. scalar(@all_ml) . "\n";
for my $ml_name (@all_ml) {
write_file("$ml_name\n");
    open(FIN, "$ml_root/$ml_name") || die("Cannot open $ml_name\n");
while(<FIN>) {
write_file("\t$_");
}
close(FIN);
write_file("\n");
}
}

#-------------------------------------------------------------------
sub write_file($)
{
    my ($log_msg) = @_;

    open(FOUT, ">>$result_file") || die("Cannot open $result_file\n");
    print FOUT $log_msg;
    close(FOUT);
}

#!/usr/local/bin/perl
use strict;

use vars qw($log_file);

$log_file = './unsub_ml.'. &get_date() . '.log';

&main();

sub main()
{
if( -e $log_file ) {
unlink($log_file);
}

    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
    &write_log("---------- ". &get_time() . " Start delete member from mailling list ----------\n");

my @domain1_account = (
'domain1_user1',
'domain1_user2',
'domain1_user3',
'domain1_user4',
'domain1_user5',
);

my @domain2_account = (
'domain2_user1',
'domain2_user2',
);

my $ezmlm_unsub = '/usr/local/bin/ezmlm/ezmlm-unsub';
my $ml_root = '/var/qmail/alias';


opendir(DIR, $ml_root) || die "Open dir $ml_root failed !";
my @all_ml = grep !/^\..*$/, readdir DIR;

my $user_id = '';
my $mail_addr = '';
my $unsub_cmd = '';
for my $ml_name (@all_ml) {
next if ($ml_name eq 'Mailbox' || $ml_name eq 'ezmlmadmtools' );

for $user_id (@domain1_account){
$mail_addr = $user_id . '@mail.domain.1';
$unsub_cmd = "$ezmlm_unsub $ml_root/$ml_name $mail_addr";
write_log("$unsub_cmd\n");
system($unsub_cmd);
}

for $user_id (@domain2_account){
$mail_addr = $user_id . '@mail.domain.2';
$unsub_cmd = "$ezmlm_unsub $ml_root/$ml_name $mail_addr";
write_log("$unsub_cmd\n");
system($unsub_cmd);
}
}

    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
    &write_log("---------- ". &get_time() . " Etart delete member from mailling list----------\n");
}


#-------------------------------------------------------------------
sub get_date()
{
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
return sprintf("%04d%02d%02d", $year + 1900, $mon +1, $mday);
}

#-------------------------------------------------------------------
sub get_time()
{
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
return sprintf("%02d:%02d:%02d", $hour, $min, $sec);
}

#-------------------------------------------------------------------
sub write_log($)
{
    my ($log_msg) = @_;

    open(LOG, ">>$log_file") || die("Cannot open $log_file\n");
    print LOG $log_msg;
    close(LOG);
}