Mercurial > hgrepos > hgweb.cgi > s4

comparison y4-funcs.sh @ 8:3db7524d3dea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add default images
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 20 Jul 2015 11:30:39 +0900
parents 7ccd9c2eb97e
children 3565d93c2fb1
comparison
equal deleted inserted replaced
7:67a1bb482ce1 8:3db7524d3dea
4 myname=`basename ${SCRIPT_NAME:-$0}` 4 myname=`basename ${SCRIPT_NAME:-$0}`
5 mydir=`dirname ${SCRIPT_FILENAME:-$0}` 5 mydir=`dirname ${SCRIPT_FILENAME:-$0}`
6 myargs="$@" 6 myargs="$@"
7 #bindir=`(cd $mydir/bin; pwd)` 7 #bindir=`(cd $mydir/bin; pwd)`
8 # :$bindir 8 # :$bindir
9 PATH=/usr/local/sqlite3/bin:/usr/local/vim7/bin:/usr/local/ImageMagick/bin:$PATH 9 PATH=/usr/local/sqlite3/bin:/usr/local/vim7/bin:/usr/iekei/ImageMagick/bin:/usr/local/ImageMagick/bin:$PATH
10 tmpdir=${TMPDIR:-tmp} 10 tmpdir=${TMPDIR:-tmp}
11 dbdir=${DBDIR:-db} 11 dbdir=${DBDIR:-db}
12 tmpfiles="" 12 tmpfiles=""
13 db=${DB:-$dbdir/cgi.sq3} 13 db=${DB:-$dbdir/cgi.sq3}
14 admin=wwwadmin@gentei.org 14 admin=wwwadmin@gentei.org
515 case $type in 515 case $type in
516 file:*) 516 file:*)
517 #file=$td/$val 517 #file=$td/$val
518 file=$td/`query "select val from $cond $slice;"` 518 file=$td/`query "select val from $cond $slice;"`
519 ####tmp [ -s $file -a -s $td/$fn.rowid ] && continue 519 ####tmp [ -s $file -a -s $td/$fn.rowid ] && continue
520 sq $db<<EOF | xxd -r -p > $file 520 sq $db<<EOF | unhexize > $file
521 .output $td/$fn.rowid 521 .output $td/$fn.rowid
522 select rowid from $cond $slice; 522 select rowid from $cond $slice;
523 .output $td/$fn 523 .output $td/$fn
524 select val from $cond $slice; 524 select val from $cond $slice;
525 .output $file.content-type 525 .output $file.content-type
557 | while read fn; do 557 | while read fn; do
558 file=$td/$fn 558 file=$td/$fn
559 if [ ! -s $file ]; then 559 if [ ! -s $file ]; then
560 ## sq $db "select quote(bin) from $cond and val=\"$fn\"" \ 560 ## sq $db "select quote(bin) from $cond and val=\"$fn\"" \
561 query "select quote(bin) from $cond and val=\"$fn\";" \ 561 query "select quote(bin) from $cond and val=\"$fn\";" \
562 | xxd -r -p > $file 562 | unhexize > $file
563 echo ${type#file:} > $file.content-type 563 echo ${type#file:} > $file.content-type
564 # err TTTTTTTTTTTTTTTT: $type 564 # err TTTTTTTTTTTTTTTT: $type
565 case $type in 565 case $type in
566 *:[Ii]mage*) mogrify -geometry $thumbxy $file ;; 566 *:[Ii]mage*) mogrify -geometry $thumbxy $file ;;
567 *:[Aa]pplication*) 567 *:[Aa]pplication*)
629 hexize() { 629 hexize() {
630 if [ -z "$hexize" ]; then 630 if [ -z "$hexize" ]; then
631 if type xxd >/dev/null 2>&1; then 631 if type xxd >/dev/null 2>&1; then
632 hexize="xxd -p" 632 hexize="xxd -p"
633 else 633 else
634 hexize="hexdump -ve '1/1 \"%.2x\"'" 634 hexize_hd() {
635 hexdump -ve '1/1 "%.2x"'
636 }
637 hexize="hexize_hd"
635 fi 638 fi
636 fi 639 fi
637 cat $1 | $hexize | tr -d '\n' 640 cat $1 | $hexize | tr -d '\n'
641 }
642 unhexize() {
643 if [ -z "$unhex" ]; then
644 if type xxd >/dev/null 2>&1; then
645 unhex="xxd -p -r"
646 elif type perl >/dev/null 2>&1; then
647 cat >$tmpd/unhex.pl<<EOF
648 s/([0-9a-f]{2})/print chr hex \$1/gie
649 EOF
650 # Perl refuses -e in setuid circumstances, which can be absurdly
651 # avoided by creating scripts in a file where its parent directory is
652 # world writable...:)
653 unhex="perl -n $tmpd/unhex.pl"
654 fi
655 fi
656 cat $1 | $unhex
657 # cat $1 | tee /tmp/uh.in| $unhex | tee /tmp/uh.out
638 } 658 }
639 percenthex() { 659 percenthex() {
640 hexize $1 | sed 's/\(..\)/%\1/g' 660 hexize $1 | sed 's/\(..\)/%\1/g'
641 } 661 }
642 enascii() { 662 enascii() {
1398 par2table() ( 1418 par2table() (
1399 # copy current parameters of par into destination table 1419 # copy current parameters of par into destination table
1400 # $1=definition-file 1420 # $1=definition-file
1401 # Using $user and $session 1421 # Using $user and $session
1402 rowid=`getpar rowid` 1422 rowid=`getpar rowid`
1423 err ...........rowid=$rowid
1403 if [ ! -e $1 ]; then 1424 if [ ! -e $1 ]; then
1404 echo "<p>テーブル定義ファイルが見付かりません</p>" 1425 echo "<p>テーブル定義ファイルが見付かりません</p>"
1405 exit 1 1426 exit 1
1406 fi 1427 fi
1407 tbl=${1%.def} 1428 tbl=${1%.def}
1783 <form action="${GF_ACTION:-$myname}" method="POST" enctype="multipart/form-data"> 1804 <form action="${GF_ACTION:-$myname}" method="POST" enctype="multipart/form-data">
1784 ${rowid:+$rm} 1805 ${rowid:+$rm}
1785 <table class="b $2"> 1806 <table class="b $2">
1786 $forms 1807 $forms
1787 </table>$hiddens 1808 </table>$hiddens
1788 ${rowid:+<input type=\"hidden\" name=\"rowid\" value=\"$rowid\">} 1809 ${rowid:+<input type="hidden" name="rowid" value="$rowid">}
1789 EOF 1810 EOF
1790 if [ -z $GF_VIEWONLY ]; then 1811 if [ -z $GF_VIEWONLY ]; then
1791 cat<<EOF 1812 cat<<EOF
1792 <input type="submit" name="sub" value="OK"> 1813 <input type="submit" name="sub" value="OK">
1793 <input type="reset" name="res" value="Reset"> 1814 <input type="reset" name="res" value="Reset">

yatex.org