| 記事No | ： 13994 |
| 投稿日 | ： 2015/05/09(Sat) 13:38:16 |
| タイトル | ： Web Schedulerの毎年同じ内容を表示させる改造 |
| ID情報 | ： farm |
| 投稿者 | ： aiam |
| URL | ： http://hn-2.sakura.ne.jp/ |
KENT様、皆様お邪魔します。
現在Web Scheduler/WEBスケジューラーを設置し利用しております。
利用していて一つ感じたのですが誕生日など毎年同じ日にくるものを設定/反映する改造は難しいものでしょうか？
難しければ一つ一つ毎年入力していきますのでご回答頂ければ幸いです。
aiam
(動作の確認はできている&非公開サイトにて利用しているため白紙URLで申し訳ありません/タイトルをわかりやすいものに変更させて頂きました。本質問は回答頂いた通りに解決済みです。ありがとうございます。)
| 記事No | ： 13996 |
| 投稿日 | ： 2015/05/10(Sun) 23:33:57 |
| タイトル | ： Re: Web Schedulerの改造 |
| ID情報 | ： hirayama |
| 投稿者 | ： hirayama |
| URL | ： http://shade-search.com/sts/fsw/wiki.cgi |
> 利用していて一つ感じたのですが誕生日など毎年同じ日にくるものを設定/反映する改造は難しいものでしょうか？
これはできれば、記念日をWEB上で追加、編集できるようになるといいと思いますが、そうなるとかなり
あちこち変更する必要がありそうですね。
以下はとりあえず最低限の変更で済ませる方法です。
schedule.cgiの sub list_calen 内だけを編集します。
# 祝日定義
my %hol = holiday::holi_mon($in{y},$in{m});
の下あたり、120行目辺りに
# 記念日定義
my %memorial = ('0101'=>'〇〇の誕生日','0303'=>'□□の誕生日');
my %mem;
foreach (keys %memorial) {
if (substr($_,0,2) == $in{m}) {
$mem{substr($_,2,2)} = $memorial{$_};
}
}
を追加し、
その下の
# 祝日チェック
my $css_week;
if (defined($hol{$d})) {
$css_week = "color:$cf{wkcol}[7];";
$act{$i} = qq|<span style="$css_week;font-size:smaller">$hol{$d}</span><br />$act{$i}|;
$tim{$i} = " <br />$tim{$i}";
} else {
$css_week = "color:$cf{wkcol}[$w];";
}
の下に
if (defined($mem{$d})) {
$act{$i} .= qq|<span style="color:blue;font-size:smaller">$mem{$d}</span><br />|;
}
を追加します。
記念日の追加、修正は直接 %memorial を変更することになります。
| 記事No | ： 13998 |
| 投稿日 | ： 2015/05/12(Tue) 11:09:24 |
| タイトル | ： Re^2: Web Schedulerの改造 |
| ID情報 | ： farm |
| 投稿者 | ： aiam |
| URL | ： http://hn-2.sakura.ne.jp/ |
hirayama様
初めまして。丁寧にありがとうございました！
無事に書き換えを行うことができ、動作しました。
色々なサイトや書籍を参考にしながら今後は自力解決できるように努力していきます。
この度はお世話になりました。本当にありがとうございます！
aiam