Server IP : 15.235.198.142 / Your IP : 216.73.216.190 Web Server : Apache/2.4.58 (Ubuntu) System : Linux ballsack 6.8.0-45-generic #45-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 30 12:02:04 UTC 2024 x86_64 User : www-data ( 33) PHP Version : 8.3.6 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /usr/share/doc/git/contrib/fast-import/ |
Upload File : |
#!/usr/bin/perl # # Performs an initial import of a directory. This is the equivalent # of doing 'git init; git add .; git commit'. It's a little slower, # but is meant to be a simple fast-import example. use strict; use File::Find; my $USAGE = 'usage: git-import branch import-message'; my $branch = shift or die "$USAGE\n"; my $message = shift or die "$USAGE\n"; chomp(my $username = `git config user.name`); chomp(my $email = `git config user.email`); die 'You need to set user name and email' unless $username && $email; system('git init'); open(my $fi, '|-', qw(git fast-import --date-format=now)) or die "unable to spawn fast-import: $!"; print $fi <<EOF; commit refs/heads/$branch committer $username <$email> now data <<MSGEOF $message MSGEOF EOF find( sub { if($File::Find::name eq './.git') { $File::Find::prune = 1; return; } return unless -f $_; my $fn = $File::Find::name; $fn =~ s#^.\/##; open(my $in, '<', $_) or die "unable to open $fn: $!"; my @st = stat($in) or die "unable to stat $fn: $!"; my $len = $st[7]; print $fi "M 644 inline $fn\n"; print $fi "data $len\n"; while($len > 0) { my $r = read($in, my $buf, $len < 4096 ? $len : 4096); defined($r) or die "read error from $fn: $!"; $r > 0 or die "premature EOF from $fn: $!"; print $fi $buf; $len -= $r; } print $fi "\n"; }, '.' ); close($fi); exit $?;