my $totalFlag = 0;
my $codeFlag = 0;
my $recordName;
open (FILE, "<log.file");
while (<FILE>){
if (/^--(.+)/){ #if "--" marks begining of record
if (($tatalFlag ne 0) and ($codeFlag eq 22)){
print $recordName, "\n";
}
$recordName = $1...
perldoc CGI
open (OUTFILE,">>/usr/local/web/users/feedback");
while ($bytesread=read($filename,$buffer,1024)) {
print OUTFILE $buffer;
}
close (FILE);
Also check options of your webserver.
man chmod
or
http://www.sbras.ru/cgi-bin/www/unix_help/unix-man?chmod+1
7 read/write/execute for owner
5 read//execute for group
5 read//execute for others
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.