From c8d249da189a0b449ece2c5a280d3f8c047e9363 Mon Sep 17 00:00:00 2001
From: Matt Dirba <matt@dirba.org>
Date: Fri, 17 Apr 2015 08:54:36 -0500
Subject: [PATCH] removed perl dependancy

---
 duplicity-backup.sh | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/duplicity-backup.sh b/duplicity-backup.sh
index 58eb713..4f067ed 100644
--- a/duplicity-backup.sh
+++ b/duplicity-backup.sh
@@ -401,7 +401,7 @@ get_remote_file_size()
     "ss")
       TMPDEST="${DEST#*://*/}"
       TMPDEST="${DEST%/${TMPDEST}}"
-      ssh_opt=`echo $STATIC_OPTIONS |perl -ne 'print "-i $1" if (/IdentityFile="?([^"]*)/);'`
+      ssh_opt=`echo $STATIC_OPTIONS |awk -vo="--ssh-options=" '{s=index($0,o); if (s) {s=substr($0,s+length(o)); m=substr(s,0,1); for (i=2; i < length(s); i++) { if (substr(s,i,1) == m && substr(s,i-1,1) != "\\") break; } print substr(s,2,i-2)}}'`
 
       SIZE=`${TMPDEST%://*} ${ssh_opt} ${TMPDEST#*//} du -hs ${DEST#${TMPDEST}/} | awk '{print $1}'` 2>> ${LOGFILE}
       EMAIL_SUBJECT="$EMAIL_SUBJECT $SIZE `${TMPDEST%://*} ${ssh_opt} ${TMPDEST#*//} df -hP ${DEST#${TMPDEST}/} | awk '{tmp=$5 " used"}END{print tmp}'`" 2>> ${LOGFILE}