how to edit files using a cgi script??

[jamsman]

hi,
I am writing a cgi script that needs to beable to open a tet file and then the user edit the content and then save the file is this possbile using perl through cgi??

any ideas would be a great help

cheers

 

[duncdude]

yes - the text file will have to be on the server though

how's this for starters:-

[b]#!/usr/bin/perl[/b]

print "Content-type: text/html\n\n";

read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

if ($buffer) {
  print "We have POST data...<br>";
  print $buffer;
}

open (IN, "< user_editable.txt");
undef $/;
$_ = <IN>;
$/ = "\n";
close IN;

print <<HTML;
<form action=$0 method=POST>
  <textarea cols=50 rows=10 name=editfield>$_</textarea>
  <input type=submit>
</form>
HTML
# end of script

Kind Regards
Duncan

 

[duncdude]

give it a go at this URL:-

http://my-mot.co.uk/tek-tips/jamsman/

Kind Regards
Duncan

 

[jamsman]

cheers i think thats exactly what i was after

 

[duncdude]

no problem. obviously you will need to translate the URI characters and then write some code to save the file etc.

if you need any further help please shout


Kind Regards
Duncan

 

[KevinADC]

if it's a text file on the server:

print the beginning of your form

open(FH,$filename) or die "Unable to open $filename: $!";
print qq~textarea name="edit" cols="10" rows="10">~;
print while (<FH>);
print qq~</textarea>~;

print the end of your form

beaware, if there is html code in the file being edited it will affect the textarea tag used to edit the file, like if </textarea> is in the file it will close the textarea tag you opened to edit the file! html tag brackets should be escaped before printing them into the textarea tag for editing, and double quotes and ampersands should be escaped too if need be.

 

[duncdude]

(not intending to be rude!)

open(FH,$filename) or die "Unable to open $filename: $!";
print qq~[b][red]<[/red][/b]textarea name="edit" cols="10" rows="10">~;
print while (<FH>);
print qq~</textarea>~;
[b][red]close FH;[/red][/b]

Kind Regards
Duncan

 

[KevinADC]

thanks Duncan,

corrections or apmlifications are always appreciated.

 

[duncdude]

Hi Kevin

No problem - PLEASE don't consider it a dig!!!


Kind Regards
Duncan