UseModWiki소스수정/Img매크로

img 매크로

• 필수 요구 사항:
• 선택 요구 사항:

• 사용법: <img(이미지경로,너비,폭[,캡션][,정렬방식])>
  • 이미지경로는 URL 또는 인터위키
  • 너비와 폭은 둘 다 0이면 원래 크기, 하나만 0이면 비율을 맞추어 설정됨
  • 자세한 사용법 및 예제는 UseModWiki소스수정/이미지매크로 를 보세요.

• 부작용:
  • 전혀 다른 테스트나 점검 없이 가져왔습니다. 조프님을 믿을 뿐~ :-)
  • 띄어쓰기를 하면 안 되기 때문에, 결과적으로 "이미지경로,너비,폭..." 등이 통채로 하나의 링크로 취급된다. 즉, Upload:그림.jpg 를 인자로 주었다 하더라도 Upload:그림.jpg,300,0 이란 링크로 저장이 된다는 얘기. 따라서 /UploadedFiles매크로에서 돋보기를 클릭해도 역링크로 검색이 되지 않는다는 매우 기분 나쁜 단점이 있다.

wiki.pl 수정

sub CommonMarkup {
    ...
        if ($useImage) {
            $_ = &EmoticonSubst($_);            # luke added
        }

### img macro from Jof
        s/\&__LT__;img\(([^,\n\s]*?)\)\&__GT__;/&MacroImgTag($1,0,0,'','')/gei;
        s/\&__LT__;img\(([^,\n\s]*?),(\d+?),(\d+?)\)\&__GT__;/&MacroImgTag($1,$2,$3,'','')/gei;
        s/\&__LT__;img\(([^,\n\s]*?),(\d+?),(\d+?),([^,\n]*?)\)\&__GT__;/&MacroImgTag($1,$2,$3,$4,'')/gei;
        s/\&__LT__;img\(([^,\n\s]*?),(\d+?),(\d+?),([^,\n]*?),([^,\n\s]*?)\)\&__GT__;/&MacroImgTag($1,$2,$3,$4,$5)/gei;
####

        s/\[$UrlPattern\]/&StoreBracketUrl($1, "")/geo;
    ...
}

### img from Jof
sub MacroImgTag {
    my ($url,$width,$height,$caption,$float) = @_;
    my ($s_width,$s_height,$s_tag,$s_divstyle,$s_caption,$return);

    $s_width    = " width=\"$width\"" if ( $width>0 );
    $s_height   = " height=\"$height\"" if ( $height>0 );
    $s_tag      = " title=\"$url\"";
    $s_divstyle = " style=\"float:$float;\"" if ($float ne '');
    $s_caption  = "<br><span class=\"imgcaption\">$caption</span>" if ($caption ne '');

    if ($url =~ /$InterLinkPattern/)
    {
        my $id = $url;
        my ($name, $site, $remotePage, $punct, $image);

        ($id, $punct) = &SplitUrlPunct($id);

        $name = $id;
        ($site, $remotePage) = split(/:/, $id, 2);
        $url = &GetSiteUrl($site);
        if ($url ne "")
        {
            $remotePage =~ s/&amp;/&/g;  # Unquote common URL HTML

            if ($url =~ /\|/) {
                ($url, $image) = split(/\|/, $url, 2);
            }
            $url .= $remotePage;
        }
    }

    if ($width > 0 or $height > 0)
    {
        $return     = "<a href=\"$url\"><img src=\"$url\" $s_width $s_height $s_tag border=\"1\" style=\"margin:5px;\"></a>";
    }
    else
    {
        $return     = "<img src=\"$url\" $s_tag border=\"1\" style=\"margin:5px;\">";
    }
    if (($caption ne '') or ($float ne ''))
    {
        $return = "<div align=\"center\" $s_divstyle>$return$s_caption</div>";
    }
    return &StoreRaw($return);
}

추가 업데이트 내역

사용자 의견

변명을 하자면 그게 애당초 제가 만든게 아니기 때문에~~~
어쩌면 좋을까요?

-- 조프 2004-3-13 2:09 am