#!/usr/local/bin/perl -T

###############################################################################
# Program     : write_test.pl
# Author      : Eric Deutsch <edeutsch@systemsbiology.org>
# $Id$
#
# Description : This script is a test of the updateOrInsertRow() and
#               executeSQL() APIs
#
# SBEAMS is Copyright (C) 2000-2005 Institute for Systems Biology
# This program is governed by the terms of the GNU General Public License (GPL)
# version 2 as published by the Free Software Foundation.  It is provided
# WITHOUT ANY WARRANTY.  See the full description of GPL terms in the
# LICENSE file distributed with this software.
#
###############################################################################


###############################################################################
# Generic SBEAMS script setup
###############################################################################
use strict;
use Getopt::Long;
use vars qw ($sbeams
             $PROG_NAME $USAGE %OPTIONS $QUIET $VERBOSE $DEBUG $DATABASE
             $TESTONLY
             $current_contact_id $current_username
             $current_work_group_id $current_work_group_name
             $current_project_id $current_project_name);
use lib qw (../perl ../../perl);


#### Set up SBEAMS package
use SBEAMS::Connection;
use SBEAMS::Connection::Settings;
use SBEAMS::Connection::Tables;
use SBEAMS::Connection::TableInfo;
$sbeams = new SBEAMS::Connection;


#### Set program name and usage banner
$PROG_NAME = "example.pl";
$USAGE = <<EOU;
Usage: $PROG_NAME [OPTIONS] parameters
Options:
  --verbose n         Set verbosity level.  default is 0
  --quiet             Set flag to print nothing at all except errors
  --debug n           Set debug flag
  --debug             Set to not actually write to database
  --database xxxx     Database where the default tables are found

 e.g.:  $PROG_NAME foo

EOU


#### Process options
unless (GetOptions(\%OPTIONS,"verbose:s","quiet","debug:s","testonly",
  "database:s")) {
  print "$USAGE";
  exit;
}
$VERBOSE = $OPTIONS{"verbose"} || 0;
$QUIET = $OPTIONS{"quiet"} || 0;
$DEBUG = $OPTIONS{"debug"} || 0;
$TESTONLY = $OPTIONS{"testonly"} || 0;
if ($DEBUG) {
  print "Options settings:\n";
  print "  VERBOSE = $VERBOSE\n";
  print "  QUIET = $QUIET\n";
  print "  DEBUG = $DEBUG\n";
  print "  DBVERSION = $DBVERSION\n";
}


$| = 1;
main();
exit 0;


###############################################################################
# Main Program:
#
# Call $sbeams->Authentication and stop immediately if authentication
# fails else continue, else execute the important part of this script
###############################################################################
sub main { 

  #### Do the SBEAMS authentication and exit if a username is not returned
  exit unless ($current_username =
    $sbeams->Authenticate(work_group=>'Microarray_user'));

  #### Print the header, do what the program does, and print footer
  $sbeams->printTextHeader();
  showMainPage();
  $sbeams->printTextFooter();

} # end main


###############################################################################
# Show the main welcome page
###############################################################################
sub showMainPage {

  #### Define standard variables
  my ($i,$element,$key,$value,$line,$result,$sql);

  $current_username = $sbeams->getCurrent_username;
  $current_contact_id = $sbeams->getCurrent_contact_id;
  $current_work_group_id = $sbeams->getCurrent_work_group_id;
  $current_work_group_name = $sbeams->getCurrent_work_group_name;
  $current_project_id = $sbeams->getCurrent_project_id;
  $current_project_name = $sbeams->getCurrent_project_name;


  $sbeams->printUserContext(style=>'TEXT');

  print qq!
      You are successfully logged into the $DBTITLE system.  Your
      task would go here and do whatever you like.
  !;


  #### Test write to a table
  my $sql = "INSERT INTO sbeams.dbo.test ( varcharfield ) VALUES ('foo')";
  my $returned_error = 'N/A';
  my $result = $sbeams->executeSQL($sql);
  print "\nresult = ",$result,"\n";


  #### Test write to a table
  $sql = "INSERT INTO sbeams.dbo.test ( charfield ) VALUES ('foo')";
  $returned_error = 'YES';
  $result = $sbeams->executeSQL(sql=>$sql,return_error=>\$returned_error);
  print "\nresult = ",$result,"\n";
  print "returned_error = ",$returned_error,"\n";


  #### Test write to a table
  $sql = "INSERT INTO sbeams.dbo.test ( varcharfield ) VALUES ('foo2')";
  $returned_error = 'YES';
  $result = $sbeams->executeSQL(sql=>$sql,return_error=>\$returned_error);
  print "\nresult = ",$result,"\n";
  print "returned_error = ",$returned_error,"\n";


  #### Test updateOrInsertRow()
  my %rowdata = ( varcharfield => 'bozo' );
  $returned_error = 'YES';
  $result = $sbeams->updateOrInsertRow(
    insert=>1,
    table_name=>'sbeams.dbo.test',
    rowdata_ref=>\%rowdata,
    PK=>'test_id',
    return_PK=>1,
    return_error=>\$returned_error,
    verbose=>$VERBOSE,
    testonly=>$TESTONLY,
  );
  print "\nresult = ",$result,"\n";
  print "returned_error = ",$returned_error,"\n";



  #### Test updateOrInsertRow()
  %rowdata = ( charfield => 'bozo' );
  $returned_error = 'YES';
  $result = $sbeams->updateOrInsertRow(
    insert=>1,
    table_name=>'sbeams.dbo.test',
    rowdata_ref=>\%rowdata,
    PK=>'test_id',
    #PK_value=>21,
    return_PK=>1,
    return_error=>\$returned_error,
    verbose=>$VERBOSE,
    testonly=>$TESTONLY,
    #add_audit_parameters=>1,
  );
  print "\nresult = ",$result,"\n";
  print "returned_error = ",$returned_error,"\n";




} # end showMainPage