Yoshihisa Fukuhara
higef****@users*****
2006年 1月 25日 (水) 22:59:12 JST
Index: affelio/apps/diary/Diary.pm
diff -u affelio/apps/diary/Diary.pm:1.30 affelio/apps/diary/Diary.pm:1.31
--- affelio/apps/diary/Diary.pm:1.30 Wed Jan 25 11:30:51 2006
+++ affelio/apps/diary/Diary.pm Wed Jan 25 22:59:12 2006
@@ -900,6 +900,14 @@
return $str;
}
+sub autolink {
+ my ($self, $str) = @_;
+
+ $str =~ s/(https?|ftp)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/ig;
+
+ return $str;
+}
+
sub getall {
my ($self, $query) = @_;