From ce3fac588fb84a109244b9c3d60aba4fc247a86f Mon Sep 17 00:00:00 2001
From: Mattias Andrée <maandree@operamail.com>
Date: Sat, 18 Aug 2012 15:15:57 +0200
Subject: adding .sh to shell version + removing old files

---
 pq4ps.pl | 26 --------------------------
 1 file changed, 26 deletions(-)
 delete mode 100755 pq4ps.pl

(limited to 'pq4ps.pl')

diff --git a/pq4ps.pl b/pq4ps.pl
deleted file mode 100755
index 2f45053..0000000
--- a/pq4ps.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/perl
-
-opendir(DIR, $ARGV[0]."/share/ponysay/ponies/");
-@files = readdir(DIR); 
-
-opendir(DIR, $ARGV[0]."/share/ponysay/quotes/");
-@quotes = readdir(DIR); 
-
-
-foreach $file (@files)
-{
-    $_ = $file;
-    $_ =~ s/\.pony$//g;
-    $f = $_;
-    if (! /^\./)
-    {   foreach $quote (@quotes)
-	{
-	    $_ = $quote;
-	    $_ =~ s/\.\d+//g;
-	    $_ = '+'.$_.'+';
-	    if (! /^\./)
-	    {   if (/\+$f\+/)
-		{   print $f."@".$quote."\n";
-	    }   }
-    }   }
-}
-- 
cgit