Gecko [ paroquia-rio-de-mouro.pt ]

Linux anchor 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64
Apache/2.4.18 (Ubuntu)
Server IP : 10.10.100.4 & Your IP : 216.73.216.195
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
git-import.perl	1.42 KB	-rw-r--r--	2021-03-04 17:04
git-import.sh	724 B	-rw-r--r--	2021-03-04 17:04
git-p4.README	476 B	-rw-r--r--	2021-03-04 17:04
import-directories.perl	10.93 KB	-rw-r--r--	2021-03-04 17:04
import-tars.perl	5.21 KB	-rw-r--r--	2021-03-04 17:04
import-zips.py	2.19 KB	-rw-r--r--	2021-03-04 17:04

Rename

#!/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 $?;