[Affelio-cvs 233] CVS update: affelio/lib/Affelio/Managing

Back to archive index

Tadashi Okoshi slash****@users*****
2005年 6月 28日 (火) 16:44:53 JST


Index: affelio/lib/Affelio/Managing/AccessLogManager.pm
diff -u /dev/null affelio/lib/Affelio/Managing/AccessLogManager.pm:1.1
--- /dev/null	Tue Jun 28 16:44:53 2005
+++ affelio/lib/Affelio/Managing/AccessLogManager.pm	Tue Jun 28 16:44:53 2005
@@ -0,0 +1,56 @@
+# Affelio: Open social networking software
+# Copyright 2004-2005 Fish Grove
+# For more information, please refer following web site.
+#    http://affelio.jp/ (Japan)
+#    http://affelio.jp/ (USA and other area)
+#
+# $Id: AccessLogManager.pm,v 1.1 2005/06/28 07:44:53 slash5234 Exp $
+
+package Affelio::Managing::AccessLogManager;
+{
+    use strict;
+    use lib("../../../extlib");    
+    use DBI;
+    use Jcode;
+    use lib("../../");
+    use Affelio::misc::CGIError;
+    use Affelio::misc::Time qw(get_timestamp);
+    use Affelio::misc::Encoding qw(db_encode db_decode);
+    use Affelio::misc::Debug qw(debug_print);
+    use Affelio::NetLib::Email qw(send_email);
+
+    #######################################################################
+    #Constructor
+    #######################################################################
+    sub new{
+	my $class = shift;
+	my $af = shift;
+
+	debug_print("AccessLogManager::new: start.");
+
+	my $self = {af => $af
+		    };
+
+	bless $self, $class;
+
+	debug_print("AccessLogManager::new: end.");
+	return $self;
+    }
+
+    #######################################################################
+    #save_log
+    #######################################################################
+    sub save_log{
+	my $self=shift;
+
+	#af_id
+    }
+
+    #######################################################################
+    #get_log
+    #######################################################################
+
+}#package
+1;
+
+


Affelio-cvs メーリングリストの案内
Back to archive index