1 files changed, 0 insertions, 26 deletions
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";
-	    }   }
-    }   }
-}