| 1 | #!/usr/bin/perl -w |
| 2 | my $file = pop(@ARGV); |
| 3 | my %meta; |
| 4 | $ENV{'P4PORT'} ||= 'bactrian:1667'; |
| 5 | $ENV{'P4CLIENT'} ||= 'ni-s'; |
| 6 | open(FILE,$file) || die "Cannot open $file:$!"; |
| 7 | while (<FILE>) |
| 8 | { |
| 9 | if (/^(From|Subject|Date|Message-ID):(.*)$/i) |
| 10 | { |
| 11 | $meta{lc($1)} = $2; |
| 12 | } |
| 13 | } |
| 14 | my @results = `patch @ARGV <$file 2>&1`; |
| 15 | warn @results; |
| 16 | my $code = $?; |
| 17 | warn "$code from patch\n"; |
| 18 | foreach (@results) |
| 19 | { |
| 20 | if (/[Pp]atching\s+file\s*(\S+)/) |
| 21 | { |
| 22 | push(@edit,$1); |
| 23 | } |
| 24 | } |
| 25 | my @have = `p4 have @edit`; |
| 26 | |
| 27 | if ($code == 0) |
| 28 | { |
| 29 | System("p4 edit @edit"); |
| 30 | open(PIPE,"|p4 change -i") || die "Cannot open pipe to p4:$!"; |
| 31 | print PIPE "Change: new\n"; |
| 32 | print PIPE "Description:\n"; |
| 33 | foreach my $key (qw(Subject From Date Message-Id)) |
| 34 | { |
| 35 | if (exists $meta{lc($key)}) |
| 36 | { |
| 37 | print PIPE "\t$key: ",$meta{lc($key)},"\n"; |
| 38 | print "$key: ",$meta{lc($key)},"\n"; |
| 39 | } |
| 40 | } |
| 41 | print PIPE "Files:\n"; |
| 42 | foreach (@have) |
| 43 | { |
| 44 | if (m,^(.*)#,) |
| 45 | { |
| 46 | print PIPE "\t$1\n" |
| 47 | } |
| 48 | } |
| 49 | close(PIPE); |
| 50 | } |
| 51 | else |
| 52 | { |
| 53 | if (@edit) |
| 54 | { |
| 55 | System("p4 refresh @edit"); |
| 56 | } |
| 57 | } |
| 58 | |
| 59 | sub System |
| 60 | { |
| 61 | my $cmd = join(' ',@_); |
| 62 | warn "$cmd\n"; |
| 63 | if (fork) |
| 64 | { |
| 65 | wait; |
| 66 | } |
| 67 | else |
| 68 | { |
| 69 | _exit(exec $cmd); |
| 70 | } |
| 71 | } |
| 72 | |