| 1 |
diff -uNr diary.old/index.cgi diary/index.cgi |
| 2 |
--- diary.old/index.cgi Tue Mar 6 19:43:46 2001 |
| 3 |
+++ diary/index.cgi Tue Mar 6 16:59:29 2001 |
| 4 |
@@ -36,6 +36,8 @@ |
| 5 |
use HNS::AccessControl; |
| 6 |
use HNS::Cache; |
| 7 |
|
| 8 |
+use Board; |
| 9 |
+ |
| 10 |
require './config.ph'; |
| 11 |
|
| 12 |
BEGIN { |
| 13 |
@@ -126,7 +128,10 @@ |
| 14 |
################################################################ |
| 15 |
# auto cache clear |
| 16 |
my $cache = new HNS::Cache; |
| 17 |
-$cache->AutoClear; |
| 18 |
+my $dirty = $cache->AutoClear; |
| 19 |
+if ($dirty) { |
| 20 |
+ Board::read_bbsdata(); |
| 21 |
+} |
| 22 |
|
| 23 |
################################################################ |
| 24 |
my $col = new HNS::Collection; |
| 25 |
diff -uNr diary.old/lib/Board.pm diary/lib/Board.pm |
| 26 |
diff -uNr diary.old/lib/HNS/Cache.pm diary/lib/HNS/Cache.pm |
| 27 |
--- diary.old/lib/HNS/Cache.pm Tue Mar 6 19:43:46 2001 |
| 28 |
+++ diary/lib/HNS/Cache.pm Tue Mar 6 16:58:34 2001 |
| 29 |
@@ -96,21 +96,26 @@ |
| 30 |
my $rlink_lm = (stat("$HNS::System::DiaryDir/conf/rlink.txt"))[9]; |
| 31 |
my $theme_lm = (stat("$HNS::System::Theme/theme.ph"))[9]; |
| 32 |
my $cat_lm = (stat("$HNS::CategoryList::CatDir/cat.txt"))[9]; |
| 33 |
+ my $bbsdata_lm = (stat("$Board::BBSData"))[9]; |
| 34 |
my $alias_log = "$HNS::System::DiaryDir/log/LM/alias.txt"; |
| 35 |
my $config_log = "$HNS::System::DiaryDir/log/LM/config.ph"; |
| 36 |
my $rlink_log = "$HNS::System::DiaryDir/log/LM/rlink.txt"; |
| 37 |
my $theme_log = "$HNS::System::DiaryDir/log/LM/theme.ph"; |
| 38 |
my $cat_log = "$HNS::System::DiaryDir/log/LM/cat.txt"; |
| 39 |
+ my $bbsdata_log = "$HNS::System::DiaryDir/log/LM/bbs.txt"; |
| 40 |
clear ("$alias_log") unless (-f $alias_log); |
| 41 |
clear ("$config_log") unless (-f $config_log); |
| 42 |
clear ("$rlink_log") unless (-f $rlink_log); |
| 43 |
clear ("$theme_log") unless (-f $theme_log); |
| 44 |
clear ("$cat_log") unless (-f $cat_log); |
| 45 |
+ clear ("$bbsdata_log") unless (-f $bbsdata_log); |
| 46 |
my $alias_lm_log = (stat("$alias_log"))[9]; |
| 47 |
my $config_lm_log = (stat("$config_log"))[9]; |
| 48 |
my $rlink_lm_log = (stat("$rlink_log"))[9]; |
| 49 |
my $theme_lm_log = (stat("$theme_log"))[9]; |
| 50 |
my $cat_lm_log = (stat("$cat_log"))[9]; |
| 51 |
+ my $bbsdata_lm_log = (stat("$bbsdata_log"))[9]; |
| 52 |
+ |
| 53 |
if ($alias_lm != $alias_lm_log) { |
| 54 |
$dirty = 1; |
| 55 |
utime($alias_lm, $alias_lm, $alias_log); |
| 56 |
@@ -131,11 +136,18 @@ |
| 57 |
$dirty = 1; |
| 58 |
utime($cat_lm, $cat_lm, $cat_log); |
| 59 |
} |
| 60 |
+ if ($bbsdata_lm != $bbsdata_lm_log) { |
| 61 |
+ $dirty = 1; |
| 62 |
+ utime($bbsdata_lm, $bbsdata_lm, $bbsdata_log); |
| 63 |
+ } |
| 64 |
+ |
| 65 |
if ($dirty) { |
| 66 |
my $cache = new HNS::Cache; |
| 67 |
$self->Clear(1); |
| 68 |
} |
| 69 |
+ return $dirty; |
| 70 |
} |
| 71 |
+ return 1; |
| 72 |
} |
| 73 |
|
| 74 |
sub clear ($) { |
| 75 |
diff -uNr diary.old/lib/HNS/Hnf/TreeBuilder.pm diary/lib/HNS/Hnf/TreeBuilder.pm |
| 76 |
--- diary.old/lib/HNS/Hnf/TreeBuilder.pm Tue Mar 6 19:43:46 2001 |
| 77 |
+++ diary/lib/HNS/Hnf/TreeBuilder.pm Tue Mar 6 17:33:00 2001 |
| 78 |
@@ -229,7 +229,7 @@ |
| 79 |
my $code_params = q({year=>$year, month=>$month, day=>$day, |
| 80 |
high=>int($day/10), abc=>$abc, |
| 81 |
new=>$newCount, sub=>$subCount, p=>$pCount, fn=>$fnCount, |
| 82 |
- cat=>$cat, mark=>$newDisplay}); |
| 83 |
+ cat=>$cat, mark=>$newDisplay, bbslink=>Board::get_linkstr("$year$month$day$newCount")}); |
| 84 |
|
| 85 |
my $grp; |
| 86 |
# category presentation |