# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1437539122 -32400
# Node ID 77e2aeb2d7ad5fd02dd6abc9e2e5f2c9995541bb
# Parent  54dba4c5e61d3df0fee664de9deabf297ca2629b
autolink by  "href=..."

diff -r 54dba4c5e61d -r 77e2aeb2d7ad s4-blog.sh
--- a/s4-blog.sh	Wed Jul 22 13:14:06 2015 +0900
+++ b/s4-blog.sh	Wed Jul 22 13:25:22 2015 +0900
@@ -119,7 +119,7 @@
 # LEFT JOIN (select name,val as gecos from user_s where key='gecos') b
 # on a.author=b.name where blogid='$id'";`
   arts=`query "select rowid,id,author from $at where blogid='$id';"`
-err  arts="[$arts]"
+# err  arts="[$arts]"
   number=0
   hrefhome0="<a href=\"?home"
   for a in $arts; do
@@ -128,7 +128,7 @@
     # name=''	# Get gecos??
     td=$(echo $tmpd/`echo $a|md5`)
     val=`getvalbyid article image $arid $td`
-err val="[$val]" and td as follows:
+# err val="[$val]" and td as follows:
     
     if true; then
       if [ -n "$val" ]; then
@@ -139,7 +139,7 @@
 		       #data=`percenthex $td/$fn`
 		       #ct=`cat $td/$fn.content-type`
 		       ri=`cat $td/$fn.rowid`
-err fn=$fn ct=$ct ri=$ri; ls -lF $td/ 1>&3
+### err fn=$fn ct=$ct ri=$ri; ls -lF $td/ 1>&3
 		       #case $ct in
 		#	 [Ii]mage*) anch="<img src=\"data:$ct,$data\">$fn" ;;
 		#	 *) anch=$fn ;;
@@ -164,6 +164,7 @@
 	      -e 's|,\[/a\],|</a>|' \
 	      -e 's/,n,/<br>/g' -e "s|,i,|$imgs|" \
 	      -e "s|<TR>\(<TD>\)|<TR id=\"$aid\">\1|" \
+	      -e "s|^href=\([-A-Za-z0-9,.:/~_%#&+?]*\)|<a &>\1</a>|g" \
 	      -e "s|\(<TR.*>\)\(<TD>\),e,|\1\2$link|"
 select
   coalesce((select ",e," from article where id='$aid' and author='$user'),"")