Show More
@@ -0,0 +1,26 b'' | |||
|
1 | #!/bin/rc | |
|
2 | # 9mail - Mercurial email wrapper for upas/marshal | |
|
3 | ||
|
4 | fn usage { | |
|
5 | echo >[1=2] usage: mercurial/9mail -f from to [cc] | |
|
6 | exit usage | |
|
7 | } | |
|
8 | ||
|
9 | from=() | |
|
10 | cc=() | |
|
11 | to=() | |
|
12 | ||
|
13 | switch($1){ | |
|
14 | case -f | |
|
15 | from=$2 | |
|
16 | case * | |
|
17 | usage | |
|
18 | } | |
|
19 | ||
|
20 | to=($3) | |
|
21 | if(~ $#* 4) | |
|
22 | cc=(-C $4) | |
|
23 | ||
|
24 | upasname=$from | |
|
25 | upas/marshal $cc $to | |
|
26 |
General Comments 0
You need to be logged in to leave comments.
Login now