From: <ro...@us...> - 2003-07-29 15:59:01
|
Update of /cvsroot/ltp/ltp/testcases/network/tcp_cmds/rdist In directory sc8-pr-cvs1:/tmp/cvs-serv913/tcp_cmds/rdist Modified Files: generate.sh Log Message: Converted this script to perl. Index: generate.sh =================================================================== RCS file: /cvsroot/ltp/ltp/testcases/network/tcp_cmds/rdist/generate.sh,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- generate.sh 4 Oct 2001 18:41:13 -0000 1.3 +++ generate.sh 29 Jul 2003 15:58:57 -0000 1.4 @@ -1,4 +1,4 @@ -#!/bin/sh +#!/usr/bin/perl # # Copyright (c) International Business Machines Corp., 2001 # @@ -19,58 +19,55 @@ # # FILE: generate.sh # -# PURPOSE: Creates datafiles for use in network file transfer tests. +# PURPOSE: Creates data_dir for use in network file transfer tests. # # AUTHOR: Robbie Williamson (ro...@us...) # ############################################################################ +my $data_dir = 'datafiles'; +my $small_file = 'ascii.sm'; +my $small_size = 220; -COUNT=0 -LIMIT=10 - -mkdir datafiles 2>/dev/null - -for the_file in `echo ascii.sm ascii.med ascii.lg ascii.jmb` -do - rm -f datafiles/$the_file 2>/dev/null - while [ $COUNT -le $LIMIT ] - do - echo -n "AAAAAAAAAA" >> datafiles/$the_file - COUNT=$(( $COUNT + 1 )) - done - LIMIT=$(( $LIMIT * 20 )) - COUNT=0 - cat datafiles/$the_file > tmpfile - cat tmpfile >> datafiles/$the_file - rm -f tmpfile - chmod 666 datafiles/$the_file -done - -rm -f datafiles/bin.sm 2>/dev/null -rm -f datafiles/bin.med 2>/dev/null -rm -f datafiles/bin.lg 2>/dev/null -rm -f datafiles/bin.jmb 2>/dev/null - -gzip -3 -c datafiles/ascii.lg > datafiles/bin.sm -COUNT=0 -while [ $COUNT -lt 3 ] -do - gzip -9 -c datafiles/ascii.jmb >> datafiles/bin.med - COUNT=$(( $COUNT + 1 )) -done -COUNT=0 -while [ $COUNT -lt 12 ] -do - gzip -1 -c datafiles/ascii.jmb >> datafiles/bin.lg - COUNT=$(( $COUNT + 1 )) -done -COUNT=0 -while [ $COUNT -lt 144 ] -do - gzip -1 -c datafiles/ascii.jmb >> datafiles/bin.jmb - COUNT=$(( $COUNT + 1 )) -done -chmod 666 datafiles/bin.* +unless ( -d $data_dir ) { + mkdir($data_dir,0777) +} +chdir($data_dir); +unless (-f $small_file) { + open(DATAFILE, ">$small_file") or die "$0: could not create $small_file: $!\n"; + print DATAFILE 'A' x $small_size; + close(DATAFILE); + chmod 0666, $small_file; +} +chdir(".."); +unless (-f "datafiles/bin.sm") { + my $count=0; + while ( $count < 6 ) { + system("gzip -1 -c datafiles/ascii.sm >> datafiles/bin.sm"); + $count++; + } + system ("rm -f datafiles/ascii.sm"); +} +unless (-f "datafiles/bin.med") { + my $count=0; + while ( $count < 20 ) { + system("cat datafiles/bin.sm >> datafiles/bin.med"); + $count++; + } +} +unless (-f "datafiles/bin.lg") { + my $count=0; + while ( $count < 20 ) { + system("cat datafiles/bin.med >> datafiles/bin.lg"); + $count++; + } +} +unless (-f "datafiles/bin.jmb") { + my $count=0; + while ( $count < 20 ) { + system("cat datafiles/bin.lg >> datafiles/bin.jmb"); + $count++; + } +} +system("chmod 666 datafiles/bin.*"); -rm -f datafiles/ascii.* |