From 21a00bd6a98a6e5c8d1843024aea0e0464dfb852 Mon Sep 17 00:00:00 2001
From: Teemu Matilainen <teemu.matilainen@reaktor.fi>
Date: Thu, 18 Nov 2010 20:22:26 +0200
Subject: [PATCH] gl-setup: Replace similar long one-liners with functions

---
 src/gl-setup | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/src/gl-setup b/src/gl-setup
index 8ff06b1..f1fb3fd 100755
--- a/src/gl-setup
+++ b/src/gl-setup
@@ -42,8 +42,11 @@ fi
 
 if [ -f $HOME/.gitolite.rc ]
 then
-    perl -ne 's/^\s+//; s/[\s=].*//; print if /^\$/;' < $GL_PACKAGE_CONF/example.gitolite.rc | sort > $TEMPDIR/.newvars
-    perl -ne 's/^\s+//; s/[\s=].*//; print if /^\$/;' < $HOME/.gitolite.rc                   | sort > $TEMPDIR/.oldvars
+    print_rc_vars() {
+        perl -ne 's/^\s+//; s/[\s=].*//; print if /^\$/;' < $1 | sort
+    }
+    print_rc_vars $GL_PACKAGE_CONF/example.gitolite.rc > $TEMPDIR/.newvars
+    print_rc_vars $HOME/.gitolite.rc                   > $TEMPDIR/.oldvars
     comm -23 $TEMPDIR/.newvars $TEMPDIR/.oldvars > $TEMPDIR/.diffvars
     if [ -s $TEMPDIR/.diffvars ]
     then
@@ -81,8 +84,11 @@ fi
 
 gl-install -q
 
-GL_ADMINDIR=` cd $HOME;perl -e 'do ".gitolite.rc"; print $GL_ADMINDIR'`
-REPO_BASE=`   cd $HOME;perl -e 'do ".gitolite.rc"; print $REPO_BASE'  `
+get_rc_val() {
+    perl -e "do '$HOME/.gitolite.rc'; print $1"
+}
+GL_ADMINDIR=$(get_rc_val '$GL_ADMINDIR')
+REPO_BASE=$(  get_rc_val '$REPO_BASE'  )
 
 [ -f $GL_ADMINDIR/conf/gitolite.conf ] || {
     cat <<EOF > $GL_ADMINDIR/conf/gitolite.conf