After interacting with the server host, it works fine in the following ways:
(1) Create a cgi file with the following script and upload it to cgi-bin /,
Change to attribute 700 and access the file.
<Script to get tmp file list>
#!/usr/local/bin/perl
main:{
print “Content-type:text/html¥n¥n”;
print “<HTML>¥n”;
opendir(DIR, “/tmp”) || die;
while( $file = readdir(DIR) ){
if( -o “/tmp/${file}” ){
print “OK /tmp/${file}<br />¥n”;
}
}
print “</HTML>¥n”;
}
(2) When the list of temporary files is displayed on the screen, use the following script.
Create a cgi file, upload it to cgi-bin /, change the attribute to 700, and then
Access the file.
<Script for deleting tmp files>
#!/usr/local/bin/perl
main:{
print “Content-type:text/html¥n¥n”;
print “<HTML>¥n”;
opendir(DIR, “/tmp”) || die;
while( $file = readdir(DIR) ){
if( -o “/tmp/${file}” ){
print “OK /tmp/${file}¥n” if(unlink “/tmp/${file}”);
}
}
print “</HTML>¥n”;
}
(3) If you access the file in (1) again and nothing is displayed on the screen,
Deletion of temporary files is complete.
* When creating with Windows Notepad, use utf-8 as the character code.
Please do not select, error 500 will occur.
I am also grateful for your advice.
Thank you.
.
