18 lines
995 B
Plaintext
Executable File
18 lines
995 B
Plaintext
Executable File
system("mkdir $ttaexpect/org");
|
|
system("mkdir $ttaexpect/new");
|
|
opendir(DIR, $setupfiles);
|
|
foreach $f (readdir(DIR)) {
|
|
next if ( -d $f );
|
|
if ( $f =~ /.exp$/ ) {
|
|
# If run this more than ones will overwrite expect org directory so use STTA org files instead !!!
|
|
# system ("cp $ttaexpect/$f $ttaexpect/org/$f ; chmod 755 $ttaexpect/org/$f");
|
|
system ("cp $setupfiles/org/$f $ttaexpect/org/$f ; chmod 755 $ttaexpect/org/$f");
|
|
system ("cp $setupfiles/$f $ttaexpect/$f ; chmod 755 $ttaexpect/$f");
|
|
system ("cp $setupfiles/$f $ttaexpect/new/$f ; chmod 755 $ttaexpect/new/$f");
|
|
print "<tr><td valign=top> $text{user_made} $f </td>\n";
|
|
}
|
|
}
|
|
closedir(DIR);
|
|
print "<tr><td>".&text('expect_back',"$ttaexpect/org")."</td></tr>\n";
|
|
print "<tr><td>".&text('expect_new',"$ttaexpect/new")."</td></tr>\n";
|