discard sql model based framework

1 files changed, 0 insertions, 201 deletions

diff --git a/fml/lib/IO/Adapter/SQL/toymodel.pm b/fml/lib/IO/Adapter/SQL/toymodel.pm
deleted file mode 100644
index bac5a351..00000000
--- a/fml/lib/IO/Adapter/SQL/toymodel.pm
+++ /dev/null
@@ -1,201 +0,0 @@
-#-*- perl -*-
-#
-# Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
-#          All rights reserved.
-#
-# $FML: toymodel.pm,v 1.8 2002/02/01 12:03:59 fukachan Exp $
-#
-
-
-package IO::Adapter::SQL::toymodel;
-
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-use Carp;
-
-my $debug = 0;
-
-=head1 NAME
-
-IO::Adapter::SQL::toymodel - SQL statement dependent on toymodel
-
-=head1 SYNOPSIS
-
-  use IO::Adapter::SQL::toymodel;
-  $obj = new IO::Adapter::SQL::toymodel;
-
-=head1 DESCRIPTION
-
-SQL::Schema modules hold SQL statement dependent on each specific
-model.
-
-=head1 METHODS
-
-=cut
-
-
-# Descriptions: add $addr
-#               create an SQL query and exetute it
-#    Arguments: OBJ($self) STR($addr)
-# Side Effects: update DB via SQL
-# Return Value: STR
-sub add
-{
-    my ($self, $addr) = @_;
-
-    print STDERR "add( $addr )\n" if $debug;
-
-    my $query = $self->_build_sql_query({
-	query   => 'add',
-	address => $addr,
-    });
-    $self->execute({ query => $query });
-}
-
-
-# Descriptions: delete $addr
-#               create an SQL query and exetute it
-#    Arguments: OBJ($self) STR($addr)
-# Side Effects: update DB via SQL
-# Return Value: STR
-sub delete
-{
-    my ($self, $addr) = @_;
-
-    print STDERR "delete( $addr )\n" if $debug;
-
-    my $query = $self->_build_sql_query({
-	query   => 'delete',
-	address => $addr,
-    });
-    $self->execute({ query => $query });
-}
-
-
-# Descriptions: get one entry from DBMS
-#               create an SQL query and exetute it
-#    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: update DB via SQL
-# Return Value: STR
-sub fetch_all
-{
-    my ($self, $args) = @_;
-
-    my $query = $self->_build_sql_query({
-	query   => 'get_next_value',
-    });
-    $self->execute({ query => $query });
-}
-
-
-# Descriptions: search, md = map dependent
-#               create an SQL query and exetute it
-#    Arguments: OBJ($self) STR($regexp) HASH_REF($args)
-# Side Effects: update DB via SQL
-# Return Value: STR or ARRAY_REF
-sub md_find
-{
-    my ($self, $regexp, $args) = @_;
-    my $case_sensitive = $args->{ case_sensitive } ? 1 : 0;
-    my $show_all       = $args->{ all } ? 1 : 0;
-    my (@buf, $x);
-
-    my $query = $self->_build_sql_query({
-	query  => 'search',
-	regexp => $regexp,
-    });
-    $self->execute({ query => $query });
-
-    if (defined $self->{ _res }) {
-	my ($row);
-	while (defined ($row = $self->{ _res }->fetchrow_arrayref)) {
-	    $x = join(" ", @$row);
-
-	    if ($show_all) {
-		if ($case_sensitive) {
-		    push(@buf, $x) if $x =~ /$regexp/;
-		}
-		else {
-		    push(@buf, $x) if $x =~ /$regexp/i;
-		}
-	    }
-	    else {
-		if ($case_sensitive) {
-		    last if $x =~ /$regexp/;
-		}
-		else {
-		    last if $x =~ /$regexp/i;
-		}
-	    }
-	}
-    }
-    else {
-	return undef;
-    }
-
-   $show_all ? \@buf : $x;
-}
-
-
-# Descriptions: build SQL statement, (not execute but build SQL string only)
-#
-#                   $args = {
-#               	query   => 'add',
-#               	address => 'rudo@nuinui.net',
-#               	_params => {
-#               	    ml_name => 'elena',
-#               	    file    => 'actives',
-#               	},
-#                   }
-#
-#    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: none
-# Return Value: STR(SQL statement)
-sub _build_sql_query
-{
-    my ($self, $args) = @_;
-    my $query   = $args->{ query };
-    my $address = $args->{ address };
-
-    # inherit parameter from object
-    my $ml_name = $self->{ _params }->{ ml_name };
-    my $file    = $self->{ _params }->{ file };
-    my $table   = $self->{ _table };
-
-    print STDERR "_build_sql_query( query=$query )\n" if $debug;
-
-    if ($query eq 'add') {
-	"insert into $table values ('$ml_name', '$file', '$address', 0, 0)";
-    }
-    elsif ($query eq 'delete') {
-	"delete from $table where ml='$ml_name' and address='$address'";
-    }
-    elsif ($query eq 'search') {
-	my $p = $args->{ 'regexp' };
-	"select address from $table where address like '\%${p}\%'";
-    }
-    else {
-	"select address from $table where ml='$ml_name' and file='$file'";
-    }
-}
-
-
-=head1 AUTHOR
-
-Ken'ichi Fukamchi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001,2002 Ken'ichi Fukamchi
-
-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
-
-IO::Adapter appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-1;