Merge pull request #50 from etu/master

Updated ponysay to support names like "Apple Jack" and list.pl to format those names

2 files changed, 5 insertions, 1 deletions

diff --git a/ponysay b/ponysay
index c856fd2..4a73cbe 100755
--- a/ponysay
+++ b/ponysay
@@ -270,7 +270,7 @@ while getopts $opts OPT; do
 	case ${OPT} in
 		v)  version; exit ;;
 		h)  usage; exit ;;
-		f)  ponies+=( "$OPTARG" ) ;;
+		f)  ponies=($(echo $OPTARG | sed -e 's/ //g' -e 's/,/\n/')) ;;
 		l)  list; exit ;;
 		L)  linklist; exit ;;
 		W)  wrap="$OPTARG" ;;
diff --git a/ponysaylist.pl b/ponysaylist.pl
index 7a09376..72c0a92 100755
--- a/ponysaylist.pl
+++ b/ponysaylist.pl
@@ -15,6 +15,10 @@ $maxw = 1;
 
 foreach $arg (@ARGV)
 {
+	# Format names from ponyies names
+	$arg =~ s/([a-z])([A-Z])/\1 \2/;
+	$arg =~ s/_(.*)/\t(\1)/;
+	
     if ($first == 1)
     {   $first = 0;
 	$scrw = $arg;