#!/bin/rc # # Webm is a file management tool via Pegasus. # Typical usage is # */index.html text/html 1 /bin/webm -r /~alice $target # in /usr/alice/web/etc/handler # root=/ if(~ $1 -r){ root=$2/ # top page shift 2 } TITLE=webm # # general function definitions # fn xcp { switch($code){ case no cp $1 $2 case * tcs -f $code $1 | tr -d '\xd' >$2 } } fn list { ls -l |\ hfmt '%s %s %s %10s %s %2s %7s %H\n' 1 4 5 6 7 8 9 10 10 } # # do_xxx # # ------ do_index ------ fn do_index { echo $prolog echo '

Directory Contents

'
	pwd
	echo '

Mouse click a file name to get.

'
	ls -l |\
	hfmt '%s %s %s %10s %s %2s %s %H\n' 1 4 5 6 7 8 9 10 10
	echo '

' w=`{pwd} if(! ~ $w /doc) echo 'Return to parent directory
' echo ' Make a directory
Delete files and/or directories
Edit a file
Send a file
' echo $epilog } # ------ do_mkdir ------ fn do_mkdir { echo $prolog echo '

Make a directory

'
	list
	echo '

Return to index
' echo $epilog } # ------ do_mkdir_action ------ fn do_mkdir_action { qsparse dirname=`{cat /env/QS_dirname} mkdir $dirname exec webm index.html } # ------ do_send ------ fn do_send { echo $prolog echo '

File transmission

'
	list
	echo '

' echo ' Return to index
' echo $epilog } # ------ do_send_action ------ fn do_send_action { echo $prolog echo '

Result Information

We have received your file.
The result:

'
	
	formparse  -o /tmp
	if(~ $status ?*) echo $status
	code=`{cat /tmp/code/0}
	name=`{cat /tmp/name/0}
	file=`{ls -p /tmp/file/*}
	if(! ~ $name ?*)
		name=$file
	
	t=`{cleanname $name}
	if(~ $t */*)
		echo $t': Illegal name. Not accepted'
	if not
		xcp /tmp/file/$file $t
	ls -l
	echo '

Return to index
'$epilog } # ------ do_edit ------ fn do_edit { filename='' if(test -e /env/QS_filename) filename=`{cat /env/QS_filename} filename=$"filename echo ' Edit ' if(~ $filename ?*) hfmt -a '\n' $filename if not echo '' echo ' ' } # ------ do_edit_topframe ------ fn do_edit_topframe { echo $prolog echo '

Files to Edit

Click the file to edit.

'
	ls -l |\
	hfmt '%s %s %s %10s %s %2s %7s %H\n' 1 4 5 6 7 8 9 10 10
	echo '

Return to Index' echo $epilog } # ------ do_edit_botframe ------ fn do_edit_botframe { echo $prolog echo '

Edit

Return to Index' echo $epilog } # ------ do_edit_post ------ fn do_edit_post { echo $prolog echo '

Result Information

'
	formparse -o /tmp; err=0
	if(~ $status ?*) echo $status
	filename=`{cat /tmp/filename/0}
	filename=$"filename   # guard for a filename with space
	action=`{cat /tmp/action/0}
	if(! ~ $filename ?*) {
		echo 'no filename'
		exit
	}
	if(~ $filename */* ){
		echo 'wrong file name'
		exit
	}
	if(test -d $filename){
		echo 'we cannot edit directory'
		exit
	}
	if(~ $action save) cp /tmp/text/0 $filename
	if(~ $status ?*) echo $status
	if not {echo done}
	echo '

' echo 'Renew the list
' echo 'Return to Index
' echo $epilog } # ------ do_delete ------ fn do_delete { echo $prolog echo '

Delete fiiles

check marks to delete

'
	ls -l |\
	hfmt '%s %s %s %10s %s %2s %7s %H\n' 1 4 5 6 7 8 9 10 10
	echo ' 	'
	echo '

' echo 'Return to Index' echo $epilog } # ------ do_delete_action ------ fn do_delete_action { echo $prolog echo '

Result Information

' echo '

'
	formparse -o/tmp
	#ls -l /env/QS_*
	#ls -l /tmp/file
	for(f in /tmp/file/*){
		if(! ~ $f /tmp/file/clone){
			n=`{cat $f}
			switch($n){
			case */*
				echo $n': Illegal name. Not accepted'
			case ?*
				rm -rf $n
			case *
				echo 'No name. Not accepted'
			}
		}
	}
	list
	echo '

' echo 'Return to Index' echo $epilog } # # main # prolog=' '$TITLE'

'$TITLE'

' epilog='

Return to top page
' a=$"QS_ switch($a){ case mkdir do_mkdir case mkdir_action do_mkdir_action case send do_send case send_action do_send_action case edit do_edit case edit_topframe do_edit_topframe case edit_botframe do_edit_botframe case edit_post do_edit_post case delete do_delete case delete_action do_delete_action case * if(~ $request */) do_index if not{ if(test -e $1) cat $1 if not do_index } }