1 files changed, 0 insertions, 92 deletions
diff --git a/scripts/stats.pl b/scripts/stats.pl
deleted file mode 100644
index 425261f..0000000
--- a/scripts/stats.pl
+++ /dev/null
@@ -1,92 +0,0 @@
-#!/usr/bin/perl
-
-# The yChat Project (2003, 2004)
-# The Xerl Project (2005, 2006)
-#
-# This script generates source code and project statistics
-
-use strict;
-
-use scripts::modules::file;
-
-my %stats;
-my $param = shift;
-
-recursive('.');
-
-$stats{"Lines total"} =
-  $stats{"Lines of source"} +
-  $stats{"Lines of scripts"} +
-  $stats{"Lines of text"} +
-  $stats{"Lines of CSS"} +
-  $stats{"Lines of XML"};
-
-unless ( defined $param ) {
-    print "$_ = " . $stats{$_} . "\n" for sort keys %stats;
-
-}
-else {
-    print $stats{$_} . ' ' for sort keys %stats;
-}
-
-print "\n";
-
-sub recursive {
-    my $shift = shift;
-    return unless -d $shift;
-    my @dir = dopen($shift);
-
-    foreach (@dir) {
-        next if /^\.$/o or /^\.{2}$/o;
-
-        if ( -f "$shift/$_" ) {
-            ++$stats{"Number of files total"};
-            filestats("$shift/$_");
-
-        }
-        elsif ( -d "$shift/$_" ) {
-            ++$stats{"Number of dirs total"};
-            recursive("$shift/$_");
-        }
-    }
-}
-
-sub filestats {
-    my $shift = shift;
-    if ( $shift =~ /\.(cpp|h|tmpl)$/o ) {
-        ++$stats{"Number of source files"};
-        $stats{"Lines of source"} += countlines($shift);
-
-    }
-    elsif ( $shift =~ /\.css$/o ) {
-        ++$stats{"Number of CSS files"};
-        $stats{"Lines of CSS"} += countlines($shift);
-
-    }
-    elsif ( $shift =~ /\.(gif|png|jpg)$/o ) {
-        ++$stats{"Number of gfx files"};
-
-    }
-    elsif ( $shift =~ /(\.xml)$/o ) {
-        ++$stats{"Number of XML files"};
-        $stats{"Lines of XML"} += countlines($shift);
-
-    }
-    elsif ( $shift =~ /(\.pl|\.pm|\.sh|configure.*|Makefile.*)$/o ) {
-        ++$stats{"Number of script files"};
-        $stats{"Lines of scripts"} += countlines($shift);
-
-    }
-    elsif ( $shift =~ /(\.txt|[A-Z]+)$/o ) {
-        ++$stats{"Number of text files"};
-        $stats{"Lines of text"} += countlines($shift);
-
-    }
-    elsif ( $shift =~ /\.so$/o ) {
-        ++$stats{"Number of compiled module files"};
-    }
-}
-
-sub countlines {
-    return scalar fopen shift;
-}