Mercurial > hg > Applications > mh

comparison postcnv @ 16:07f8972434be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix for Yosemita Clang
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 12 Nov 2014 02:46:27 +0900
parents bce86c4163a3
children
comparison
equal deleted inserted replaced
15:1891194b739c 16:07f8972434be
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 2
3 @A = (); 3 my @A = ();
4 $i = 0; 4 my $i = 0;
5 $tmp = "/tmp/postaa$$"; 5 my $tmp = "/tmp/postaa$$";
6 my $host = "yourhost.cr.ie.u-ryukyu.ac.jp";
7 my $f;
8 my $file;
9 my @U;
10 my $debug = 0;
11
12 if ($debug) {
13 open(LOG,">>/tmp/postcnv.log");
14 }
15
16 sub mysystem {
17 my ($arg) = @_;
18 print LOG "$arg\n" if ($debug);
19 system $arg;
20 }
21
22 # system "echo @ARGV >> /tmp/ahoaho";
6 23
7 # /usr/local/mh/lib/post [-alias aliasfile] 24 # /usr/local/mh/lib/post [-alias aliasfile]
8 # [-filter filterfile] [-nofilter] [-format] [-noformat] 25 # [-filter filterfile] [-nofilter] [-format] [-noformat]
9 # [-mime] [-nomime] [-msgid] [-nomsgid] [-verbose] 26 # [-mime] [-nomime] [-msgid] [-nomsgid] [-verbose]
10 # [-noverbose] [-watch] [-nowatch] [-width columns] file 27 # [-noverbose] [-watch] [-nowatch] [-width columns] file
16 if( /^-alias/ ) { 33 if( /^-alias/ ) {
17 push(@A,$_); $_ = shift(@ARGV); push(@A,$_); 34 push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
18 } elsif( /^-filter/ ) { 35 } elsif( /^-filter/ ) {
19 push(@A,$_); $_ = shift(@ARGV); push(@A,$_); 36 push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
20 } elsif( /^-idanno/ ) { 37 } elsif( /^-idanno/ ) {
21 push(@A,$_); $_ = shift(@ARGV); push(@A,$_); 38 shift(@ARGV);
39 # push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
22 } elsif( /^-library/ ) { 40 } elsif( /^-library/ ) {
23 push(@A,$_); $_ = shift(@ARGV); push(@A,$_); 41 push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
24 } elsif( /^-width/ ) { 42 } elsif( /^-width/ ) {
25 push(@A,$_); $_ = shift(@ARGV); push(@A,$_); 43 push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
26 } elsif( /^-/ ) { 44 } elsif( /^-/ ) {
27 push(@A,$_); 45 push(@A,$_);
28 } else { 46 } else {
29 $f = $tmp . $i++; 47 $f = $tmp . $i++;
30 system("nkf -j -m0 < $_ > $f"); 48 $file = $_;
31 push(@A,$f); push(@U,$f); 49 push(@A,$f); # push(@U,$_);
32 } 50 }
33 } 51 }
34 52
35 system "/usr/local/lib/mh/post @A"; 53 # system "refile -link -src +drafts last +send";
54 # print STDERR "/bin/cp $f $new\n";
55 if ($file) {
56 my $new = `/usr/local/mh/bin/mhpath +send new`;
57 # system("nkf -j -m0 --overwrite $file"); too late?
58 mysystem("/bin/cp $file $new");
59 mysystem("scp $file ${host}:${f}");
60 }
36 61
37 unlink(@U); 62 # system "echo remote @A >> /tmp/ahoaho";
63 # how to handle error?
64 mysystem("ssh $host /usr/local/mh/lib/post @A");
38 65
66 if (! $debug) {
67 mysystem("ssh $host rm $f");
68 }
69
70 # unlink(@U);
71 1;
72
73 #end