Subversion Repositories wimsdev

Rev

Rev 17533 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17533 Rev 18423
Line 2... Line 2...
2 
# directory.
 2 
# directory.
3 
# Format of input: multi-line.
 3 
# Format of input: multi-line.
4 
# Line 1: two words. Word 1: file name. Word 2: "append" or "new".
 4 
# Line 1: two words. Word 1: file name. Word 2: "append" or "new".
5 
# 	Word 2 defaults to "append".
 5 
# 	Word 2 defaults to "append".
6 
# Line 2 and up: content to write.
 6 
# Line 2 and up: content to write.
- 
 
 7 
!if obot isin $session
- 
 
 8 
  !exit
7 
 
 9 
!endif
8 
tgf_1=!line 1 of $wims_read_parm
 10 
tgf_1=!line 1 of $wims_read_parm
9 
tgf_c=!line 2 to -1 of $wims_read_parm
 11 
tgf_c=!line 2 to -1 of $wims_read_parm
10 
!distribute words $tgf_1 into tgf_w1, tgf_w2
 12 
!distribute words $tgf_1 into tgf_w1, tgf_w2
11 
tgf_w1=!replace internal getfile/ by $ in $tgf_w1
 13 
tgf_w1=!replace internal getfile/ by $ in $tgf_w1
12 
!if $tgf_w1=$empty or / isin $tgf_w1 or .. isin $tgf_w1
 14 
!if $tgf_w1=$empty or / isin $tgf_w1 or .. isin $tgf_w1