[Affelio-cvs 735] CVS update: affelio/lib/Affelio/App/Admin

Back to archive index

Tadashi Okoshi slash****@users*****
2005年 11月 1日 (火) 13:46:55 JST


Index: affelio/lib/Affelio/App/Admin/MakeFriend.pm
diff -u /dev/null affelio/lib/Affelio/App/Admin/MakeFriend.pm:1.1
--- /dev/null	Tue Nov  1 13:46:55 2005
+++ affelio/lib/Affelio/App/Admin/MakeFriend.pm	Tue Nov  1 13:46:55 2005
@@ -0,0 +1,57 @@
+# Copyright (C) 2005 FishGrove Inc.
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+#
+# $Id: MakeFriend.pm,v 1.1 2005/11/01 04:46:55 slash5234 Exp $
+
+package Affelio::App::Admin::MakeFriend;
+{
+    use strict;
+
+    use lib("../../../../extlib/");
+    use lib("../../../");
+    use Affelio;
+    use Affelio::misc::CGIError;
+    use Affelio::misc::Debug qw(debug_print);
+    use Affelio::misc::Encoding qw(db_encode db_decode);
+    use Affelio::misc::Time;
+    use Affelio::misc::WebInput;
+
+    use Exporter;
+    @Affelio::App::Admin::MakeFriend::ISA = "Exporter";
+    @Affelio::App::Admin::MakeFriend::EXPORT = qw (show);
+
+
+    #######################################################################
+    #show
+    #######################################################################    
+    sub show{
+	my $af= shift;
+	my $q=shift;
+	my $output_ref = shift;
+	my $wi = new Affelio::misc::WebInput;
+
+	debug_print("MakeFriend::show start.");
+
+	my $dest_uri = $wi->PTN_URL($q->url_param("dest_url"));
+
+	$output_ref->{"dest_uri"} = $dest_uri;
+
+	debug_print("MakeFriend::show end.");
+    }
+
+
+}
+1;


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