git.oblomov.eu Git - git/blob - contrib/fast-import/git-import.perl

   1 #!/usr/bin/perl
   2 #
   3 # Performs an initial import of a directory. This is the equivalent
   4 # of doing 'git init; git add .; git commit'. It's a little slower,
   5 # but is meant to be a simple fast-import example.
   6
   7 use strict;
   8 use File::Find;
   9
  10 my $USAGE = 'Usage: git-import branch import-message';
  11 my $branch = shift or die "$USAGE\n";
  12 my $message = shift or die "$USAGE\n";
  13
  14 chomp(my $username = `git config user.name`);
  15 chomp(my $email = `git config user.email`);
  16 die 'You need to set user name and email'
  17   unless $username && $email;
  18
  19 system('git init');
  20 open(my $fi, '|-', qw(git fast-import --date-format=now))
  21   or die "unable to spawn fast-import: $!";
  22
  23 print $fi <<EOF;
  24 commit refs/heads/$branch
  25 committer $username <$email> now
  26 data <<MSGEOF
  27 $message
  28 MSGEOF
  29
  30 EOF
  31
  32 find(
  33   sub {
  34     if($File::Find::name eq './.git') {
  35       $File::Find::prune = 1;
  36       return;
  37     }
  38     return unless -f $_;
  39
  40     my $fn = $File::Find::name;
  41     $fn =~ s#^.\/##;
  42
  43     open(my $in, '<', $_)
  44       or die "unable to open $fn: $!";
  45     my @st = stat($in)
  46       or die "unable to stat $fn: $!";
  47     my $len = $st[7];
  48
  49     print $fi "M 644 inline $fn\n";
  50     print $fi "data $len\n";
  51     while($len > 0) {
  52       my $r = read($in, my $buf, $len < 4096 ? $len : 4096);
  53       defined($r) or die "read error from $fn: $!";
  54       $r > 0 or die "premature EOF from $fn: $!";
  55       print $fi $buf;
  56       $len -= $r;
  57     }
  58     print $fi "\n";
  59
  60   }, '.'
  61 );
  62
  63 close($fi);
  64 exit $?;