Index: openacs-4/contrib/packages/payflowpro/sql/oracle/payflowpro-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/payflowpro/sql/oracle/payflowpro-sc-create.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/payflowpro/sql/oracle/payflowpro-sc-create.sql	23 Dec 2003 15:54:45 -0000	1.1.2.1
@@ -0,0 +1,98 @@
+--  This is an implementation of the PaymentGateway service contract for
+--  Verisign's PayFlow Pro payment service
+
+-- Don't forget to look at valid_uninstalled_bindings and then use 
+-- acs_sc_binding to create the necessary bindings, at least until this
+-- stuff works on Oracle!  And you have to restart after you create them,
+-- too.
+
+
+declare
+  foo integer;
+begin
+  foo := acs_sc_impl.new(
+	   'PaymentGateway',               	-- impl_contract_name
+           'payflowpro',                        -- impl_name
+           'Payment Gateway',                   -- impl_pretty_name
+	   'payflowpro'                         -- impl_owner_name
+  );
+
+  foo := acs_sc_impl.new_alias(
+           'PaymentGateway',			-- impl_contract_name
+           'payflowpro',			-- impl_name
+	   'Authorize', 			-- impl_operation_name
+	   'payflowpro.Authorize', 		-- impl_alias
+	   'TCL'    				-- impl_pl
+  );
+
+  foo := acs_sc_impl.new_alias(
+           'PaymentGateway',			-- impl_contract_name
+           'payflowpro',			-- impl_name
+	   'ChargeCard', 			-- impl_operation_name
+	   'payflowpro.ChargeCard', 	        -- impl_alias
+	   'TCL'    				-- impl_pl
+  );
+
+  foo := acs_sc_impl.new_alias(
+           'PaymentGateway',			-- impl_contract_name
+           'payflowpro',			-- impl_name
+	   'Return', 				-- impl_operation_name
+	   'payflowpro.Return', 		-- impl_alias
+	   'TCL'    				-- impl_pl
+  );
+
+  foo := acs_sc_impl.new_alias(
+           'PaymentGateway',			-- impl_contract_name
+           'payflowpro',			-- impl_name
+	   'Void', 				-- impl_operation_name
+	   'payflowpro.Void', 		        -- impl_alias
+	   'TCL'    				-- impl_pl
+  );
+
+  foo := acs_sc_impl.new_alias(
+           'PaymentGateway',			-- impl_contract_name
+           'payflowpro',			-- impl_name
+	   'Info', 				-- impl_operation_name
+	   'payflowpro.Info', 		        -- impl_alias
+	   'TCL'    				-- impl_pl
+  );
+end;
+/
+show errors
+
+declare
+        foo integer;
+begin
+
+        -- Add the binding
+        acs_sc_binding.new (
+            contract_name => 'PaymentGateway',
+            impl_name => 'payflowpro'
+        );
+end;
+/
+show errors
+
+
+-- NOTE - this stuff is here because the naming is instance-specific.  I'm
+-- not sure that is correct;  it would be better if it could be part of the
+-- PaymentGateway specification.  However, for the purposes of an initial
+-- release this will do.
+
+-- In addition to all the usual service contract definitions, we also need
+-- a table which will be used to log results of all our operations.  The
+-- table is modeled after ec_cybercash_log in the old 3.x ecommerce code.
+-- I tried to simplify it quite a bit, which means it will probably need more
+-- columns added to it when it is actually being used in real life.
+--
+create table payflowpro_result_log (
+  transaction_id            varchar(20),
+  txn_attempted_type        varchar(25),
+  txn_attempted_time        date,
+  txn_returned_type         varchar(25),
+  errmsg                    varchar(200),
+  auth_code                 varchar(25),
+  avs_code_zip              varchar(3),
+  avs_code_addr             varchar(3),
+  amount                    number
+);