1 files changed, 0 insertions, 101 deletions
diff --git a/fml/lib/FML/Filter/TrafficMonitor.pm b/fml/lib/FML/Filter/TrafficMonitor.pm
deleted file mode 100644
index 0c4f1637..00000000
--- a/fml/lib/FML/Filter/TrafficMonitor.pm
+++ /dev/null
@@ -1,101 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
-#   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself.
-#
-# $FML: TrafficMonitor.pm,v 1.9 2002/12/20 03:44:05 fukachan Exp $
-#
-
-package FML::Filter::TrafficMonitor;
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-use Carp;
-
-=head1 NAME
-
-FML::Filter::TrafficMonitor - Mail Traffic Information
-
-=head1 SYNOPSIS
-
-=head1 DESCRIPTION
-
-=head1 METHODS
-
-=head2 C<new()>
-
-constructor.
-
-=cut
-
-use File::CacheDir;
-@ISA = qw(File::CacheDir);
-
-#
-# XXX-TODO: NOT IMPLEMENTED.
-#
-
-
-# Descriptions: constructor.
-#    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: none
-# Return Value: OBJ
-sub new
-{
-    my ($self, $args) = @_;
-    my ($type) = ref($self) || $self;
-    my $me     = {};
-    return bless $me, $type;
-}
-
-
-# Descriptions: open cache and return C<File::CacheDir> object.
-#    Arguments: OBJ($self) STR($db) HASH_REF($args)
-# Side Effects: update $self->{ _obj }
-# Return Value: none
-sub _open_cache
-{
-    my ($self, $db, $args) = @_;
-    my $dir  = $args->{ 'directory' };
-    my $mode = 'temporal';
-    my $days = 14;
-
-    if ($dir) {
-        my $obj = new File::CacheDir {
-            directory  => $dir,
-            cache_type => $mode,
-            expires_in => $days,
-        };
-
-        $self->{ _obj } = $obj;
-        return $obj;
-    }
-
-    undef;
-}
-
-
-=head1 CODING STYLE
-
-See C<http://www.fml.org/software/FNF/> on fml coding style guide.
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself.
-
-=head1 HISTORY
-
-FML::Filter::TrafficMonitor first appeared in fml8 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-
-1;