34 lines
1.3 KiB
Plaintext
Executable File
34 lines
1.3 KiB
Plaintext
Executable File
fn conf_enable_paste {
|
|
paste_url=$conf_wd
|
|
paste_dir=`{pwd}
|
|
conf_enable_app paste
|
|
}
|
|
|
|
fn paste_init {
|
|
if (~ $REQUEST_METHOD POST && ~ $post_arg_url url && ~ $req_path $paste_url ) { # incoming paste
|
|
now=`{ date -n }
|
|
cksum=`{ echo $"post_arg_paste | sum | awk '{ print $1 }' }
|
|
if (~ $cksum '1715a8eb' ) { # empty paste; discard
|
|
post_redirect $base_url^$paste_url
|
|
}
|
|
if not { # save and redirect
|
|
# TODO: stop using echo
|
|
echo $"post_arg_paste > $paste_dir^/^$now^.^$cksum
|
|
#cat<<EOF > $paste_dir^/^$now^.^$cksum
|
|
#$"post_arg_paste
|
|
#EOF
|
|
#post_redirect $base_url^$paste_url^$now^.^$cksum
|
|
echo 'Content-type: text/plain'; echo ''; exec echo $base_url^$paste_url^$now^.^$cksum
|
|
}
|
|
}
|
|
if not { # show a paste if there is one
|
|
if (test -r $werc_root/$local_path && ~ $QUERY_STRING raw ) {
|
|
echo 'Content-type: text/plain'; echo ''; exec cat $werc_root/$local_path
|
|
}
|
|
}
|
|
|
|
# if we haven't done anything by now, we don't care. we just exit and let
|
|
# werc handle it from here.
|
|
}
|
|
|