#!/usr/local/bin/perl
 
use LWP::Simple;
 
############################################################################
# Title:  PK Creator
# Author: Erez Ben Simon
# Last Update: 12/12/2000
############################################################################

$ROOT_PATH = "/public/home/ftp/publisher"; # Publisher FTP PATH
$PK_NUM = "10";                            # Numbers Of PK to Create
$SERVER = "avazi.globecom.net";            # Publisher server Host name
$SQLFILE = "createpks.sql" ;               # File for the SQL script
$DBUSER = "globalsale" ;                   # DataBase User Name
$PRODUCER = "globecom" ;                   # Producer User
$DBPASS = "informix" ;                     # DataBase Password
$ACCOUNT_ID = "1";                         # Acount ID
$CREATE_DATE = "30JAN01";                  # PK Creation Date
$PUB_DATE  = "30JAN01";                     #PK Publishing Date
$SCHED_DATE = "30JAN01";                   # PK Distribution Date
$ACTV_DATE = "30JAN01";                    # PK Activation Date

Duplicate_PK_In_DB  ();     #  Insert $PK_NUM PKS to the PK Table.
#Duplicate_PK_Dir    ();    #  Copy the first Pk direcotry with the assets
#Request_Publish     ();    #  Requesting Publishing using http requests




############################################################################
sub Duplicate_PK_In_DB      
############################################################################

{
  system("clear");
  print (" Duplicate_PK_In_DB ");
  open (FILE, "> $SQLFILE");
  system ("del $SQLFILE");
  print ("writing to SQL file.");
  for ( $i=500; $i <= $PK_NUM+500 ; $i++ )
    {
    print FILE ("insert into PK (PK_ID, ROOT_PK, CREATION_DATE ,PUBLISHING_DATE, ACCOUNT_ID, CONTENT_BASE_ID,NAME, PRODUCER_ID, DISTRIBUTION_DATE, ACTIVATION_DATE, STATUS) values ('$i','$i', '$CREATE_DATE', '$PUB_DATE', $ACCOUNT_ID', '0', 'QAPK$i', '2', '$SCHED_DATE','$ACTV_DATE ', '8');\n");

     # print FILE (" insert into profile_pk (profile,pk_id,root_pk,last_pk_id) values ('0',$i,$i,0)
      #  insert into PK_SP (PK_ID,SP_ID) values ('$i','1')

       }

    print FILE ("commit;\n");
    print FILE ("exit;");
    run_sql();

}   ##Duplicate_PK_In_DB

 ############################################################################
 sub Duplicate_PK_Dir      
 ############################################################################

 {
    print ("$ROOT_PK_DIR...");
    for ( $i=2; $i <= $PK_NUM; $i++ )
    {
      system ("cp -r  $ROOT_PATH\/${PRODUCER}1 $ROOT_PATH\/$PRODUCER$i");
      print("copy $ROOT_PATH\/${PRODUCER}1 to $ROOT_PATH\/$PRODUCER$i \n");
    }

 }  ##Duplicate_PK_Dir





##############################################################################
sub Request_Publish   
##############################################################################
{

#system ("clear");

$get = get "http://$SERVER/publishVersion?versionId=$i&userName=$DBUSER&userPassword=$DBPASS";

for ( $i=2; $i <= $PK_NUM; $i++ )
    {
    print $get;  
    }

}   ##Publish_Version

#############################################################################
sub run_sql     
#############################################################################
{
     system ("sqlplus $DBUSER/$DBPASS \@$SQLFILE");

}   ##run_sql






#
scheduling #######################

#
insert into scheduler_tab (pk_id,node_id,status) values ('$i','$NODE','0')

#
NODE #################
# 
insert into nodes (node_id,name,node_type,group_type,comp_name) values ('100','$HOST','GIN','NOD','$HOST')
# 
insert into location (location_id,contact,country_id) values ('200','globecom-interactive','1')
# 
insert into node_datails (node_id,time_zone,Location_id,is_r_and_d) values ('$i','12','200','0')