#!/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 = ; 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 = ; chop $user_directory; print ("fill in youre user name\n"); $user_name= ; 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 = ; chop $zevel; if ( $zevel eq "y" ) { print ("Enter the numbers Of PK to Create\n"); $PK_NUM = ; 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 = ; chop $zevel; if ( $zevel eq "y" ) { print ("Enter the OffSET for start Counting ID's\n"); $OFFSET = ; chop $OFFSET; } }