UseModWiki소스수정/사용자정의CSS

사용자정의 CSS

## config.pl
## 아래의 변수 추가.
$UserCSS1 = '../wiki.css';                                              # 사용자 스타일시트 설정.
$UserCSS2 = '../jof.css';
$UserCSS3 = '../nosmoke.css';

## wiki.pl
use vars qw(@RcDays @HtmlPairs @HtmlSingle
....
## 변수추가
$UserCSS1 $UserCSS2 $UserCSS3 );
## 변수추가

sub GetHtmlHeader {
....
        ## 적절히 수정.
        if ($StyleSheet ne '') {
                if (!(($UserID eq "113") || ($UserID eq "112") || ($UserID eq "")) && ($UserData{'cssstyle'} == 0)) {
                        $html .= qq(<LINK REL="stylesheet" HREF="$UserCSS1">\n);
                } elsif ($UserData{'cssstyle'} == 1) {
                        $html .= qq(<LINK REL="stylesheet" HREF="$UserCSS2">\n);
                } elsif ($UserData{'cssstyle'} == 2) {
                        $html .= qq(<LINK REL="stylesheet" HREF="$UserCSS3">\n);
                } else {
                        $html .= qq(<LINK REL="stylesheet" HREF="$StyleSheet">\n);
                }
        }
        ## 적절히 수정.
....
}

sub DoEditPrefs {
....
        print '<br>', &GetFormCheck('linkrandom', 0,
                        T('Add "Random Page" link to link bar'));

        ## 사용자 CSS스타일 (적절히 수정.)
        print '<br>', T('CSS Style:'), ' ';
        %csss = (0=>T('PiWD Style'), 1=>T('Jof Style'),
                           2=>T('Nosmoke Style'));
        print $q->popup_menu(-name=>'p_cssstyle',
                         -values=>[0,1,2], -labels=>\%csss,
                         -default=>&GetParam("cssstyle", $UserData{'cssstyle'}));
        ## 사용자 CSS스타일(적절히 수정.)

        print '<br>', $q->submit(-name=>'Save', -value=>T('Save')), "\n";
        print "<hr>\n";
....
}

sub DoUpdatePrefs {
....
        &UpdatePrefNumber("editrows", 1, 1, 999);
        &UpdatePrefNumber("editcols", 1, 1, 999);
        ## CSS (적절히 수정)
        &UpdatePrefNumber("cssstyle", 1, 0, 2);
        ## CSS (적절히 수정)
        print T('Server time:'), ' ', &TimeToText($Now-$TimeZoneOffset), '<br>';
....
}

Notes

푸웃~ 구현은 둘째치고 전 이런 것의 필요성은 전혀 못 느끼고 있었는데.. 아이디어가 샘솟으시네요. ^_^ 이 패치는 제 홈페이지에는 적용할 생각이 없군요. 개인 홈페이지에 테마씩이나... NoSmoke 나 PalmWiki, 폐인월드 등에는 딱이겠습니다~ 근데 하루에 몇 시간이 달라 붙으시는 거예요? :-) 아니면 하루 30분이면 패치 하나 나온다..는 걸지도? ^_^

-- Raymundo 2003-2-12 10:32 pm

졸업을 앞두고 놀고있거든요. ^^; (퍼억)

-- Bab2 2003-2-12 11:00 pm

NoSmoke같은 경우는 로그인한 사용자가 자신이 원하는 CSS를 입력해서 볼 수 있습니다. 자기 홈페이지에 CSS를 올려놓고 그걸 사용해서 볼 수도 있죠. 사실 저도 그렇게 고쳐볼까 했으나 CSS 만들기가 구찮아서... -_-

-- 조프 2003-2-13 12:15 am

그래서 얻어와버렸습죠.. 'v'a 사실은 모인처럼 따로 입력폼도 두게 할려고 했는데 귀찮아서 ㅜㅡa

-- Bab2 2003-2-13 12:51 am

## 변경
#               if ($UserData{'cssstyle'} == 0) {
                if (!(($UserID eq "113") || ($UserID eq "112") || ($UserID eq "")) && ($UserData{'cssstyle'} == 0)) {
##