Index: theme.ph =================================================================== RCS file: /home/hosting/h14m.org/cvsroot/hns-perl/public_html/diary/japanese/theme.ph,v retrieving revision 1.64 retrieving revision 1.73 diff -u -b -r1.64 -r1.73 --- theme.ph 2001/03/24 05:04:53 1.64 +++ theme.ph 2002/01/26 07:19:22 1.73 @@ -1,6 +1,6 @@ ################################################################ # japanese theme -# $Id: theme.ph,v 1.64 2001/03/24 05:04:53 kenji Exp $ +# $Id: theme.ph,v 1.73 2002/01/26 07:19:22 kenji Exp $ ################################################################ # User variable @@ -18,6 +18,7 @@ $Templates{'KITAKU'} = " 帰宅時間:%value"; $Templates{'WALK'} = " 散歩:%value"; $Templates{'RUN'} = " ジョギング:%value"; +$Templates{'YOTEI'} = "

%value

"; ################################################################ # Mark @@ -60,7 +61,7 @@ $DOCTYPE = qq(\n); #$Head = undef; -$Head = qq( +$Head{dynamic} = qq( ); +$Head{static} = qq(\n) . $Head{dynamic}; #$BodyVal = undef; ##$BodyVal = "bgcolor=#ffffcc"; @@ -122,18 +124,24 @@ package HNS::Calendar::Table; @WeekString = ('日', '月', '火', '水', '木', '金', '土'); $TableBorder = 0; -$NextTemplate = qq(来月); -$PrevTemplate = qq(先月); -$ThisTemplate = qq(%year年%month月); -$DayCurrentTemplate = qq(%day); -$DayNonCurrentTemplate = qq(%day); +$NextTemplate{dynamic} = qq(来月); +$PrevTemplate{dynamic} = qq(先月); +$ThisTemplate{dynamic} = qq(%year年%month月); +$NextTemplate{static} = qq(来月); +$PrevTemplate{static} = qq(先月); +$ThisTemplate{static} = qq(%year年%month月); +$DayCurrentTemplate = qq(%calendar_day); +$DayNonCurrentTemplate = qq(%calendar_day); package HNS::Calendar::NoTable; -$NextTemplate = qq(>>); -$PrevTemplate = qq(<<); -$ThisTemplate = qq(%year/%month); -$DayCurrentTemplate = qq(%day); -$DayNonCurrentTemplate = qq(%day); +$NextTemplate{dynamic} = qq(>>); +$PrevTemplate{dynamic} = qq(<<); +$ThisTemplate{dynamic} = qq(%year/%month); +$NextTemplate{static} = qq(>>); +$PrevTemplate{static} = qq(<<); +$ThisTemplate{static} = qq(%year/%month); +$DayCurrentTemplate = qq(%calendar_day); +$DayNonCurrentTemplate = qq(%calendar_day); ################################################################ # DateSelect @@ -173,7 +181,7 @@ ); -$Templates{Table}->{head_style} = qq( +$Templates{Table}->{head_style}->{dynamic} = qq( %pim
@@ -194,6 +202,13 @@
); +$Templates{Table}->{head_style}->{static} = qq( +%pim +
+%calendar +
+); + $Templates{Table}->{foot_style} = "\n
\n%category_list"; $Templates{Table}->{head_recent_style} = $Templates{Table}->{head_style}; @@ -255,7 +270,7 @@ $VersionMessages{'Public'} = q(
hns - 日記自動生成システム - Version %public
); -$VersionMessages{'NonPublic'} = qq(
+$VersionMessages{'NonPublic'}->{dynamic} = qq(
注意： 今現在使用されているこの日記自動生成システムは @@ -265,6 +280,14 @@
); +$VersionMessages{'NonPublic'}->{static} = qq(
+
+注意： +この日記は日記自動生成システム Version %current で生成されました。
+公開されている日記自動生成システムは Version %public です。 +
+); + ################################################################ # Template # usable parameter (%[A-Za-z0-9_]) is: @@ -276,6 +299,14 @@ # %new, %sub, %fn : counter of NEW, SUB, FN # %mark : for GRP mark, if not in GRP the same as %new +package HNS::Diary::Template; +$BaseTemplate{dynamic} = "$HNS::System::MyDiaryURI?%year%month%abc"; +#$BaseTemplate{dynamic} = "$HNS::System::MyDiaryURI?%year%month%day"; # 1日分のみ +$BaseTemplate{static} = "./%year%month.html"; # 静的生成 +$HrefTemplate{dynamic} = "%base&to=%name#%name"; +#$HrefTemplate{dynamic} = "%base#%name"; # to= を付けない +$HrefTemplate{static} = "%base?to=%name#%name"; # 静的生成 + package HNS::Diary; ################ # diary limited parameter: @@ -286,51 +317,72 @@ # value of user-variable VARNAME. @WeekString = ('日', '月', '火', '水', '木', '金', '土'); -$Head = qq( -

%year年%month月%day日(%week) +$Head{dynamic} = qq( +

%year年%month月%day日(%week) [n年日記]

); +$Head{static} = qq( +

%year年%month月%day日(%week)

+); $UserVar = qq(
%user{TENKI}%user{BASHO}%user{TAIJU}%user{TAION}%user{SUIMIN}%user{BGM} - %user{HOSU}%user{HON}%user{KITAKU} + %user{HOSU}%user{HON}%user{KITAKU}%user{WALK}%user{RUN}%user{YOTEI}
); +# Schedule as User Val +$YoteiVal = "
  • %value
    • "; +$YoteiHead = "予定\n"; + $Foot = qq(
    \n); +package HNS::Hnf::Command::ConvUrl; +$HrefTemplate = "%base#%name"; +$Template{mydiary} = "%href"; + +$Template{ISBN} = "http://www.bk1.co.jp/cgi-bin/srch/srch_result_book.cgi?idx=3&isbn=%param"; +#$Template{ISBN} = "http://www.isize.com/book/cgi-bin/isbn.cgi?isbn=%param"; +#$Template{ISBN} = "http://www.eshopping.ne.jp/bks.svl?CID=BKS504&access_method=isbn_cd&input_data=%param"; +#$Template{ISBN} = "http://www1.honyasan.co.jp/washo/book.cfm?PRODUCT_CD=%param"; + +$Template{CD} = "http://www.hmv.co.jp/search/title.asp?category=CATALOGUENO&keyword=%param"; +#$Template{CD} = "http://www.towerrecords.co.jp/tower/towercdj.nsf/SearchProductID/%param"; + +$Template{"hns-dev"} = sub { sprintf("http://www.h14m.org/ml/hns-dev/msg%05d.html", $_[0] - 1) }; +$Template{"hns-users"} = sub { sprintf("http://www.h14m.org/ml/hns-users/msg%05d.html", $_[0] - 1) }; + package HNS::Hnf::Command::CAT; -$Template = qq([%var]); -$ImgTemplate = qq(%img); +$Template{dynamic} = qq([%var]); +$ImgTemplate{dynamic} = qq(%img); +$Template{static} = qq([%var]); +$ImgTemplate{static} = qq(%img); package HNS::Hnf::Command::NEW; $Template = qq( -

    #%mark +

    #%mark %cat %content

    \n); -$EndTemplate = "
    \n"; +$EndTemplate = "%bbslink\n"; package HNS::Hnf::Command::LNEW; $Template = qq( -

    #%mark +

    #%mark %cat %content

    \n); -$EndTemplate = "
    \n"; +$EndTemplate = "%bbslink\n"; package HNS::Hnf::Command::RLNEW; $Template = qq( -

    #%mark +

    #%mark %cat %content

    \n); -$EndTemplate = "
    \n"; +$EndTemplate = "%bbslink\n"; package HNS::Hnf::Command::SUB; $Template = qq( -

    ＠ +

    ＠ %content:

    ); @@ -338,8 +390,7 @@ package HNS::Hnf::Command::LSUB; $Template = qq( -

    ＠ +

    ＠ %content:

    ); @@ -348,8 +399,7 @@ package HNS::Hnf::Command::RLSUB; $Template = qq( -

    ＠ +

    ＠ %content:

    ); @@ -433,15 +483,46 @@ package HNS::Hnf::Command::FN; $Template = - qq(*%fn\n); + qq(*%fn\n); $HeaderTemplate = qq(
    \n); $FooterTemplate = qq(
    \n); $ContentTemplate = qq( -*%fn: %content
    +*%fn: %content
    ); + +package HNS::Tools::Title; +$CatTemplate{dynamic} = + qq(

    %img%var

    \n); +$CatLinkTemplate{dynamic} = + qq([%var]); +$CatTemplate{static} = + qq(

    %img%var

    \n); +$CatLinkTemplate{static} = + qq(%var); +$HeadTitle = qq($HNS::System::Title Title List\n); +$Header = qq(

    $HNS::System::Title Title List

    \n); +$BacktoDiary = qq(
    Back to Diary
    \n); + +package HNS::Tools::Title::Hnf; +$BaseTemplate{dynamic} = "$HNS::System::MyDiaryURI?%year%month%abc"; +$BaseTemplate{static} = "./%year%month.html"; + +package HNS::Tools::HeadLine; +$Max = $HNS::System::DefaultMax * 3; +$HeadTitle = qq($HNS::System::Title HeadLine\n); +$Header = ""; +$BacktoDiary = ""; +$BaseTemplate{dynamic} = "$HNS::System::MyDiaryURI?%year%month%abc"; +$BaseTemplate{static} = "./%year%month.html"; +$RecentBaseTemplate{dynamic} = "$HNS::System::MyDiaryURI"; +$RecentBaseTemplate{static} = "./recent.html"; +$DayTemplate = qq(%year年%month月%day日); + +package HNS::Tools::HeadLine::New; +$Template = qq(・%content); + ################################################################ 1;