{"id":68,"date":"2009-08-23T22:12:15","date_gmt":"2009-08-23T22:12:15","guid":{"rendered":"http:\/\/www.adriangrigoras.com\/blog\/?p=68"},"modified":"2009-08-23T22:12:15","modified_gmt":"2009-08-23T22:12:15","slug":"modify-a-file-from-browser","status":"publish","type":"post","link":"https:\/\/adriangrigoras.com\/blog\/modify-a-file-from-browser\/","title":{"rendered":"Modify a file from browser"},"content":{"rendered":"
#! \/usr\/bin\/perl<\/div>\n
use CGI qw\/:standard\/;<\/div>\n
print “Content-type: text\/htmlnn”;<\/div>\n
print “Modify the file:$file<br\/><br\/>”;<\/div>\n
$action = param(‘action’);<\/div>\n
if($action eq “”){<\/div>\n
$file_content=””;<\/div>\n
open (MYFILE, “<“, $file);<\/div>\n
@lines=<MYFILE>;<\/div>\n
foreach $l(@lines){<\/div>\n
$file_content.=$l;<\/div>\n
}<\/div>\n
close (MYFILE);<\/div>\n
print<<frm;<\/div>\n
<form action=”modify.cgi” method=”POST”><\/div>\n
<textarea name=”file” cols=”150″ rows=”30″><\/div>\n
$file_content<\/div>\n
<\/textarea><\/div>\n
<input type=”hidden” id=”action” name=”action” value=”modify”><\/div>\n
<br \/><br \/><\/div>\n
<input type=”submit” value=”Modify!”><\/div>\n
<\/form><\/div>\n
frm<\/div>\n
}<\/div>\n
if($action eq “modify”){<\/div>\n
print “Done!”;<\/div>\n
$file2=param(‘file’);<\/div>\n
#print “File:$file”;<\/div>\n
open MYFILE, “>$file” or die $!;<\/div>\n
print MYFILE $file2;<\/div>\n
close (MYFILE);<\/div>\n
}<\/div>\n
1;<\/div>\n

When you need a fast web development and want to let developers modify directly a config file, you must use the following script:<\/p>\n

\n
\n
#! \/usr\/bin\/perl<\/address>\n
<\/address>\n
use CGI qw\/:standard\/;<\/address>\n
<\/address>\n
print “Content-type: text\/htmlnn”;<\/address>\n
$file=”\/etc\/httpd\/conf.d\/my.conf”;<\/address>\n
print “Modify the file:$file<br\/><br\/>”;<\/address>\n
$action = param(‘action’);<\/address>\n
if($action eq “”){<\/address>\n
$file_content=””;<\/address>\n
open (MYFILE, “<“, $file);<\/address>\n
@lines=<MYFILE>;<\/address>\n
foreach $l(@lines){<\/address>\n
$file_content.=$l;<\/address>\n
}<\/address>\n
close (MYFILE);<\/address>\n
print<<frm;<\/address>\n
<form action=”modify.cgi” method=”POST”><\/address>\n
<\/address>\n
<textarea name=”file” cols=”150″ rows=”30″><\/address>\n
$file_content<\/address>\n
<\/textarea><\/address>\n
<input type=”hidden” id=”action” name=”action” value=”modify”> <\/address>\n
<br \/><br \/><\/address>\n
<input type=”submit” value=”Modify!”><\/address>\n
<\/address>\n
<\/form><\/address>\n
frm<\/address>\n
}<\/address>\n
<\/address>\n
if($action eq “modify”){<\/address>\n
print “Done!”;<\/address>\n
$file2=param(‘file’);<\/address>\n
#print “File:$file”;<\/address>\n
<\/address>\n
open MYFILE, “>$file” or die $!;<\/address>\n
print MYFILE $file2;<\/address>\n
close (MYFILE);<\/address>\n
<\/address>\n
}<\/address>\n
<\/address>\n
1;<\/address>\n
<\/address>\n<\/p><\/address>\n<\/blockquote>\n

Thanks,<\/p>\n","protected":false},"excerpt":{"rendered":"

#! \/usr\/bin\/perl use CGI qw\/:standard\/; print “Content-type: text\/htmlnn”; print “Modify the file:$file<br\/><br\/>”; $action = param(‘action’); if($action eq “”){ $file_content=””; open (MYFILE, “<“, $file); @lines=<MYFILE>; foreach $l(@lines){ $file_content.=$l; } close (MYFILE); print<<frm; <form action=”modify.cgi” method=”POST”> <textarea name=”file” cols=”150″ rows=”30″> $file_content <\/textarea> <input type=”hidden” id=”action” name=”action” value=”modify”> <br \/><br \/> <input type=”submit” value=”Modify!”> <\/form> frm } if($action\u2026 Read More »<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,11,14],"tags":[],"class_list":["post-68","post","type-post","status-publish","format-standard","hentry","category-apache","category-linux","category-perl"],"_links":{"self":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/68","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/comments?post=68"}],"version-history":[{"count":0,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/68\/revisions"}],"wp:attachment":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/media?parent=68"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/categories?post=68"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/tags?post=68"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}