Develop and Download Open Source Software

Browse CVS Repository

Contents of /h14m/hns-bbs/hnsbbs-hns.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download) (as text)
Fri Dec 14 12:22:33 2001 UTC (22 years, 4 months ago) by togawa
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -1 lines
File MIME type: text/x-diff
Sync to hns-current.

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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26