ref: bd5bce727abff8a02a61685f6ee2a199f875557e
dir: /lib/core/
fn delete_post{
a_dir=$barf_root/$"barf_dir/src/$a_id
if(test -d $a_dir){
rm -rf $a_dir &&
{echo ',x/^'$a_id'\/.*\n/d'; echo w; echo q} | sam -d $barf_root/$"barf_dir/tags >[2]/dev/null
}
post_redirect $base_url^$barf_base_uri
}
fn display_footer{
if(test -f $barf_root/$"barf_dir/_werc/barf/footer)
cat $barf_root/$"barf_dir/_werc/barf/footer
if not if(test -f $barf_root/_werc/barf/footer)
cat $barf_root/_werc/barf/footer
if not
cat apps/barf/barf/footer
}
fn display_header{
if(test -f $barf_root/$"barf_dir/_werc/barf/header)
cat $barf_root/$"barf_dir/_werc/barf/header
if not if(test -f $barf_root/_werc/barf/header)
cat $barf_root/_werc/barf/header
if not
cat apps/barf/barf/header
}
fn display_login{
echo '<div id="login">
<form method="post" action="/">
<input type="hidden" name="a_func" value="login">
username: <input type="text" name="user_name"><br>
password: <input type="password" name="user_password"><br>
<input name="s" type="submit" value="login">
</form>
</div>'
}
fn display_prevnext{
if(test $stop -gt `{echo 1+^$posts_per_page | bc}){
nprev=`{echo $start^-1-^$posts_per_page | bc}
prev='<span>
<a href="'$base_url^$barf_base_uri'?tags='$"tags'&start='$"nprev'">prev</a> |
</span>'
}
if(test $#posts -gt $posts_per_page){
nnext=`{echo $stop^+1 | bc}
next='<span>
<a href="'$base_url^$barf_base_uri'?tags='$"tags'&start='$"nnext'">next</a>
</span>'
}
echo '<div id="page_list">
'$"prev'
'$"next'
</div>'
}
fn display_sidebar{
if(test -f $barf_root/$"barf_dir/_werc/barf/sidebar)
cat $barf_root/$"barf_dir/_werc/barf/sidebar
if not if(test -f $barf_root/_werc/barf/sidebar)
cat $barf_root/_werc/barf/sidebar
if not
cat apps/barf/barf/sidebar
}
fn dsrc{
low=`{ls -p $barf_root/$"barf_dir/src | sort -n | sed 1q}
high=$a_id
if(~ $#low 1 && ~ $#high 1){
cd $barf_root/$"barf_dir/src && rm -rf `{seq $low $high} &&
{
for(i in `{seq $low $high})
echo ',x/^'$i'\/.*\n/d'
echo w
echo w
echo q
} | sam -d $barf_root/$"barf_dir/tags >[2]/dev/null
}
post_redirect $base_url^$barf_base_uri
}
fn edit_form{
if(~ $#a_id 0)
name=add
if not{
name=update
a_dir=$barf_root/$"barf_dir/src/$a_id
for(x in $barf_items){
if(~ $x img)
a_img=`{ls -p $a_dir/img | sed 1q}
if(~ $x tags)
a_tags=`{ls -p $a_dir/tags}
if not
$x=`{cat $a_dir/$x}
}
}
echo '<div id="list">
<form action="/" method="post" name="edit" id="button">
<input type="hidden" name="fake" value="fake">
<input type="text" name="url" style="display: none;">
<input type="hidden" name="a_func" value="edit_post">'
if(~ $name update)
echo '<input type="hidden" name="a_id" value="'$"a_id'">'
for(x in $barf_items){
if(~ $x body){
echo '<div id="edit_body">' \
'body:<br>' \
'<textarea name="a_body">'
if(~ $name update)
cat $a_dir/body
echo '</textarea></div>'
}
if not if(~ $x img){
echo '<div id="edit_img">' \
'image:<br>' \
'<input name="a_img" type="text" value="'$"a_img'" id="edit"> ' \
'download: <input name="a_download" type="checkbox" value="1">' \
'</div>'
}
if not if(~ $x tags){
echo '<div id="edit_tags">' \
'tags: (space separated list of tags)<br>' \
'<input name="a_tags" type="text" value="'$"a_tags'" id="edit">' \
'</div>'
}
if not{
echo '<div id="edit_'$"x'">' \
$"x':<br>' \
'<input name="a_'$"x'" type="text" value="'$"$x'" id="edit">' \
'</div>'
}
}
echo '<div id="edit_submit">' \
'<input type="submit" name="'$name'" value="'$name'">' \
'</div>
</form>
</div>'
}
fn edit_post{
if(~ $#a_id 0){
a_id=`{echo `{ls -p $barf_root/$"barf_dir/src | sort -n | tail -1}^+1 | bc}
if(~ $#a_id 0)
a_id=1
while(test -d $barf_root/$"barf_dir/src/$a_id)
a_id=`{echo $a_id^+1 | bc}
}
a_dir=$barf_root/$"barf_dir^src/$a_id
mkdir -p $a_dir/img $a_dir/tags
rm -f $a_dir/tags/*
for(x in $barf_items){
if(~ $x date){
if(! ~ $#a_date 0)
echo $"a_date >$a_dir/date
if not
date >$a_dir/date
}
if not if(~ $x tags){
if(! ~ $#a_tags 0){
a_tags=`{echo $"a_tags | sed 's/[^A-Za-z0-9_\- ]//g'}
ifs=' '{a_tags=`{echo -n $a_tags}}
{
t=1
while(test $t -le $#a_tags){
>$a_dir/tags/$a_tags($t)
t=`{echo $t^+1 | bc}
}
}
for(i in $a_tags)
echo $a_id'/tags/'$i >>$barf_root/$"barf_dir/tags
}
}
if not if(! ~ $x img tags){
item='a_'$"x
if(! ~ $$item ''){
>$a_dir/$x
echo $$item >$a_dir/$x
}
}
}
if(~ $a_download 1){
switch($barf_type){
case image
rm -f $a_dir/img/*
img=$a_dir/img/^`{date -n}^.^`{echo $"a_img |
sed 's/^.*\.(gif|GIF)$/gif/g;
s/^.*\.(jpg|jpeg|JPG|JPEG)$/jpg/g;
s/^.*\.(png|PNG)$/png/g;
s/^.*\.(tif|TIF|tiff|TIFF)$/tif/g'
}
thumb=$a_dir/img/small.^`{basename $img | sed 's/\..*$//g'}^.png
if(test -f /boot/factotum){
@{
rfork n
if(test -f /rc/bin/hget)
webfs
hget $"a_img >$img
#magick/convert $img -resize 500x600 $thumb
switch($img){
case *.bmp
cmd=bmp
case *.gif
cmd=gif
case *.ico
cmd=ico
case *.jpg
cmd=jpg
case *.png
cmd=png
case *.tif
cmd=tif
case *.tga
cmd=tga
}
$cmd -9et <$img | resample -x 500 | topng >$thumb
}
}
if not{
curl -s -o $"a_img >$img
convert $img -resize 500x600 $thumb
}
case url
if(test -f /boot/factotum){
@{
rfork n
if(test -f /rc/bin/hget)
webfs
hget $"a_link | htmlfmt | fmt >$a_dir/body
}
}
if not
curl -s $"a_link | htmlfmt | fmt >$a_dir/body
}
}
if(! ~ $gp 1)
post_redirect $base_url^$barf_base_uri
}
fn get_post_list{
if(~ $id [0-9]*)
posts=$id
if not{
posts=`{
if(~ $show_ascending 1)
sort=(sort -n)
if not
sort=(sort -nr)
if(~ $tags all)
ls -p $barf_root/$"barf_dir/src |
grep -e '^[0-9]*$' |
eval $sort |
sed -n $start^,^$stop^p # awk 'NR=='$start',NR=='$stop' {print;}'
if not
grep -e '^.*\/'$tags'$' $barf_root/$"barf_dir/tags |
awk -F '/' '{print $1;}' |
eval $sort |
uniq |
sed -n $start^,^$stop^p
}
if(! ~ $posts [0-9]*)
posts=()
}
}
fn get_start{
if(~ $#start 0)
start=1
}
fn get_stop{
if(~ $#stop 0)
stop=`{echo $start^+^$posts_per_page | bc}
}
fn get_tags{
if(~ $#tags 0)
tags=all
}
fn load_get_args{
if(~ $REQUEST_METHOD GET && ~ $#get_args 0 && ~ $REQUEST_URI *'='*){
ifs='&' {
a=`{echo $"REQUEST_URI | sed 's/(^\/|#.*$)//g'}
for(pair in $a){
ifs='=' { pair=`{echo -n $pair} }
n='get_arg_'^`{echo $pair(1) | urldecode | tr -cd 'a-zA-Z0-9_'}
get_args=( $get_args $n )
ifs=() { $n=`{echo -n $pair(2) | urldecode | tr -d '
'} }
}
}
pair=()
}
}
fn parse_get_args{
if(! ~ $#get_arg_a_func 0)
a_func=$get_arg_a_func
if(! ~ $#get_arg_a_id 0)
a_id=$get_arg_a_id
if(! ~ $#get_arg_id 0)
id=$get_arg_id
if(! ~ $#get_arg_start 0)
start=$get_arg_start
if(! ~ $#get_arg_stop 0)
stop=$get_arg_stop
if(! ~ $#get_arg_reply 0)
reply=$get_arg_reply
if(! ~ $#get_arg_tags 0)
tags=$get_arg_tags
}
fn parse_post_args{
for(x in $barf_items){
a='a_'$"x
p='post_arg_'$"a
$a=$$p
}
if(! ~ $#post_arg_a_download 0)
a_download=$post_arg_a_download
if(! ~ $#post_arg_a_func 0)
a_func=$post_arg_a_func
if(! ~ $#post_arg_fake 0)
fake=$post_arg_fake
if(! ~ $#post_arg_a_id 0)
a_id=$post_arg_a_id
if(! ~ $#post_arg_url 0)
url=$post_arg_url
}
fn print_edit{
edit='<a href="'$base_url^$barf_base_uri'?a_func=edit_form&a_id='$"a_id'">edit</a>'
delete='<a href="'$base_url^$barf_base_uri'?a_func=delete_post&a_id='$"a_id'" onclick="return confirm(''are you sure you want to delete?'');">delete</a>'
dsrc='<a href="'$base_url^$barf_base_uri'?a_func=dsrc&a_id='$"a_id'" onclick="return confirm(''are you sure you want to dsrc?'');">dsrc</a>'
echo $"edit' | '$"delete' | '$"dsrc
}
fn print_id{
echo '<span id="post_id"><a href="/?id='$"a_id'">No.'$"a_id'</a></span>'
}
fn print_img{
a_img=`{ls -p $a_dir/img/[0-9]*}
a_thumb=`{ls -p $a_dir/img/small*}
if(! ~ $#a_img 0)
if(~ $#a_thumb 0)
a_thumb=$a_img
echo '<a href="'$base_url^$barf_base_uri'src/'$a_id'/img/'$a_img'" target="_b"><img src="'$base_url^$barf_base_uri'src/'$a_id'/img/'$a_thumb'" border="0"></a>'
}
fn print_tags{
a_tags=`{ls -p $a_dir/tags}
a_tags=`{for(t in $a_tags) echo '<a href="'$base_url^$barf_base_uri'?tags='$t'">'$t'</a>, '}
a_tags=`{echo $a_tags | awk '{print substr($0, 1, length($0) -1)}'}
echo '<span id="post_tags">'$"a_tags'</span>'
}
fn print_title{
a_title=`{cat $a_dir/title}
if(! ~ $#a_title 0){
if(~ $barf_type log url)
echo '<a href="'`{cat $a_dir/link}'">'$"a_title'</a>'
if not
echo '<a href="'$base_url^$barf_base_uri'?id='$"a_id'">'$"a_title'</a>'
}
}
fn redirect_bots{
if(! ~ $fake fake || ! ~ $url '')
post_redirect http://google.com
}
fn urldecode {
awk '
BEGIN {
hextab ["0"] = 0; hextab ["8"] = 8;
hextab ["1"] = 1; hextab ["9"] = 9;
hextab ["2"] = 2; hextab ["A"] = hextab ["a"] = 10
hextab ["3"] = 3; hextab ["B"] = hextab ["b"] = 11;
hextab ["4"] = 4; hextab ["C"] = hextab ["c"] = 12;
hextab ["5"] = 5; hextab ["D"] = hextab ["d"] = 13;
hextab ["6"] = 6; hextab ["E"] = hextab ["e"] = 14;
hextab ["7"] = 7; hextab ["F"] = hextab ["f"] = 15;
}
{
decoded = ""
i = 1
len = length ($0)
while ( i <= len ) {
c = substr ($0, i, 1)
if ( c == "%" ) {
if ( i+2 <= len ) {
c1 = substr ($0, i+1, 1)
c2 = substr ($0, i+2, 1)
if ( hextab [c1] == "" || hextab [c2] == "" ) {
print "WARNING: invalid hex encoding: %" c1 c2 | "cat >&2"
} else {
code = 0 + hextab [c1] * 16 + hextab [c2] + 0
c = sprintf ("%c", code)
i = i + 2
}
} else {
print "WARNING: invalid % encoding: " substr ($0, i, len - i)
}
} else if ( c == "+" ) {
c = " "
}
decoded = decoded c
++i
}
printf "%s", decoded
}
'
}