UseModWiki소스수정/IncludeDay매크로

IncludeDay 매크로, IncludeDays 매크로 추가

• 사용법 - <includeday([페이지이름,] [+/-]숫자)>
  • 숫자는 오늘 날짜로부터의 간격을 의미한다. 0 은 오늘, 2 또는 +2 는 이틀 후, -3 은 사흘 전...
  • 페이지 이름이 없을 경우는 위에서 계산한 날짜에 해당되는 페이지를 include 한다.
  • 페이지 이름을 인자로 주면, "페이지이름/계산된날짜" 에 해당하는 페이지를 include 한다.
  • 페이지 이름이 올바르지 않은 문자열일 경우는 치환되지 않는다.
  • 예: 오늘이 2003년 9월 8일일 경우, includeday(일기,-3) 은 "일기/2003-09-05" 페이지를 include 하게 된다. 내일이 되면 이 매크로는 "일기/2003-09-06" 페이지를 include 할 것이다.

• 사용법 - <includedays([페이지이름,] [+/-]숫자, [+/-]숫자)>
  • 페이지 이름과 첫번째 숫자는 includeday 매크로와 동일하다
  • 세번째 인자인 숫자의 갯수만큼의 "존재하는" 페이지를 include 한다.
  • 세번째 인자의 부호가 "-" 이면 이전 날짜로, "+" 또는 부호가 없으면 이후 날짜로 이동하며 탐색한다.
  • 예를 들어 두 숫자가 0,-5 라면, "오늘부터 시작해서 과거로 거슬러가며 존재하는 날짜 페이지 5개를 각각 include" 하게 된다.
  • 세번째 인자의 숫자만큼의 페이지를 찾아내지 못했을 경우에도 시작 날짜를 중심으로 전후 100 일 이내의 페이지들만을 검사한다. (무한정 검색할 수는 없기 때문)
  • 만일 날짜 페이지 중에 "페이지는 존재하지만 내용은 아무것도 없는" 페이지의 경우는 "존재하는" 페이지로 간주한다.

• 부작용: 아직 모름
  • include 되는 대상 페이지 내에 또다시 include 문이 들어 있지 않도록 주의하라. 현재 테스트해 본 바로는 큰 문제는 없으나, 나중에라도 include 관련 루틴이 변경될 경우 무한루프에 빠질 가능성이 있다.

wiki.pl 수정

sub MacroIncludeSubst {
    my ($txt) = @_;

    $txt =~ s/<include\((.*)\)>/&MacroInclude($1)/gei;
    $txt =~ s/<includenotoc\((.*)\)>/&MacroInclude($1, "notoc")/gei;
### includeday 매크로
    $txt =~ s/<includeday\(([^,\n]+,)?([-+]?\d+)\)>/&MacroIncludeDay($1, $2)/gei;
### includedays 매크로
    $txt =~ s/<includedays\(([^,\n]+,)?([-+]?\d+),([-+]?\d+)\)>/&MacroIncludeDay($1, $2, $3)/gei;
    return $txt;
}

### 다음 함수를 통채로 추가
sub MacroIncludeDay {
    my ($mainpage, $day_offset, $num_days) = @_;
    my $page = "";
    my $temp;
    my $result = "";

    my ($sign, $num);
    if ($num_days =~ /([-+]?(\d+))/) {
        $num = $2;
        $sign = $1 / $num if ($num != 0);
    } else {
        $num = -1;
    }

    # main page 처리
    if ($mainpage ne "") {
        $temp = $mainpage;
        $temp =~ s/,$//;
        $temp = &RemoveLink($temp);
        $temp = &FreeToNormal($temp);
        if (&ValidId($temp) ne "") {
            return "<includeday($mainpage$day_offset)>";
        }
        $temp =~ s/\/.*$//;
        $mainpage = $temp . "/";
    }

    # 날짜의 변위 계산
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
    my $maximum_count = 100;
    while (($num != 0) && ($maximum_count > 0)) {
        $temp = $Now + ($day_offset * 86400);
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($temp+$TimeZoneOffset);

        $page = $mainpage . ($year + 1900) . "-";

        if ($mon + 1 < 10) {
            $page .= "0";
        }
        $page .= ($mon + 1) . "-";

        if ($mday < 10) {
            $page .= "0";
        }
        $page .= "$mday";

        $temp = &MacroInclude($page);
        if ($num == -1) {
            $result .= $temp;
            last;
        } else {
            if ($temp ne "") {
                $num--;
                $result .= $temp . "\n";
            }
            $day_offset += $sign;
        }
        $maximum_count--;
    }

    return $result;
}

Notes

    ...
    # 날짜의 변위 계산
    $temp = $Now + ($day_offset * 86400);
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($temp+$TimeZoneOffset);  # 끝에 +$TimeZoneOffset 추가
    ...