#!/usr/local/bin/perl
#runs on barbaree where the ftp files are with user root
use LWP::Simple;
############################################################################
# Title: PK Creator
# Author: Erez Ben Simon
# Last Update: 12/12/2000
############################################################################
$ROOT_PATH = "/install/ftp/publisher"; # Publisher FTP PATH
$PK_NUM = "10"; # Numbers Of PK to Create
$PRODUCER = "globecom" ; # Globecom Producer User
$PRODUCER_PASS = "inter5678"; # Globecom Producer Password
$OFFSET = "500"; # OffSET for start Counting ID's
$zevel = "n";
$user_directory = "Allobjects";
$user_name = "guyk";
###########################################################################
# MAIN
############################################################################
#Input_param ();
Duplicate_PK_Dir (); # Copy the first Pk direcotry with the assets
$bp = qx ("date");
system ("rsh -l oracle avazi publish_main.pl");
$ap = qx ("date");
print ("bp is $bp");
print ("ap is $ap");
############################################################################
sub Duplicate_PK_Dir
############################################################################
{
system ("rm -rf \/install\/ftp\/publisher\/globecom\n");
system ("cp -r \/public\/home\/$user_name\/$user_directory $ROOT_PATH\/$PRODUCER\n");
print ("$ROOT_PK_DIR...");
system ("chmod -R 777 $ROOT_PATH\/$PRODUCER");
for ( $i=$OFFSET; $i < $PK_NUM+$OFFSET; $i++ )
{
system ("cp -r $ROOT_PATH\/$PRODUCER $ROOT_PATH\/$PRODUCER$i");
system ("chmod -R 777 $ROOT_PATH\/$PRODUCER$i");
print("copy $ROOT_PATH\/$PRODUCER to $ROOT_PATH\/$PRODUCER$i \n");
}
} ##Duplicate_PK_Dir
############################################################################
sub Input_param
############################################################################
{
print ("Select your choice:\n");
print ("1. publish a simple pk made of 1 picture only\n");
print ("2. publish a large pk made of all objects known\n");
print ("3. publish your own pk\n");
$zevel = <STDIN>;
chop $zevel;
if ( $zevel eq "1" )
{
$user_directory = "simplePK";
$user_name = "guyk";
}
if ( $zevel eq "2" )
{
$user_directory = "Allobjects";
$user_name = "guyk";
}
if ( $zevel eq "3" )
{
print ("move an un published publish.xml and all of its resources into\n");
print ("a file in you're home directory, now fill in this file name\n");
$user_directory = <STDIN>;
chop $user_directory;
print ("fill in youre user name\n");
$user_name= <STDIN>;
chop $user_name;
}
print ("The numbers Of PK to Create is $PK_NUM \n" );
print ("Do you want to change the numbers Of PK to Create ? (y or n)\n");
$zevel = <STDIN>;
chop $zevel;
if ( $zevel eq "y" )
{
print ("Enter the numbers Of PK to Create\n");
$PK_NUM = <STDIN>;
chop $PK_NUM;
print ("$PK_NUM\n");
}
print ("The OffSET for start Counting ID's is $OFFSET\n" );
print ("Do you want to change the OffSET for start Counting ID's? (y or n)\n");
$zevel = <STDIN>;
chop $zevel;
if ( $zevel eq "y" )
{
print ("Enter the OffSET for start Counting ID's\n");
$OFFSET = <STDIN>;
chop $OFFSET;
}
}