| 記事No | ： 3283 |
| 投稿日 | ： 2008/03/21(Fri) 18:49:37 |
| タイトル | ： ブログ風日記URL自動リンク |
| ID情報 | ： nazoyaba |
| 投稿者 | ： zippo |
| URL | ： http://pasokonn.mad.buttobi.net/cgi-bin/blog/diary.cgi |
お久しぶりです。たびたび申し訳ないのですが、URLの自動リンクを追加したいと考えております。お分かりの方がいれば教えていただけませんでしょうか。よろしくお願いします。ちなみに、上記のリンクをクリックしてもいけないので、アドレスバーから行ってください。
| 記事No | ： 3290 |
| 投稿日 | ： 2008/03/25(Tue) 17:16:30 |
| タイトル | ： Re: ブログ風日記URL自動リンク |
| ID情報 | ： x1312 |
| 投稿者 | ： うしわか |
> お久しぶりです。たびたび申し訳ないのですが、URLの自動リンクを追加したいと考えております。お分かりの方がいれば教えていただけませんでしょうか。よろしくお願いします。ちなみに、上記のリンクをクリックしてもいけないので、アドレスバーから行ってください。
>
>
>
init.cgiの44行あたり
# 投稿受理最大サイズ (bytes)
# → 例 : 102400 = 100KB
$maxdata = 102400;
# URLの自動リンク (0=no 1=yes)##★追加
$autolink = 1;##★追加
diary.cgiの一番下に
#-----------------#
# 自動URLリンク #
#-----------------#
sub auto_link {
$_[0] =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;
}
を追加
さらに251行あたり
my $tmp = $loop;
$tmp =~ s/!main_ttl!/$ttl/;
$tmp =~ s/!main_msg!/$com1/;
$tmp =~ s/!main_date!/$y年$m月$d日 $tim/;
$tmp =~ s/!main_link!/$diarycgi?mode=entry&ym=$y$m&no=$no/;
$tmp =~ s/!main_com!/$diarycgi?try&ym=$y$m&no=$no#comment/;
$tmp =~ s/!res_cnt!/$res_cnt{$no}/;
# #URLオートLリンク###★追加
&auto_link($com1) if ($autolink);##★追加
253行あたり
if ($com2) {
#URLオートLリンク###★追加
&auto_link($com2) if ($autolink);##★追加
if ($mode eq "entry") {
$tmp =~ s/<!-- tsuduki -->(.*)<!-- tsuduki -->/<br>$com2/;
以上
| 記事No | ： 3293 |
| 投稿日 | ： 2008/03/25(Tue) 21:46:00 |
| タイトル | ： Re^2: ブログ風日記URL自動リンク |
| ID情報 | ： nazoyaba |
| 投稿者 | ： zippo |
> > お久しぶりです。たびたび申し訳ないのですが、URLの自動リンクを追加したいと考えております。お分かりの方がいれば教えていただけませんでしょうか。よろしくお願いします。ちなみに、上記のリンクをクリックしてもいけないので、アドレスバーから行ってください。
> >
> >
> >
> init.cgiの44行あたり
> # 投稿受理最大サイズ (bytes)
> # → 例 : 102400 = 100KB
> $maxdata = 102400;
>
> # URLの自動リンク (0=no 1=yes)##★追加
> $autolink = 1;##★追加
>
> diary.cgiの一番下に
> #-----------------#
> # 自動URLリンク #
> #-----------------#
> sub auto_link {
> $_[0] =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;
> }
>
> を追加
>
> さらに251行あたり
> my $tmp = $loop;
> $tmp =~ s/!main_ttl!/$ttl/;
> $tmp =~ s/!main_msg!/$com1/;
> $tmp =~ s/!main_date!/$y年$m月$d日 $tim/;
> $tmp =~ s/!main_link!/$diarycgi?mode=entry&ym=$y$m&no=$no/;
> $tmp =~ s/!main_com!/$diarycgi?try&ym=$y$m&no=$no#comment/;
> $tmp =~ s/!res_cnt!/$res_cnt{$no}/;
> # #URLオートLリンク###★追加
> &auto_link($com1) if ($autolink);##★追加
>
> 253行あたり
> if ($com2) {
> #URLオートLリンク###★追加
> &auto_link($com2) if ($autolink);##★追加
> if ($mode eq "entry") {
> $tmp =~ s/<!-- tsuduki -->(.*)<!-- tsuduki -->/<br>$com2/;
>
> 以上
>
設置してみましたがオートリンクにはなりませんでした。何か僕の方法が間違っていると思いますが、ＫＥＮＴさんの掲示板のサブルーチンなどを駆使してして改造してみたいと思います。うしわかさんありがとうございました。
| 記事No | ： 3294 |
| 投稿日 | ： 2008/03/25(Tue) 22:14:08 |
| タイトル | ： Re^3: ブログ風日記URL自動リンク |
| ID情報 | ： x1312 |
| 投稿者 | ： うしわか |
> 設置してみましたがオートリンクにはなりませんでした。何か僕の方法が間違っていると思いますが、ＫＥＮＴさんの掲示板のサブルーチンなどを駆使してして改造してみたいと思います。うしわかさんありがとうございました。
うちでは普通に機能してますが・・・・(^_^;)。
| 記事No | ： 3296 |
| 投稿日 | ： 2008/03/26(Wed) 08:20:34 |
| タイトル | ： Re^4: ブログ風日記URL自動リンク |
| ID情報 | ： x1312 |
| 投稿者 | ： うしわか |
すまん訂正m(_ _)m
my $tmp = $loop;
# #URLオートLリンク###★追加
&auto_link($com1) if ($autolink);##★追加
$tmp =~ s/!main_ttl!/$ttl/;
$tmp =~ s/!main_msg!/$com1/;
$tmp =~ s/!main_date!/$y年$m月$d日 $tim/;
$tmp =~ s/!main_link!/$diarycgi?mode=entry&ym=$y$m&no=$no/;
$tmp =~ s/!main_com!/$diarycgi?try&ym=$y$m&no=$no#comment/;
$tmp =~ s/!res_cnt!/$res_cnt{$no}/;
| 記事No | ： 3297 |
| 投稿日 | ： 2008/03/26(Wed) 10:05:29 |
| タイトル | ： Re^5: ブログ風日記URL自動リンク |
| ID情報 | ： nazoyaba |
| 投稿者 | ： zippo |
訂正版を記述されたとおりにしたら、ＵＲＬリンクすることができました。ありがとうございました。