LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

preliminary file editing scripts

This commit is contained in:
david 2002-04-14 03:57:08 +00:00
parent cde1313f05
commit 6199c1c37e
2 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
LDP/lampadas/www/file_edit.pl Executable file
View File

@ -0,0 +1,38 @@
#!/usr/bin/perl
$editrows = 25;
use FileHandle;
use Lampadas;
$L = new Lampadas;
$filename = $L->Param('filename');
unless ($L->Admin()) {
%userfiles = $L->UserFiles($L->CurrentUserID());
unless ($userfiles{$filename}) {
$L->Redirect("wrongpermission.pl");
}
}
%userfile = $userfiles{$filename};
$cvsroot = $L->Config('cvs_root');
# If we're not previewing, load data from database and determine version
#
$fh = new FileHandle;
open $fh, "<$cvsroot$filename";
while ($line = <$fh>) {
$file .= $line;
}
close $fh;
$L->StartPage("Editing $filename");
print "<table class='box' width='100%'>\n";
print "<form method=POST action='file_save.pl' name='file'>\n";
print "<input type='hidden' name='filename' value='$filename'>\n";
print "<tr><th>Document Text</th></tr>\n";
print "<tr><td><textarea name=file rows=$editrows style='width:100%' wrap>$file</textarea></td></tr>\n";
print "<tr><td><input type=submit value=Save name=Save></td></tr>\n";
print "</table>\n";
print "</form>\n";
$L->EndPage();

28
LDP/lampadas/www/file_save.pl Executable file
View File

@ -0,0 +1,28 @@
#!/usr/bin/perl
#
use FileHandle;
use Lampadas;
$L = new Lampadas;
$filename = $L->Param('filename');
$file = $L->Param('file');
unless ($L->Admin()) {
%userfiles = $L->UserFiles($L->CurrentUserID());
unless ($userfiles{$filename}) {
$L->Redirect("wrongpermission.pl");
}
}
%userfile = $userfiles{$filename};
$cvsroot = $L->Config('cvs_root');
# If we're not previewing, load data from database and determine version
#
$fh = new FileHandle;
open $fh, ">$cvsroot$filename";
print $fh $file;
close $fh;
$L->StartPage("Saving $filename");
print "Saved.";
$L->EndPage();