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 |