# Mark Huang <mlhuang@cs.princeton.edu>
# Copyright (C) 2006 The Trustees of Princeton University
#
-# $Id: functions,v 1.4 2006/04/25 21:18:19 mlhuang Exp $
+# $Id: functions,v 1.7 2007/01/19 17:12:45 mlhuang Exp $
#
export PATH=/sbin:/bin:/usr/bin:/usr/sbin
perl -MSocket -e '($a,$b,$c,$d,@addrs) = gethostbyname($ARGV[0]); print inet_ntoa($addrs[0]) . "\n";' $1 2>/dev/null
}
-# Print the CNAME of an SSL certificate
-ssl_cname ()
+# Forcefully make a symlink
+symlink ()
{
- openssl x509 -noout -in $1 -subject | \
- sed -n -e 's@.*/CN=\([^/]*\).*@\1@p'
+ mkdir -p $(dirname $2)
+ rm -f $2
+ ln -s $1 $2
}
-# Print the emailAddress of an SSL certificate
-ssl_email ()
+# Argument(s) or stdin to lowercase stdout
+lower ()
{
- openssl x509 -noout -in $1 -subject | \
- sed -n -e 's@.*/emailAddress=\([^/]*\).*@\1@p'
+ if [ ${#*} -ge 1 ] ; then
+ tr A-Z a-z <<<$*
+ else
+ tr A-Z a-z
+ fi
}
-# Forcefully make a symlink
-symlink ()
+# Argument(s) or stdin to uppercase stdout
+upper ()
{
- mkdir -p $(dirname $2)
- rm -f $2
- ln -s $1 $2
+ if [ ${#*} -ge 1 ] ; then
+ tr a-z A-Z <<<$*
+ else
+ tr a-z A-Z
+ fi
}
# Make copies of stdout and stderr. The plc initscript redirects