commit - /dev/null
commit + 9d3839a0be3481bf65cf46162be4ac4d9eedffcf
blob - /dev/null
blob + aeaaaabf41e969c684a1cd33480c06ed8ef043f4 (mode 755)
--- /dev/null
+++ gitgot-deploy.pl
+#!/usr/bin/perl
+use strict;
+use warnings;
+my $config={
+ stageDir=>'/var/gitgot',
+ gitgotUser=>'gitgot',
+ gotwebDir=>'/var/www/got/public',
+};
+# Sync changes from stageDir to the webdir
+opendir (my $DH, $config->{stageDir})
+ or die "Can't opendir " . $config->{stageDir} . " : $!";
+while (my $user = readdir($DH)) {
+ next if ($user =~ /^\./); # skip . files
+ if (-d $config->{stageDir} . "/$user") {
+ # Need the name of each repo so we can add username ass prefix
+ opendir (my $uDH, $config->{stageDir} . "/$user")
+ or die "Can't opendir ". $config->{stageDir} . "/$user/ : $!";
+ while (my $repo = readdir($uDH)) {
+ next if ($repo =~ /^\./); # skip . files
+ # need destination folder name to change to prefix
+ # the username to it to prevent one user from clobbering
+ # another users repos. Can't do a rename of the folder
+ # with rsync so have to create the destination folder then
+ # rsync the contents of it.
+ my @stat=stat($config->{stageDir} . "/$user/$repo");
+ my $prefixName="$user-$repo";
+ my $dst=qq(/$config->{gotwebDir}/$prefixName/);
+ mkdir $dst,$stat[2]; #stat[2] is mode of original dir
+ opendir (my $rDH, $config->{stageDir} . "/$user/$repo")
+ or die "Can't opendir ". $config->{stageDir} . "/$user/$repo : $!";
+ while (my $git = readdir($rDH)) {
+ next if ($git eq '.' or $git eq '..'); # skip . and ..
+
+ my $src=qq($config->{stageDir}/$user/$repo/$git);
+ my $rv=system(qq{
+ openrsync --rsync-path=openrsync -a --delete $src $dst
+ });
+ warn "rsync failed $prefixName\n$!\n" if ($rv != 0);
+ }
+ }
+ }
+}
+
blob - /dev/null
blob + c12ada8720bd30b26a5b4cc3ee48518b9dd18fb1 (mode 755)
--- /dev/null
+++ gitgot-staging.pl
+#!/usr/bin/perl
+use strict;
+use warnings;
+my $config={
+ remoteHost=>'got.ircnow.org',
+ remoteUser=>'gitgot',
+ remoteStage=>'/var/gitgot',
+ repoDir=>'public/gitgot',
+ createRepoDir=>1,
+ stageDir=>'/var/gitgot',
+ gitgotUser=>'gitgot',
+ key_path=>'/home/gitgot/.ssh/id_ed25519',
+ rsync_cmd=>'openrsync',
+};
+# verify we have a local staging area
+if (not -d $config->{stageDir}) {
+ my (undef,undef,$uid,$gid) = getpwnam($config->{gitgotUser})
+ or die "User " . $config->{gitgotUser} . " doesn't exist";
+ mkdir $config->{stageDir}, 0750;
+ chown $uid,$gid,$config->{stageDir};
+}
+opendir (my $DH, '/home/') || die "Can't opendir /home : $!";
+while (my $user = readdir($DH)) {
+ if (-d "/home/$user/" . $config->{repoDir}) {
+ # Skip if no repos
+ opendir (my $RDH, "/home/$user/" . $config->{repoDir})
+ or die "Can't opendir /home/$user/ : $!";
+ my @repos = readdir($RDH);
+ next unless (scalar @repos > 2);
+
+ # Make sure user has a staging directory
+ if(not -d $config->{stageDir} . "/$user") {
+ mkdir ($config->{stageDir} . "/$user");
+ }
+ # rsync files to local staging area
+ my $src=qq(/home/$user/$config->{repoDir}/*);
+ my $dst=qq($config->{stageDir}/$user/);
+ my $rv=system(qq{
+ openrsync --rsync-path=openrsync -a --delete $src $dst
+ });
+ warn "rsync failed $user\n$!\n" if ($rv != 0);
+ } elsif ($config->{createRepoDir}) { # create missing repo dirs
+ # skip dirs without users.
+ my (undef,undef,$uid,$gid) = getpwnam($user) or next;
+ my $repoPath="/home/$user";
+ for my $dir (split('/', $config->{repoDir})) {
+ $repoPath.="/$dir";
+ unless (-e $repoPath) {
+ mkdir $repoPath, 0755;
+ chown $uid,$gid,$repoPath;
+ }
+ }
+ }
+}
+
+# rsync to remote staging area if we have a remote host
+if (defined $config->{remoteHost}) {
+ # Only sync if we have repos to deploy
+ opendir (my $SDH, $config->{stageDir})
+ or die "Can't opendir ". $config->{stageDir} . " : $!";
+ my @repos = readdir($SDH);
+
+ if(scalar @repos > 2) {
+ my $src=$config->{stageDir} . "/*";
+ my $dst=$config->{gitgotUser}. "@" . $config->{remoteHost}
+ . ":" . $config->{remoteStage} . "/";
+ my $rv=system("openrsync --rsync-path=openrsync -ae "
+ . '"ssh -i ' . $config->{key_path}. '" --delete'
+ . " $src $dst "
+ );
+ }
+}
+
