From 1cdc615726308279890ecdce55d0c8567ac66f17 Mon Sep 17 00:00:00 2001
From: JozanLeClerc <bousset.rudy@gmail.com>
Date: Sun, 26 Jul 2020 15:52:32 +0200
Subject: Test
---
src/gitjoe/newrepo.pl | 43 ++++++-------------------------------------
1 file changed, 6 insertions(+), 37 deletions(-)
(limited to 'src/gitjoe')
diff --git a/src/gitjoe/newrepo.pl b/src/gitjoe/newrepo.pl
index dd26730..c7bdc6b 100755
--- a/src/gitjoe/newrepo.pl
+++ b/src/gitjoe/newrepo.pl
@@ -40,59 +40,28 @@ sub main {
},
$home_dir . $repo
);
- # system(
- # '/usr/local/bin/dash',
- # '-c',
- # '/usr/sbin/chown -v -R ' . $usr . ':' . $usr . ' ' . $home_dir . $repo
- # );
system(
- '/usr/local/bin/dash',
- '-c',
- '/usr/bin/touch ' . $home_dir . $repo . 'git-daemon-export-ok'
- );
- system(
- '/usr/local/bin/dash',
- '-c',
- '/usr/sbin/chown -v ' . $usr . ':' . $usr . ' ' . $home_dir . $repo . 'git-daemon-export-ok'
+ '/usr/bin/touch',
+ $home_dir . $repo . 'git-daemon-export-ok'
);
+ chown $uid, $gid, $home_dir . $repo . 'git-daemon-export-ok';
open(my $owner_fh, '>:encoding(UTF-8)', $home_dir . $repo . 'owner');
print $owner_fh $usr;
close($owner_fh);
- system(
- '/usr/local/bin/dash',
- '-c',
- '/usr/sbin/chown -v ' . $usr . ':' . $usr . ' ' . $home_dir . $repo . 'owner'
- );
open(my $url_fh, '>:encoding(UTF-8)', $home_dir . $repo . 'url');
substr($repo, -1) = "";
print $url_fh 'git://jozanleclerc.xyz/' . $usr . '/' . $repo;
close($url_fh);
$repo = $repo . '/';
- system(
- '/usr/local/bin/dash',
- '-c',
- '/usr/sbin/chown -v ' . $usr . ':' . $usr . ' ' . $home_dir . $repo . 'url'
- );
+ open(my $desc_fh, '>:encoding(UTF-8)', $home_dir . $repo . 'description');
if ($argc >= 3) {
- open(my $desc_fh, '>:encoding(UTF-8)', $home_dir . $repo . 'description');
print $desc_fh $desc;
- close($desc_fh);
- system(
- '/usr/local/bin/dash',
- '-c',
- '/usr/sbin/chown -v ' . $usr . ':' . $usr . ' ' . $home_dir . $repo . 'description'
- );
}
else {
- open(my $desc_fh, '>:encoding(UTF-8)', $home_dir . $repo . 'description');
print $desc_fh 'No description yet';
- close($desc_fh);
- system(
- '/usr/local/bin/dash',
- '-c',
- '/usr/sbin/chown -v ' . $usr . ':' . $usr . ' ' . $home_dir . $repo . 'description'
- );
}
+ close($desc_fh);
+ chown $uid, $gid, $home_dir . $repo . 'description';
substr($repo, -1) = "";
print "Created git repository " . colored($repo, 'bold green') . " for user " . colored($usr, 'bold') . ".\n";
print "Remote url: " . colored($usr . '@jozanleclerc.xyz:' . $repo, 'bold green') . "\n"
--
cgit v1.2.3