• スクリプトは自由に改変して頂いて結構ですが Script-coder は消さないでください。
  • サポートは一切お受け致しませんのであらかじめご了承ください。
  • 本スクリプトを導入したことによる損害等一切責任を持ちませんので各自の責任の元で行ってください。
  • 確認バージョン：SOLD OUT system ver.2002-07-28-j

(1) まずは、ダウンロードしてください。　⇒　myurl100.lzh

(2) 圧縮されているので解凍してください。

(3) seturl.cgi の行頭の Perl へのパスをサーバーにあわせて（必要に応じて）訂正してください。

(4) サーバーへアップロードしてください。パーミッションは次のようになります。

soldout/
    |
    |--- seturl.cgi [777]
    |
    |--- image/
    |
    |---myurl.png [644]

(5) 既存の /inc/inc-html-other.cgi のファイル中に次のように複数行を追加。

※追加場所は違うところでもかまいません。

# $Id: inc-html-other.cgi,v 1.5 2002/07/17 13:55:53 mu Exp $

RequireFile(’inc-html-ownerinfo.cgi’);

$disp.=”●各種手続き<HR>”;

# ↓↓↓ここから↓↓↓
$myurl = “http://”;
$myurl = $DT->{user}->{myurl} if $DT->{user}->{myurl};
$disp.=<<STR;
<FORM ACTION=”seturl.cgi” $METHOD>
$USERPASSFORM
My HomePage リンク(費用\\100000)
<INPUT TYPE=TEXT NAME=url SIZE=50 VALUE=”$myurl”>
<INPUT TYPE=SUBMIT VALUE=”登録”><br>
<font size=’2′>
MyURL Script-coder
<A HREF=’http://www.hero.ne.jp/~db/’ target=’_blank’>Go</A>
at <A HREF=’http://soldout.herodb.com/’ target=’_blank’>陰陽道</A>
</font>
</FORM>
<HR>
STR
# ↑↑↑ここまで↑↑↑

$disp.=<<STR;
<FORM ACTION=”user.cgi” $METHOD>
$USERPASSFORM
コメント
<INPUT TYPE=TEXT NAME=cmt SIZE=50 VALUE=”$DT->{comment}”>
<INPUT TYPE=SUBMIT VALUE=”変更する”>
</FORM>
STR
#以降省略・・・

(6) 既存の /inc/inc-html-ranking.cgi のファイル中に1行を追加(場所が分かりずらいのでじっくり探してください)

#途中省略・・・

    $disp.=$TR;
    $disp.=$TDNW.$tdh_rk.”<b>”.($idx+1).”</b>”.$rankupdown.”<br>”;
    $disp.= $tdh_pt.$DT->{point};
    $disp.=$TD.$tdh_nm;
    $disp.= “<a href=\”shop.cgi?ds=$DT->{id}&$USERPASSURL\”>”
        if !$GUEST_USER;
    $disp.= GetTagImgGuild($DT->{guild}).$itempro.$job
        .$DT->{shopname}.”[".$DT->{name}."]“;
    $disp.= “</a>” if !$GUEST_USER;
    $disp.=GetTopCountImage($DT->{rankingcount}+0)
        if $DT->{rankingcount};

# ↓↓↓ここから↓↓↓
    $disp.=”<A HREF=\”".$DT->{user}->{myurl}.”\” target=\”_blank\”><IMG SRC=\”".$IMAGE_URL.”/myurl.png\” border=\”0\” alt=\”私のホームページです\”></A>” if $DT->{user}->{myurl};
# ↑↑↑ここまで↑↑↑

    $disp.=”<BR>”;
    $disp.= $tdh_pp.GetRankMessage($DT->{rank});
    $disp.=$TDNW.$tdh_ts.”\\”.$DT->{saletoday};
    $disp.=$TDNW.$tdh_mo.GetMoneyMessage($DT->{money}).”<BR>”;
    $disp.= $tdh_ys.”\\”.$DT->{saleyesterday};
    $disp.=$TDNW.$tdh_cs.”\\”.($DT->{costyesterday}+0).”<br>”;
    $disp.= $tdh_tx.”\\”.($DT->{taxyesterday}+0);

#途中省略・・・

(7)「商品データ生成/更新」は必要ありません。

(8) 以上です。動作確認してください。