サイトã§è‡ªå‹•ç”Ÿæˆã•ã‚Œã¦ã„るファイル(軽ã„テã‚ストファイル)を指定時間ã«ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ—ã™ã‚‹ã€‚Perl ã® CGI 㧠sendmailを使ã£ã¦ã€ãƒ¡ãƒ¼ãƒ«ã«ãƒ•ã‚¡ã‚¤ãƒ«ã‚’添付ã•ã›ã¦è‡ªå‹•çš„ã«é€ã‚‰ã›ã‚‹ã€‚Cronを使ãˆãªã„å ´åˆã§ã€ã‚¢ã‚¯ã‚»ã‚¹ãŒå°‘ãªã„サイトã®å ´åˆã€‚
ウェブページã¸ã®ã‚¢ã‚¯ã‚»ã‚¹ã‚’トリガーã«ã—ã¦é€ã‚‹ã‚ˆã†ã«ã—ã¾ã™ã€‚
ã§ã™ã®ã§ã€ã‚ã¾ã‚Šã‚¢ã‚¯ã‚»ã‚¹ã®å¤šã„サイトã§ã¯ä½¿ãˆã¾ã›ã‚“。
ページãŒãƒãƒ¼ãƒ‰ã—ãŸã‚‰ã€CGIãŒå‹•ä½œã™ã‚‹ã‚ˆã†ã«ä»•æŽ›ã‘ã¾ã™ã€‚カウンタã¨åŒã˜ä»•çµ„ã¿ã§ã™ã€‚
ãƒãƒ¼ãƒ‰ãŒãƒˆãƒªã‚¬ãƒ¼ãªã®ã§å¤šå°‘ã®ãšã‚ŒãŒã‚ã‚Šã¾ã™ã€‚
ãŸã¨ãˆã°21時ã«ãªã£ãŸã‚‰é€ä¿¡ã™ã‚‹å ´åˆã€21時ã«ãªã£ãŸã‚‰21時ã®æ™‚間帯ã«ä¸€åº¦ã ã‘é€ä¿¡ã™ã‚‹ã€ã¨ã„ã†ä»•çµ„ã¿ã§ã™ã€‚
何度もé€ä¿¡ã—ãªã„ã§ä¸€å›žã ã‘é€ä¿¡ã•ã›ã¾ã™ã€‚
#21時ã«é€ä¿¡ã™ã‚‹ã«ã¯â€¦â€¦
#20時ã«ã‚¿ã‚¤ãƒžãƒ¼ã‚»ãƒƒãƒˆâ€¦â€¦
if ($hour == 20) {$timeflag = 1;}
if ($timeflag) {
#21時ã«ãªã£ãŸã‚‰é€ä¿¡
if ($hour == 21) {&sendfiler;
#タイマーを元ã«æˆ»ã—ã¦ãŠã
$timeflag = 0;
}
}
&sendfiler ã¯ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é€ä¿¡ã™ã‚‹ã‚µãƒ–ルーãƒãƒ³ã¨è€ƒãˆã¦ãã ã•ã„。
MIME::Base64::encodeを使ã£ã¦Encodingã‚’Base64ã«ã—ã¦é€ã‚Šã¾ã™ã€‚
ãƒãƒƒãƒˆã§ã‚‚方法ãŒãŸãã•ã‚“出ã¦ã¾ã™ã€‚
指定時間を増やã™ã“ã¨ã‚‚ã§ãã‚‹ã§ã—ょã†ã€‚
if ($hour =~ /10|16|22/) {$timeflag = 1;}
if ($timeflag) {
if ($hour =~ /11|17|23/) {&sendfiler;
$timeflag = 0;
}
}
ã‚‚ã£ã¨ç°¡å˜ãªæ–¹æ³•ãŒã‚ã‚‹ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“。ã”容赦。