rename tag name

Changelog

@@ -0,0 +1,39 @@
+$Id: Changelog,v 1.5 2006-12-01 10:01:47 oops Exp $
+
+Perl KRISP Module Changelog
+
+
+*1.2.0
+--------------------------------------------------------------------------------
+Fri Dec  1 2006
+by JoungKyun.Kim <http://www.oops.org>
+	- release 1.2.0
+
+Wed Nov 29 2006
+by JoungKyun.Kim <http://www.oops.org>
+	- support over libkrisp 2.1.0
+	- support userdb support
+
+
+*1.1.1
+--------------------------------------------------------------------------------
+Thu Sep 15 2006
+by JoungKyun.Kim <http://www.oops.org>
+	- 1.1.1 release
+	- add geoip city flag in new declear
+
+
+*1.1.0
+--------------------------------------------------------------------------------
+Thu Sep  9 2006
+by JoungKyun.Kim <http://www.oops.org>
+	- 1.1.0 release
+	- required over libkrisp 2.0.0
+	- support several geoip extensions
+
+
+*1.0.0
+--------------------------------------------------------------------------------
+Mon Jun 26 2006
+by JoungKyun.Kim <http://www.oops.org>
+	- 1.0.0 release

INSTALL

@@ -0,0 +1,14 @@
+$Id: INSTALL,v 1.1 2006-06-26 12:40:57 oops Exp $
+
+KRISP perl module installation
+
+
+1. perl Makefile.PL
+2. make
+3. make install
+
+for test:
+
+after installation and mv test.pl.in test.pl
+and execute ./test.pl
+

KRISP.pm

@@ -0,0 +1,85 @@
+# This file was automatically generated by SWIG
+package KRISP;
+
+use vars qw (@VERSOIN @EXPORT);
+
+require Exporter;
+require DynaLoader;
+
+@ISA = qw(Exporter DynaLoader);
+$VERSION = "1.2.0";
+
+package KRISP;
+bootstrap KRISP;
+package KRISP;
+
+@EXPORT = qw(krisp_open_pl krisp_search_pl krisp_close_pl krisp_version_pl krisp_uversion_pl krisp_error_pl);
+
+sub new {
+	my $self = {};
+
+	my ($dummy, $city) = @_;
+	$self->{city} = $city ? 1 : 0;
+
+	return bless $self;
+}
+
+sub krisp_version {
+	my $self = shift if ref ($_[0]);
+
+	return krisp_version_pl ();
+}
+
+sub krisp_uversion {
+	my $self = shift if ref ($_[0]);
+
+	return krisp_uversion_pl ();
+}
+
+sub krisp_error {
+	my $self = shift if ref ($_[0]);
+
+	return krisp_error_pl ();
+}
+
+sub krisp_open {
+	my $self = shift if ref ($_[0]);
+	my ($datafile) = @_;
+	my $r;
+
+	$r = krisp_open_pl ($datafile, $self->{city});
+
+	return "" if ( $r == NULL );
+
+	return $r;
+}
+
+sub krisp_search {
+	my $self = shift if ref ($_[0]);
+	my ($dbh, $host) = @_;
+	my $data, @d;
+	my $ret, @ars;
+
+	@ars = qw (key ip netmask network broadcast icode iname ccode cname city region);
+
+	$data = krisp_search_pl ($dbh, $host);
+
+	return "" if ( ! $data );
+
+	@d = split /:/, $data;
+
+	for my $i ( 0 .. 10 ) {
+		$ret->{"$ars[$i]"} = $d[$i];
+	}
+
+	return $ret;
+}
+
+sub krisp_close {
+	my $self = shift if ref ($_[0]);
+	my ($dbh) = @_;
+
+	krisp_close_pl ($dbh);
+}
+
+1;