Permissions on a file

kronecker · May 16, 2008

I create a text file on the server remote.txt ok with the following
code (the last part of it)

$first_name = $FORM{command1};
$last_name = $FORM{command2};

open (example, ">remote.txt") || die ("Could not open file. $!");

print example "$first_name\n$last_name\n";

close (example);

print "Content-type:text/html\r\n\r\n";
This bit causes errors...... chmod
0777,'remote.txt'; ......................................
print "<html>";
print "<head>";
print "<title> Processed</title>";
print "</head>";
print "<body>";
print "<h2>Commands $first_name $last_name - Sent to text file</h2>";
print "</body>";
print "</html>";

The problem is that I need to be able to delete this file remotely
using FTP and the script generate a new version every now and then. I
need teh script to make the file deleteable. How do I do this?
I tried chmod 0777,'remote.txt' and it spews out errors.

K.

A. Sinan Unur · May 16, 2008

(e-mail address removed) wrote in (e-mail address removed):

I create a text file on the server remote.txt ok with the following
code (the last part of it)

You should always, yes always,

use strict;
use warnings;

$first_name = $FORM{command1};
$last_name = $FORM{command2};

open (example, ">remote.txt") || die ("Could not open file. $!");

We have been through this once before

my $filename = 'remote.txt';

open my $EXAMPLE, '>', $filename
or die "Cannot open '$filename': $!";

print example "$first_name\n$last_name\n";

print $EXAMPLE "$first_name\n$last_name\n";

close (example);

It is crucial to check for errors on close on a filehandle opened for
writing.

close $EXAMPLE or die "Error closing '$filename': $!";

print "Content-type:text/html\r\n\r\n";
This bit causes errors...... chmod
0777,'remote.txt'; ......................................

What errors does it cause?

chmod 0777, $filename
or die "Cannot chmod on '$filename': $!";

Have you read perldoc -f chmod and perldoc -f umask?

print "<html>";
print "<head>";
print "<title> Processed</title>";
print "</head>";
print "<body>";
print "<h2>Commands $first_name $last_name - Sent to text file</h2>";
print "</body>";
print "</html>";

Don't be silly!

print <<EO_HTML;
<html>
<head>
<title>Processed<title>
</head>
<body>
<h2>Commands $first_name $last_name - Sent to text file</h2>
</body>

The problem is that I need to be able to delete this file remotely
using FTP and the script generate a new version every now and then. I
need teh script to make the file deleteable. How do I do this?
I tried chmod 0777,'remote.txt' and it spews out errors.

Did you try looking at the error messages?

Sinan

--
A. Sinan Unur <[email protected]>
(remove .invalid and reverse each component for email address)

comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/

Bill H · May 16, 2008

The problem is that I need to be able to delete this file remotely
using FTP and the script generate a new version every now and then. I
need teh script to make the file deleteable. How do I do this?
I tried chmod 0777,'remote.txt' and it spews out errors.

K.

I believe your problem is not a perl issue but a permission issue. The
script is running under a webmaster or other account and the file
created is owned by that creator, yet your ftp access is under a
different account name. If you have shell access, do a ls -l on that
directory to see who is the owner / group, that is who you need to be
to delete it. If you have ftp access as the server admin (versus the
webmaster) you can delete the file then (at least this has been my
experience).

I run into this all the time when a client gives me ftp access to
their website and gives me a webmaster account and wants me to update
their stuff that they posted using a different account. Interesting
thing I have seen is that I can most of the time rename what they have
then post my changed files, but can't delete what they have (or
overwrite it).

Back on the perl issue, I did find away around this about 7 / 8 years
ago by using chown on the file after creating it to change who owned
the file from within a perl script.

Bill H

Python CGI programming on Mac OSX	1	May 21, 2015
How to save JSON Data to a file using fetch() api?	2	Apr 28, 2022
Printing a new line	8	May 10, 2008
Python client/server that reads HTML body from server	1	Apr 12, 2023
HCaptcha - How to stop page from refreshing on submit if captcha is not checked/validated	1	Aug 29, 2023
CSS: How can I stop overflow on the y-axis?	2	Dec 24, 2022
How to use PDF-lib and how to center each line of texts on the page?	1	Aug 16, 2023
Reversing output of user input by using while loop...	2	Sep 1, 2022

Permissions on a file

kronecker

A. Sinan Unur

Bill H

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads