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


記事No: 3283
投稿日: 2008/03/21(Fri) 18:49:37
タイトルブログ風日記URL自動リンク
ID情報: nazoyaba
投稿者: zippo
URLhttp://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/;
>
> 以上
>

設置してみましたがオートリンクにはなりませんでした。何か僕の方法が間違っていると思いますが、KENTさんの掲示板のサブルーチンなどを駆使してして改造してみたいと思います。うしわかさんありがとうございました。


記事No: 3294
投稿日: 2008/03/25(Tue) 22:14:08
タイトルRe^3: ブログ風日記URL自動リンク
ID情報: x1312
投稿者: うしわか

> 設置してみましたがオートリンクにはなりませんでした。何か僕の方法が間違っていると思いますが、KENTさんの掲示板のサブルーチンなどを駆使してして改造してみたいと思います。うしわかさんありがとうございました。

うちでは普通に機能してますが・・・・(^_^;)。


記事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

訂正版を記述されたとおりにしたら、URLリンクすることができました。ありがとうございました。


[検索ページ]