scripts/c2p

   1 #!/usr/bin/perl -W
   2 #
   3 # convert git commit id to a pretty patch we can apply to the stable tree
   4 #
   5 # Written in perl because the bash version is broken, it doesn't pass
   6 # through the patch correctly :(
   7 #
   8
   9 my $base_id = "";
  10 my $line;
  11 my $firstline = "true";
  12 my $git_id;
  13 my $header_complete = "false";
  14 my $signed_off_by_seen = "false";
  15 my $signed_off_by_complete = "false";
  16 my $eat_subject_trailer = "false";
  17 my $tmpfile;
  18 #my $kernel_version;
  19
  20
  21 $SIG{__DIE__} = sub
  22 {
  23         # what usually happens is we don't have the git version, so clean up
  24         # the temp file we created.
  25         if ($tmpfile ne "") {
  26                 unlink $tmpfile;
  27         }
  28 };
  29
  30 $numArgs = $#ARGV + 1;
  31 if ($numArgs < 1) {
  32         print "must provide git id\n";
  33         exit;
  34 }
  35
  36 $base_id = shift;
  37
  38 if ($base_id eq "") {
  39         print "must provide git id\n";
  40         exit;
  41 }
  42
  43 #$kernel_version = shift;
  44 #if (!defined($kernel_version)) {
  45 #       $kernel_version = "";
  46 #}
  47
  48 #print "handing commit id $base_id\n";
  49
  50 $tmpfile = `mktemp patch.XXXXX` || die "Failed to run mktemp";
  51 chomp($tmpfile);
  52
  53 # if we were smart, we could just reconstruct the header the way we want to
  54 # with a format: string, but we are not, so let's parse the thing out...
  55 $from = `git show --pretty=format:"%aN <%ae>" $base_id | head -n 1` || die "Failed to run git to get from";
  56 $subj = `git show --pretty=format:"Subject: %s" $base_id | head -n 1` || die "Failed to run git to get subject";
  57
  58 open FILE, ">$tmpfile" || die "Failed to create $tmpfile";
  59 #open GIT, "git show --pretty=email $base_id |" || die "Failed to run git";
  60 open GIT, "git format-patch -n1 --no-numbered -k --stdout $base_id |" || die "Failed to run git";
  61
  62 while ($line = <GIT>) {
  63
  64         # subjects have the fun ability to line-wrap, but we handled that above
  65         # when we grabbed the "raw" subject, so just ignore trailing subject
  66         # lines.
  67         if ($eat_subject_trailer eq "true") {
  68                 $eat_subject_trailer = "false";
  69                 if ($line =~m/^ /) {
  70                         # eat this line
  71                         next;
  72                 }
  73         }
  74
  75         # If this is the subject line, use our own.
  76         if ($line =~m/^Subject: /) {
  77                 $line = $subj;
  78                 $eat_subject_trailer = "true";
  79         }
  80
  81         if ($line =~m/^Signed-off-by:/) {
  82                 $signed_off_by_seen = "true";
  83         }
  84
  85         if ($signed_off_by_seen eq "true") {
  86                 if ($signed_off_by_complete eq "false") {
  87                         if ($line eq "\n" || $line eq "---\n") {
  88                                 print FILE "Signed-off-by: Greg Kroah-Hartman <gregkh\@linuxfoundation.org>\n";
  89                                 $signed_off_by_complete = "true";
  90                                 $signed_off_by_seen = "false";
  91                         }
  92                 }
  93         }
  94
  95         print FILE $line;
  96
  97         if ($firstline eq "true") {
  98                 my @from = split(/ /, $line);
  99                 $git_id = $from[1];
 100                 #print "git_id = $git_id\n";
 101                 $firstline = "false";
 102         }
 103         if ($header_complete eq "false") {
 104                 if ($line eq "\n") {
 105                         print FILE "From: $from\n";
 106                         print FILE "commit $git_id upstream.\n\n";
 107                         $header_complete = "true";
 108                 }
 109         }
 110 }
 111 close GIT;
 112 close FILE;
 113
 114 #print "$tmpfile\n";
 115
 116 system "vim -c \":set syntax=mail\" $tmpfile";
 117 system "reset";
 118 $new_file = `rename-patch $tmpfile`;
 119 chomp($new_file);
 120 system "mv $new_file ~/linux/stable/";
 121 #print "moved $new_file to ~/linux/stable/\n";
 122
 123 print "cd ~/linux/stable && ./apply_it $new_file @ARGV\n";
 124 system "cd ~/linux/stable && ./apply_it $new_file @ARGV";
 125 #system "cp ~/linux/stable/$new_file ~/linux/longterm";
 126 #system "cd ~/linux/longterm && ./apply_it $new_file";
 127
 128 #TMPFILE1=`mktemp patch.XXXXXX` || exit 1
 129 #TMPFILE2=`mktemp patch.XXXXXX` || exit 1
 130 #
 131 #GIT_ID=`git show $COMMIT_ID | head -n 1 | cut -f 2 -d ' '`
 132 #FROM=`git show --pretty=email $COMMIT_ID | head -n 2 | grep "From: "`
 133 #
 134 #git show --pretty=email $COMMIT_ID > $TMPFILE1
 135 #
 136 #HEADER_COMPLETE=false
 137 #while read line
 138 #do
 139 #       # Strip out the [PATCH] portion of the subject line, it's annoying.
 140 #       new=`echo "$line" | sed -e 's/^Subject: \[PATCH\]/Subject:/g'`
 141 #
 142 #       # copy the line out to the new file
 143 #       echo "$new" >> $TMPFILE2
 144 #
 145 #       # add our special text (author and git id) right before
 146 #       # the changelog text happens.
 147 #       if [ "$line" == "" ] ; then
 148 #               if [ $HEADER_COMPLETE == false ] ; then
 149 #                       echo "$FROM" >> $TMPFILE2
 150 #                       echo "" >> $TMPFILE2
 151 #                       echo "commit $GIT_ID upstream." >> $TMPFILE2
 152 #                       echo "" >> $TMPFILE2
 153 #                       HEADER_COMPLETE=true
 154 #               fi
 155 #       fi
 156 #done < $TMPFILE1
 157 #rm $TMPFILE1
 158 #vim $TMPFILE2
 159 #PATCH=`rename-patch $TMPFILE2`
 160 #mv $PATCH ~/linux/stable/
 161 #
 162 #echo "moved $PATCH to ~/linux/stable/"
 163 #