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