Deduplicate some installation steps

1 files changed, 22 insertions, 19 deletions

diff --git a/kerl b/kerl
index 552b2fb..43e3545 100755
--- a/kerl
+++ b/kerl
@@ -497,19 +497,12 @@ ACTIVATE
     if [ "$rel" != "git" ]; then
         if [ -n "$KERL_INSTALL_MANPAGES" ]; then
             echo "Fetching and installing manpages..."
-            FILENAME=otp_doc_man_$rel.tar.gz
-            download "$FILENAME"
-            echo "Extracting manpages"
-            cd "$absdir" && tar xfz "$KERL_DOWNLOAD_DIR/$FILENAME"
+            do_install_manpages "$rel"
         fi
 
         if [ -n "$KERL_INSTALL_HTMLDOCS" ]; then
             echo "Fetching and installing HTML docs..."
-            FILENAME="otp_doc_html_$rel.tar.gz"
-            download "$FILENAME"
-            echo "Extracting HTML docs"
-            (cd "$absdir" && mkdir -p html && \
-                tar -C "$absdir/html" -xzf "$KERL_DOWNLOAD_DIR/$FILENAME")
+            do_install_htmldocs "$rel"
         fi
     else
         rel=`get_newest_valid_release`
@@ -520,19 +513,12 @@ ACTIVATE
 
         if [ -n "$KERL_INSTALL_MANPAGES" ]; then
             echo "CAUTION: Fetching and installing newest ($rel) manpages..."
-            FILENAME=otp_doc_man_$rel.tar.gz
-            download "$FILENAME"
-            echo "Extracting manpages"
-            cd "$absdir" && tar xfz "$KERL_DOWNLOAD_DIR/$FILENAME"
+            do_install_manpages "$rel"
         fi
 
         if [ -n "$KERL_INSTALL_HTMLDOCS" ]; then
-            echo "CATION: Fetching and installing newest ($rel) HTML docs..."
-            FILENAME="otp_doc_html_$rel.tar.gz"
-            download "$FILENAME"
-            echo "Extracting HTML docs"
-            (cd "$absdir" && mkdir -p html && \
-                tar -C "$absdir/html" -xzf "$KERL_DOWNLOAD_DIR/$FILENAME")
+            echo "CAUTION: Fetching and installing newest ($rel) HTML docs..."
+            do_install_htmldocs "$rel"
         fi
     fi
 
@@ -542,6 +528,23 @@ ACTIVATE
     echo "kerl_deactivate"
 }
 
+do_install_manpages()
+{
+    FILENAME=otp_doc_man_$1.tar.gz
+    download "$FILENAME"
+    echo "Extracting manpages"
+    cd "$absdir" && tar xfz "$KERL_DOWNLOAD_DIR/$FILENAME"
+}
+
+do_install_htmldocs()
+{
+    FILENAME="otp_doc_html_$1.tar.gz"
+    download "$FILENAME"
+    echo "Extracting HTML docs"
+    (cd "$absdir" && mkdir -p html && \
+        tar -C "$absdir/html" -xzf "$KERL_DOWNLOAD_DIR/$FILENAME")
+}
+
 do_deploy()
 {
     if [ -z "$1" ]; then