Rev 10132 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10132 | Rev 13460 | ||
---|---|---|---|
Line -... | Line 1... | ||
- | 1 | !! putCSV is at very early draft state. Do not use it yet (WIP). |
|
1 | 2 | ||
2 | !if $wims_class=$empty |
3 | !if $wims_class=$empty |
3 | error=unauthorized |
4 | error=unauthorized (no class defined) |
4 | !exit |
5 | !exit |
5 | !endif |
6 | !endif |
6 | 7 | ||
7 | t=!exec ftype $wims_home/$wims_sesdir/user-deposit |
8 | t=!exec ftype $wims_home/$wims_sesdir/user-deposit |
8 | !if $t=$empty |
9 | !if $t=$empty |
9 | error=empty |
10 | error=empty |
10 | !exit |
11 | !exit |
11 | !endif |
12 | !endif |
12 | !if $t=binary |
13 | !if $t=binary |
13 | error=binary |
14 | error=binary |
14 | !exit |
15 | !exit |
15 | !endif |
16 | !endif |
16 | 17 | ||
17 | !sh cd $wims_home/$wims_sesdir\ |
18 | !sh cd $wims_home/$wims_sesdir\ |
18 | grep . user-deposit | awk '{print ":"$$0}' | tr ' "' ', ' >user_deposit\ |
19 | grep . user-deposit | awk '{print ":"$$0}' | tr ' "' ', ' >user_deposit\ |
19 | rm -f user-deposit >/dev/null |
20 | rm -f user-deposit >/dev/null |