Index: unk/PS-IPP-Config/lib/PS/IPP/Metadata/StatsFilter.pm
===================================================================
--- /trunk/PS-IPP-Config/lib/PS/IPP/Metadata/StatsFilter.pm	(revision 8967)
+++ 	(revision )
@@ -1,68 +1,0 @@
-# Copyright (c) 2006  Joshua Hoblitt
-#
-# $Id: StatsFilter.pm,v 1.3 2006-09-07 02:26:27 jhoblitt Exp $
-
-package PS::IPP::Metadata::StatsFilter;
-
-use strict;
-use warnings FATAL => qw( all );
-
-our $VERSION = '0.01';
-
-use Carp qw( carp croak );
-
-# GAIN is an awful hack for ISP data which does not define a rotator position
-# angle
-
-our %HEADER_MAP = qw(
-    CCDTEMP     DETTEM
-    ALT         TELALT
-    AZ          TELAZ
-    EXPTIME     CELL.EXPOSURE
-    ROTANGLE    FPA.POSANGLE
-);
-
-sub new
-{
-    my $class = shift;
-
-    return bless {}, ref $class || $class;
-}
-
-sub filter 
-{
-    my ($self, $mdc) = @_;
-
-    unless (ref $mdc eq 'ARRAY') {
-        carp "$mdc is not an array ref";
-        return;
-    }
-
-    OUTER:
-    foreach my $entry (@$mdc) {
-        # recurse on nested metadata
-        if ($entry->{class} eq 'metadata') {
-            unless ($self->filter($entry->{value})) {
-                carp "failed to recursively process nested metadata";
-                return;
-            }
-        }
-    
-        foreach my $key (keys %HEADER_MAP) {
-            # is the name of this entry in the HEADER_MAP?
-            if ($entry->{name} eq $key) {
-                # then rename it 
-                $entry->{name} = $HEADER_MAP{$key};
-                # restart the HEADER_MAP name match for this entry.  This is to
-                # allow HEADER_MAP entries to be aliases to other entries
-                redo OUTER;
-            }
-        }
-    }
-
-    return $mdc;
-}
-
-1;
-
-__END__