KENT-WEB サポートコーナー 過去ログ [ 0379 ]

記事No： 3868
投稿日： 2008/06/15(Sun) 17:10:38
タイトル： JoyfulNote　v1.96からv2.73の移行
ID情報： underbar
投稿者： hag
URL： http://underbar.hacca.jp/joyful/joyful.cgi

はじめまして。
数年前よりJoyfulNote　v1.96を使用させていただいてきたのですが、
スパム防止の為、v2.73に移行したいと思っております。

素人の為、よく解らないのですが、現行ログを引き継いだ形で移行しようと
試行錯誤しながら何とか表示させることはできました。

ですが、現行ログの古ログ（例．No.4355の記事）のurlがうまくリンクされません。新規ログに関しては、正常のようです。
また、過去ログの古ログ（No.2056記事以下）はv1.96の時のdatをそのままcgiファイルにして使用した為なのか、urlは正常なのに表示はうまくいかず、
更に、新しくできた（No.2062記事以降）のurlはリンクがうまくいっていません。
どちらもurlの前に、掲示板のパスが入ってしまっています。

どこをどう変更すればいいのか、よくわからなくて困っております。

申し訳ありませんが、教えていただけませんでしょうか。
どうぞよろしくお願いいたします。

*）
JoyfulNoteサンプルの2001年のKENT様の記事のurlも
urlの前に余計なパスが入っていますが、同様の状態です。

http://underbar.hacca.jp/joyful/joyful.cgi

記事No： 3869
投稿日： 2008/06/15(Sun) 21:14:15
タイトル： Re: JoyfulNote　v1.96からv2.73の移行
ID情報： fuyuki
投稿者： BAL
URL： http://f43.aaa.livedoor.jp/~sumure/

> はじめまして。
> 数年前よりJoyfulNote　v1.96を使用させていただいてきたのですが、
> スパム防止の為、v2.73に移行したいと思っております。
>
> 素人の為、よく解らないのですが、現行ログを引き継いだ形で移行しようと
> 試行錯誤しながら何とか表示させることはできました。
>
> ですが、現行ログの古ログ（例．No.4355の記事）のurlがうまくリンクされません。新規ログに関しては、正常のようです。
> また、過去ログの古ログ（No.2056記事以下）はv1.96の時のdatをそのままcgiファイルにして使用した為なのか、urlは正常なのに表示はうまくいかず、
> 更に、新しくできた（No.2062記事以降）のurlはリンクがうまくいっていません。
> どちらもurlの前に、掲示板のパスが入ってしまっています。
>
> どこをどう変更すればいいのか、よくわからなくて困っております。
>
> 申し訳ありませんが、教えていただけませんでしょうか。
> どうぞよろしくお願いいたします。
>
> *）
> JoyfulNoteサンプルの2001年のKENT様の記事のurlも
> urlの前に余計なパスが入っていますが、同様の状態です。
>
> http://underbar.hacca.jp/joyful/joyful.cgi


v1.96はアドレスのhttp://を省略してログに記録してる為v2.73では正常に表示されません。
以下の追加修正を行ってください。

尚、過去ログはv1.96とv2.73では互換性がありませんので表示がおかしくなります。

●joyful.cgi
#-------------------------------------------------
# 記事表示部
#-------------------------------------------------
-- 省略 --

# 表示
foreach (@view) {
# 親記事
print "<p><table width=\"90%\" cellpadding=\"5\" cellspacing=\"1\" border=\"1\">\n";
print "<tr><td bgcolor=\"$tbl_color\">\n";
print "<b style=\"color:$subcol\">$sub{$_}</b> ";
print "投稿者：<b>$nam{$_}</b> 投稿日：$dat{$_} ";
print "<span style=\"color:$subcol\">No.$_</span> ";
if ($url{$_}) {
if ($url{$_} !~ /http\:\/\//) { $url{$_} = "http://$url{$_}"; } ## ←★追加
print "<a href=\"$url{$_}\" target=\"_blank\">$img_home</a> ";
}

-- 省略 --

# レス記事
if (defined($res{$_})) {
print "<div style=\"margin-left:22px; margin-top:5px;\"><hr size=\"1\">\n";

foreach $res ( split(/,/, $res{$_}) ) {

print "<b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
if ($url{$res}) {
if ($url{$res} !~ /http\:\/\//) { $url{$res} = "http://$url{$res}"; } ## ←★追加
print "<a href=\"$url{$res}\" target=\"_blank\">$img_home</a>";



#-------------------------------------------------
# 返信フォーム
#-------------------------------------------------
-- 省略 --

print "<p><table bgcolor=\"$log_borcol\" width=\"90%\" cellpadding=\"5\" cellspacing=\"1\">\n";
print "<tr><td bgcolor=\"$tbl_color\">\n";
print "<b style=\"color:$subcol\">$sub{$resfm}</b> ";
print "投稿者：<b>$nam{$resfm}</b> 投稿日：$dat{$resfm} ";
print "<span style=\"color:$subcol\">No.$resfm</span> ";
if ($url{$resfm}) {
if ($url{$resfm} !~ /http\:\/\//) { $url{$resfm} = "http://$url{$resfm}"; } ## ←★追加
print "<a href=\"$url{$resfm}\" target=\"_blank\">$img_home</a>";
}

-- 省略 --

# レス記事
if (defined($res{$resfm})) {
print "<div style=\"margin-left:22px; margin-top:5px;\">";
foreach $res ( split(/,/, $res{$resfm}) ) {
print "<b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
if ($url{$res}) {
if ($url{$res} !~ /http\:\/\//) { $url{$res} = "http://$url{$res}"; } ## ←★追加
print "<a href=\"$url{$res}\" target=\"_blank\">$img_home</a>";
}


●pastlog.pl

if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
if ($url) {
if ($url !~ /http\:\/\//) {$url = "http://$url"; } ## ←★追加
$url = "&lt;<a href=\"$url\" target=\"_blank\">URL</a>&gt;"; }

記事No： 3872
投稿日： 2008/06/16(Mon) 12:17:31
タイトル： Re^2: JoyfulNote　v1.96からv2.73の移行
ID情報： underbar
投稿者： hag
URL： http://underbar.hacca.jp/joyful/joyful.cgi

> > はじめまして。
> > 数年前よりJoyfulNote　v1.96を使用させていただいてきたのですが、
> > スパム防止の為、v2.73に移行したいと思っております。
> >
> > 素人の為、よく解らないのですが、現行ログを引き継いだ形で移行しようと
> > 試行錯誤しながら何とか表示させることはできました。
> >
> > ですが、現行ログの古ログ（例．No.4355の記事）のurlがうまくリンクされません。新規ログに関しては、正常のようです。
> > また、過去ログの古ログ（No.2056記事以下）はv1.96の時のdatをそのままcgiファイルにして使用した為なのか、urlは正常なのに表示はうまくいかず、
> > 更に、新しくできた（No.2062記事以降）のurlはリンクがうまくいっていません。
> > どちらもurlの前に、掲示板のパスが入ってしまっています。
> >
> > どこをどう変更すればいいのか、よくわからなくて困っております。
> >
> > 申し訳ありませんが、教えていただけませんでしょうか。
> > どうぞよろしくお願いいたします。
> >
> > *）
> > JoyfulNoteサンプルの2001年のKENT様の記事のurlも
> > urlの前に余計なパスが入っていますが、同様の状態です。
> >
> > http://underbar.hacca.jp/joyful/joyful.cgi
>
>
> v1.96はアドレスのhttp://を省略してログに記録してる為v2.73では正常に表示されません。
> 以下の追加修正を行ってください。
>
> 尚、過去ログはv1.96とv2.73では互換性がありませんので表示がおかしくなります。
>
> ●joyful.cgi
> #-------------------------------------------------
> # 記事表示部
> #-------------------------------------------------
> -- 省略 --
>
> # 表示
> foreach (@view) {
> # 親記事
> print "<p><table width=\"90%\" cellpadding=\"5\" cellspacing=\"1\" border=\"1\">\n";
> print "<tr><td bgcolor=\"$tbl_color\">\n";
> print "<b style=\"color:$subcol\">$sub{$_}</b> ";
> print "投稿者：<b>$nam{$_}</b> 投稿日：$dat{$_} ";
> print "<span style=\"color:$subcol\">No.$_</span> ";
> if ($url{$_}) {
> if ($url{$_} !~ /http\:\/\//) { $url{$_} = "http://$url{$_}"; } ## ←★追加
> print "<a href=\"$url{$_}\" target=\"_blank\">$img_home</a> ";
> }
>
> -- 省略 --
>
> # レス記事
> if (defined($res{$_})) {
> print "<div style=\"margin-left:22px; margin-top:5px;\"><hr size=\"1\">\n";
>
> foreach $res ( split(/,/, $res{$_}) ) {
>
> print "<b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
> print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
> if ($url{$res}) {
> if ($url{$res} !~ /http\:\/\//) { $url{$res} = "http://$url{$res}"; } ## ←★追加
> print "<a href=\"$url{$res}\" target=\"_blank\">$img_home</a>";
>
>
>
> #-------------------------------------------------
> # 返信フォーム
> #-------------------------------------------------
> -- 省略 --
>
> print "<p><table bgcolor=\"$log_borcol\" width=\"90%\" cellpadding=\"5\" cellspacing=\"1\">\n";
> print "<tr><td bgcolor=\"$tbl_color\">\n";
> print "<b style=\"color:$subcol\">$sub{$resfm}</b> ";
> print "投稿者：<b>$nam{$resfm}</b> 投稿日：$dat{$resfm} ";
> print "<span style=\"color:$subcol\">No.$resfm</span> ";
> if ($url{$resfm}) {
> if ($url{$resfm} !~ /http\:\/\//) { $url{$resfm} = "http://$url{$resfm}"; } ## ←★追加
> print "<a href=\"$url{$resfm}\" target=\"_blank\">$img_home</a>";
> }
>
> -- 省略 --
>
> # レス記事
> if (defined($res{$resfm})) {
> print "<div style=\"margin-left:22px; margin-top:5px;\">";
> foreach $res ( split(/,/, $res{$resfm}) ) {
> print "<b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
> print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
> if ($url{$res}) {
> if ($url{$res} !~ /http\:\/\//) { $url{$res} = "http://$url{$res}"; } ## ←★追加
> print "<a href=\"$url{$res}\" target=\"_blank\">$img_home</a>";
> }
>
>
> ●pastlog.pl
>
> if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
> if ($url) {
> if ($url !~ /http\:\/\//) {$url = "http://$url"; } ## ←★追加
> $url = "&lt;<a href=\"$url\" target=\"_blank\">URL</a>&gt;"; }

ご回答ありがとうございました。
早速ご指摘いただいたところに追加修正しましたら
無事解決いたしました。
本当にありがとうございました。
助かりました。

[検索ページ]