Revising newrepo to use libpiny.

1 files changed, 15 insertions, 220 deletions

diff --git a/usr/src/pinyadmin/sbin/newrepo b/usr/src/pinyadmin/sbin/newrepo
index 15bbde6..1f83e82 100755
--- a/usr/src/pinyadmin/sbin/newrepo
+++ b/usr/src/pinyadmin/sbin/newrepo
@@ -3,241 +3,36 @@
 use strict;
 use warnings;
 
-my( $errorto ) = 'jrayhawk+piny.be@omgwallhack.org'; # Email address to send horrible errors to.
-my( $reponame, $email, @errors, $wikilisttempfile, $cgitrctempfile, $description );
+use Piny;
 
-if ( ( ! scalar $ARGV[0] ) or ( scalar $ARGV[1] ) or ( $ARGV[0] !~ /^[a-z0-9][a-z0-9-]+$/ ) ) {
-  print( "Usage: newrepo REPONAME\n" );
-  print( "  REPONAME must consist only of lower case letters (a-z), digits (0-9), and minus (-) signs.\n" );
-  print( "  REPONAME must be at least two characters long and must start with an alphanumeric character.\n" );
-  exit( 1 );
-} else {
-  $reponame = $ARGV[0];
-};
+my ( $name ) = @ARGV;
 
-# We want to check to see if
-#   1) $reponame already exists in some form so we don't try to create it, and
-#   2) $reponame is only partially created, in which case we want to email someone who can sanity check and fix it.
-open (PASSWD, '/etc/passwd');
-while(<PASSWD>) {
-  if( $_ =~ /^$ENV{SUDO_USER}:.+?:.+?:.+?:(.+?):/ ) { $email = $1; }; # While we're here, may as well grab the email address.
-  if( $_ =~ /^ikiwiki-$reponame:/				) { push( @errors, "user ikiwiki-$reponame already exists!\n"); };
-};
-close(PASSWD);
-open (GROUP, '/etc/group');
-while(<GROUP>) {
-  if( $_ =~ /^git-$reponame:/					) { push( @errors, "group git-$reponame already exists!\n"); };
+if ( not defined $name ) {
+  print "Usage: newrepo REPONAME\n";
+  exit 1;
 };
-close(GROUP);
-if( -d "/srv/git/$reponame.git"					) { push( @errors, "/srv/git/$reponame.git already exists!\n"); };
-if( -d "/srv/ikiwiki/$reponame"					) { push( @errors, "/srv/ikiwiki/$reponame already exists!\n"); };
-if( -d "/srv/www/piny.be/$reponame"		) { push( @errors, "/srv/www/piny.svcs.cs.pdx.edu/$reponame already exists!\n"); };
-if( -d "/srv/www/secure.piny.be/repos/$reponame"	) { push( @errors, "/srv/www/cgi.piny.be/repos/$reponame already exists!\n"); };
-if( -f "/etc/ikiwiki/piny/$reponame.setup"			) { push( @errors, "/etc/ikiwiki/piny/$reponame.setup already exists!\n"); };
-if( -f "/etc/ikiwiki/wikilist.d/$reponame"			) { push( @errors, "/etc/ikiwiki/wikilist.d/$reponame already exists!\n"); };
-if( -f "/etc/apache2/piny-available/$reponame"			) { push( @errors, "/etc/apache2/piny-available/$reponame already exists!\n"); };
-if( -f "/etc/cgitrc.d/$reponame"			        ) { push( @errors, "/etc/cgitrc.d/$reponame already exists!\n"); };
 
-if( @errors ) {
-  if( @errors == 10 ) { # Everything's fine, nothing is broken
-    print( "$reponame already exists!\n" );
-  } else {              # IT'S ARMAGEDDON
-    open ( MAIL, "|/usr/lib/sendmail -t" );
-    print( MAIL "To: $errorto\n" );
-    print( MAIL "From: newrepo\@piny.be\n" );
-    print( MAIL "Subject: Piny error: $ENV{SUDO_USER} found inconsistent $reponame in the creation process!\n" );
-    print( MAIL "MIME-Version: 1.0\n" );
-    print( MAIL "Content-Type: text/plain; charset=us-ascii\n" );
-    print( MAIL "\n" );
-    print( MAIL "@errors\n" );
-    close( MAIL );
-    print( "$reponame already exists but is in an inconsistent state! The Piny admins probably screwed up; they have been notified and will take a look at it.\n" );
-  };
-  exit( 2 );
+if ( not Piny::Repo::Reponame->check( $name ) ) {
+  print "That is not a valid repo name; must be at least 1 character long, begin with a lowercase alphanumeric character, and contain only alphanumeric characters and dashes.\n";
+  exit 1;
 };
 
+my $description;
 while( 1 ) {
 
-  print( "Provide a one-line description to be used in repo listings, the shorter the better:\n" );
+  print "Provide a one-line description to be used in repo listings, the shorter the better:\n";
   chomp( $description = <STDIN> );
 
-  if( $description !~ /^[\x{0020}-\x{FDCF}\x{FDF0}-\x{FFFD}]{1,80}$/ ) { # everything but control characters and unicode-defined non-characters
-    print( "Must be 1-80 characters long; control characters (including tab) not allowed.\n" );
+  if ( not Piny::Repo::SimpleText->check( $description ) ) {
+    print "Must be 1-80 characters long; control characters (including tab) not allowed.\n";
     next;
   };
 
-  print( "Okay! Working, please wait...\n" );
+  print "Okay! Working, please wait...\n";
   last;
 
 };
 
-# CREATE USER/GROUPS
-unless( system( "mkdir /srv/git/$reponame.git" ) == 0 ) { # We need a locking or atomic operation as our first to check against simultaneous execution.
-  print( "Somebody else has created the same repo as you in the course of executing this program!\n" );
-  exit( 3 );
-};
-system( "/usr/sbin/addgroup --quiet git-$reponame" );
-system( "/usr/sbin/adduser --quiet --system --group --gecos $reponame ikiwiki-$reponame" );
-system( "/usr/sbin/adduser --quiet ikiwiki-$reponame git-$reponame | grep -v 'Adding user'" );
-system( "/usr/sbin/adduser --quiet $ENV{SUDO_USER} git-$reponame | grep -v 'Adding user '" );
-
-# CREATE REPO
-system( "GIT_DIR=/srv/git/$reponame.git /usr/bin/git init --template=/srv/git-template.git --quiet --shared" );
-open ( DESC, ">/srv/git/$reponame.git/description" );
-print( DESC "$description" );
-close( DESC );
-# ln -f post-receive /srv/git/$reponame.git/hooks/ # turn on e-mail commit notices
-system( "/bin/chown -R $ENV{SUDO_USER}.git-$reponame /srv/git/$reponame.git/" );
-system( "/bin/chown -R ikiwiki-$reponame.ikiwiki-$reponame /srv/git/$reponame.git/hooks/" );
-system( "/bin/touch /srv/git/$reponame.git/git-daemon-export-ok" );
-
-# WRITE IKIWIKI SETUP FILE
-open ( SETUP, ">/etc/ikiwiki/piny/$reponame.setup" );
-print( SETUP
-'#!/usr/bin/perl
-# Configuration file for ikiwiki.
-# Passing this to ikiwiki --setup will make ikiwiki generate wrappers and
-# build the wiki.
-#
-# Remember to re-run ikiwiki --setup any time you edit this file.
-
-use IkiWiki::Setup::Standard {
-	wikiname => \'' . $reponame . '\', # PINY
-	adminemail => \'' . $email . '\', # PINY
-	srcdir => \'/srv/ikiwiki/' . $reponame . '\', # PINY
-	destdir => \'/srv/www/piny.be/' . $reponame . '\', # PINY
-	url => \'http://piny.be/' . $reponame . '\', # PINY
-	cgiurl => \'https://secure.piny.be/repos/' . $reponame . '/ikiwiki.cgi\', # PINY
-	historyurl => \'https://secure.piny.be/cgit/' . $reponame . '/log/[[file]]\', # PINY
-        diffurl => \'https://secure.piny.be/cgit/' . $reponame . '/diff/?id=[[sha1_commit]]\', # PINY
-
-	templatedir => "/srv/templates",
-	underlaydir => "/etc/ikiwiki/share/underlay",
-
-	rcs => "git",
-	gitorigin_branch => "origin",
-	gitmaster_branch => "master",
-
-	wrappers => [
-		{
-			cgi => 1,
-			wrapper => \'/srv/www/secure.piny.be/repos/' . $reponame . '/ikiwiki.cgi\', # PINY
-			wrappermode => "06755",
-                        wrappergroup => \'git-' . $reponame . '\', # PINY
-		},
-		{
-			wrapper => \'/srv/git/' . $reponame . '.git/hooks/post-update\', # PINY
-			wrappermode => "06755",
-                        wrappergroup => \'git-' . $reponame . '\', # PINY
-
-			notify => 0,
-		},
-	],
-
-	# Generate rss feeds for blogs?
-	rss => 1,
-	# Generate atom feeds for blogs?
-	atom => 0,
-	# Include discussion links on all pages?
-	discussion => 0,
-	# To exclude files matching a regexp from processing. This adds to
-	# the default exclude list.
-	#exclude => qr/*\.wav/,
-	# To change the extension used for generated html files.
-	#htmlext => "htm",
-	# Time format (for strftime)
-	#timeformat => "%c",
-	# Locale to use. Must be a UTF-8 locale.
-	#locale => "en_US.UTF-8",
-	# Only send cookies over SSL connections.
-	sslcookie => 1,
-	# Logging settings:
-	verbose => 0,
-	syslog => 1,
-	# To link to user pages in a subdirectory of the wiki.
-	#userdir => "users",
-	# To create output files named page.html rather than page/index.html.
-	usedirs => 1,
-	# Simple spam prevention: require an account-creation password.
-	#account_creation_password => "example",
-	# Use new "!"-prefixed preprocessor directive syntax
-	prefix_directives => 1,
-	httpauth => 1,
-	# To add plugins, list them here.
-	add_plugins => [qw{sidebar toc meta table tag graphviz httpauth img attachment rename remove autoindex map teximg version edittemplate}],
-	disable_plugins => [qw{openid passwordauth}],
-	teximg_prefix => \'\\documentclass{scrartcl}
-\\usepackage[version=3]{mhchem}
-\\usepackage{amsmath}
-\\usepackage{amsfonts}
-\\usepackage{amssymb}
-\\pagestyle{empty}
-\\newcommand{\unit}[1]{\\ensuremath{\\, \\mathrm{#1}}}
-\\begin{document}\',
-
-	teximg_dvipng => 1,
-
-	# For use with the tag plugin, make all tags be located under a
-	# base page.
-	tagbase => "tag",
-
-	# For use with the search plugin if your estseek.cgi is located
-	# somewhere else.
-	#estseek => "/usr/lib/estraier/estseek.cgi",
-}');
-close( SETUP );
-open ( WIKILIST, '>>/etc/ikiwiki/wikilist' );
-print( WIKILIST "ikiwiki-$reponame /etc/ikiwiki/piny/$reponame.setup\n" );
-close( WIKILIST );
-
-# WRITE APACHE CONFIG
-open ( APACHE, ">/etc/apache2/piny-available/$reponame" );
-print( APACHE '<Directory /srv/www/secure.piny.be/repos/' . $reponame . '>
-	AuthPAM_Enabled on
-	AuthGROUP_Enabled on
-	AuthPAM_FallThrough off
-	AuthBasicAuthoritative off
-	AuthType Basic
-	AuthName "User access to ' . $reponame . ' repository needed."
-	Require group git-' . $reponame . '
-</Directory>' );
-close( APACHE );
-link( "/etc/apache2/piny-available/$reponame", "/etc/apache2/piny-enabled/$reponame");
-system( '/etc/init.d/apache2 reload | grep -v "Reloading web server config: apache2."' );
-
-
-# CREATE IKIWIKI WORKING DIR
-system( "/usr/bin/git clone --quiet /srv/git/$reponame /srv/ikiwiki/$reponame" );
-mkdir( "/srv/www/piny.be/$reponame" );
-mkdir( "/srv/www/secure.piny.be/repos/$reponame" );
-system( "/bin/chown -R ikiwiki-$reponame /srv/ikiwiki/$reponame /srv/www/piny.be/$reponame /srv/www/secure.piny.be/repos/$reponame" );
-
-open ( WIKILIST, ">/etc/ikiwiki/wikilist.d/$reponame" ); # Maybe someday ikiwiki will support wikilist.d.
-print( WIKILIST "ikiwiki-$reponame /etc/ikiwiki/piny/$reponame.setup\n" ); # In the meantime, we fake it.
-close( WIKILIST );
-$wikilisttempfile = `/bin/mktemp`;
-chomp( $wikilisttempfile );
-chmod ( 0644, $wikilisttempfile );
-system( "/bin/cat /etc/ikiwiki/wikilist.d/* > $wikilisttempfile" );
-system( "/bin/mv $wikilisttempfile /etc/ikiwiki/wikilist" ); # This is marginally racy, but the consequences are probably ignorable.
-
-open ( CGITRC, ">/etc/cgitrc.d/$reponame" ); # Maybe someday cgit will support cgitrc.d.
-print( CGITRC # In the meantime, we fake it.
-"repo.url=$reponame
-repo.path=/srv/git/$reponame.git
-repo.desc=$description
-repo.owner=$email
-
-" ); # cgit already escapes HTML, so we don't need to do it on $description
-close( CGITRC );
-$cgitrctempfile = `/bin/mktemp`;
-chomp( $cgitrctempfile );
-chmod ( 0644, $cgitrctempfile );
-system( "/bin/cat /etc/cgitrc.d/* > $cgitrctempfile" );
-system( "/bin/mv $cgitrctempfile /etc/cgitrepos" ); # This is marginally racy, but the consequences are minor.
-
-# COMPILE
-system( "/usr/bin/sudo -u ikiwiki-$reponame /usr/bin/ikiwiki --setup /etc/ikiwiki/piny/$reponame.setup | grep -v 'successfully generated'" );
+my $repo = Piny::Repo->create( $reponame, $description );
 
-print( "Web interface: http://piny.be/$reponame/\n" );
-print( "Repo information: https://secure.piny.be/cgit/$reponame/\n" );
+print "Repo URL: " . $repo->ikiwiki_url . "\n";