summaryrefslogtreecommitdiffstats
path: root/util/lunar-1,15run.pl
diff options
context:
space:
mode:
Diffstat (limited to 'util/lunar-1,15run.pl')
-rw-r--r--util/lunar-1,15run.pl11
1 files changed, 0 insertions, 11 deletions
diff --git a/util/lunar-1,15run.pl b/util/lunar-1,15run.pl
deleted file mode 100644
index d4cd2f20..00000000
--- a/util/lunar-1,15run.pl
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/perl
-use lib '/home/bbs/bin/';
-use LocalVars;
-# 每農曆初一, 十五就會跑一次 $ARGV[0]
-# 資料來源 http://tw.weathers.yahoo.com/
-open FH, "$LYNX -source http://tw.weathers.yahoo.com/ | grep '民國'|";
-$din = <FH>;
-close FH;
-
-($month, $day) = $din =~ /農曆 (.*?)月 (.*?)日/;
-system("@ARGV") if( $day eq '一' || $day eq '一十五' );