|
$name
|
|
|
|
$by_color
$size
|
|
$ch_color $perm
|
|
$rn_color Rename
|
$rm_color Del
|
EOM
}
print "\n";
foreach (@fil_stats) {
@stats = split(/\*/,$_);
$cd = $stats[0];
$file = $stats[1];
@_ = split(/\//,$file);
$name = pop(@_);
$file_name = $cd.$name;
$date = $stats[2];
$size = $stats[3];
$perm = $stats[4];
$file_path = "$top_dir$file_name";
print <
|
$name
|
|
$ed_color Edit
|
|
$by_color $size
|
|
$ch_color $perm
|
|
$rn_color rename
|
$rm_color Del
|
EOM
}
print <
<![CDATA[<noframes><noembed>\n
EOM
exit;
}
sub read_dir {
opendir(DIR,"$new_dir") || return("ERROR: Directory $this_dir $rm_color COULD NOT</b></font> be opened.
<br>
$!
<p>\n");
while ($file = readdir(DIR)) {
$temp = $new_dir.'/'.$file;
if (-d $temp) {
unless ($file eq '.' || $file eq '..') {
push(@dirs,$file);
@dirs = sort(@dirs);
}
} else {
push(@files,$file);
@files = sort(@files);
}
}
closedir(DIR);
if ($ch_dir) {
$ch_dir .= '/';
$ch_dir =~ s/\/\//\//g;
}
foreach (@dirs) {
$ls = `ls -ld $ch_dir$_`;
push(@ls_dirs,$ls);
}
foreach (@files) {
$ls = `ls -l $ch_dir$_`;
push(@ls_files,$ls);
}
if ($new_dir eq '.') {
$next_dir = '';
} else {
$next_dir = $new_dir.'/';
$next_dir =~ s/\/\//\//g;
}
foreach (@ls_dirs) {
@stats = split(/\ /,$_);
$n = $#stats;
$sub_dir = $stats[$n];
$this_sub_dir = $next_dir.$sub_dir;
chomp($sub_dir);
$mod_date = (stat($sub_dir))[9];
@times = localtime($mod_date);
$hr = $times[2];
$min = $times[1];
$day = $times[3];
$month = $times[4];
if ($hr < 10) { $hr = "0$hr"; }
if ($min < 10) { $min = "0$min"; }
$date = "$months[$month] $day $hr:$min";
$size = (stat($sub_dir))[7];
$perm = $stats[0];
$stat = "$this_sub_dir*$sub_dir*$date*$size*$perm";
push(@dir_stats,"$stat");
}
foreach (@ls_files) {
@stats = split(/\ /,$_);
$n = $#stats;
$filename = $stats[$n];
chomp($filename);
$mod_date = (stat($filename))[9];
@times = localtime($mod_date);
$hr = $times[2];
$min = $times[1];
$day = $times[3];
$month = $times[4];
if ($hr < 10) { $hr = "0$hr"; }
if ($min < 10) { $min = "0$min"; }
$date = "$months[$month] $day $hr:$min";
$size = (stat($filename))[7];
$perm = $stats[0];
$stat = "$next_dir*$filename*$date*$size*$perm";
push(@fil_stats,"$stat");
}
&show_files;
}
sub chmod {
$chmod = $q->param('chmod');
$chmod_val = $q->param('chmod_val');
$chmod_it = `chmod $chmod_val $chmod 2>&1`;
if (!$chmod_it) {
print($chmod_it);
$done = "CHMODed <a href=$chmod>$cd_color$chmod</b></font></a> to $chmod_val.";
} else {
$done = "File <a href=$chmod>$cd_color$chmod</b></font></a> $rm_color WAS NOT</b></font> CHMODed.
<br>
<b>
<strong>
$chmod_it
</strong>
</b>";
}
}
sub edit {
if ($q->param('edit')) {
$edit = $q->param('edit');
}
$get = `cat $edit 2>&1`;
$get =~ s/&/&/g;
$get =~ s/</</g;
@files = split(/\//,$edit);
$file = pop(@files);
print <<EOM;
<head>
$style
<title>
File Manager
</title>
<script>
function viewit(){
var text = document.test.text.value;
if (navigator.appName.substring(0,5) == "WebTV"){
location.href="#";
document.open();
document.write(text);
document.close();
}
else {
temp = document.test.text.value;
preWindow = open("",
"preWindow","status=no,resizable=1,status=0,menubar=0,toolbar=0,scrollbars=1");
preWindow.document.open();
preWindow.document.write(temp);
preWindow.document.close();
}
}
function copy() {
document.test.text.focus();
document.test.text.select();
}
function replaceText() {
K1 = document.test
all_text = K1.text.value;
old_word = K1.E2.value;
new_word = K1.E3.value;
working = true; if (confirm("This will replace ALL instances of:\n\n` " +old_word+ "´\n\nwith:\n\n` " +new_word+" ´\n\nAre you sure you want to continue?"))
left_index = 0;
while (working) {
J1 = all_text.indexOf(old_word, left_index);
if (J1==-1) {working = false; break}
all_text_left = all_text.substring(0, J1)
J2 = J1+old_word.length;
all_text_right = all_text.substring(J2,
all_text.length);
all_text = all_text_left + new_word +
all_text_right;
left_index = J1+new_word.length;
}
document.test.text.value = all_text
}
</script>
</head>
<noscript>
<body>
</noscript>
$body
<center>
<font size=4><b>Joes File Editor
<p><br>
<center>
<form name=test method=post action=$mgr>
Save as:
<input type=hidden name=cd value=$ch_dir>
<input type=text name=save value=$edit>
<input type=hidden name=file value=$file>
<input type=hidden name=action value=save>
<hr>
<textarea name=text cols=89 rows=15 bgcolor=white growable text=blue autoactivate nohighlight borderimage=no>$get</textarea>
<hr>
<p>
<table border=0 cellpadding=0 cellspacing=2>
<tr align=center valign=center>
<td valign=top>
<input type=submit value="Save">
</td>
<td valign=top>
<input type="button" value="Select" onclick="copy()" />
<input type="button" value="Preview" onclick="viewit()" />
</td>
</tr>
</table>
<p></p>
Editing File: <b>$edit</b>
<br><br>
<textarea name="E2" text=blue rows=2 cols=20 onfocus="select()"></textarea>
<textarea name="E3" text=blue rows=2 cols=20 onfocus="select()"></textarea>
</form>
<br><br>
<font size=1 color=#000000><b>Search/Replace</font>
<a href="javascript:replaceText()">
<font size="3"><b>Replace</font></a>
<br><br>
<form name="login1" method="get" action="$mgr">
<select name="cd" width="130" onchange="submit()" />
<option>Directory</option>
<option value="">Root</option>
EOM
foreach (sort @Dirs) {
print "<option value=$_>$_\n</option>"; }
print <<EOM;
</select>
</form>
<br><br><br><br>
<br><br><br><br>
<br><br><br><br>
</center>
</body>
<noembed><noframes><noembed>
EOM
exit;
}
sub save {
$save = $q->param('save');
$file = $q->param('file');
$text = $q->param('text');
$text =~ s/\r\n/\n/g;
if ($save =~ /\.cgi/ || $save =~ /\.pl/ ) {
$ch_val = '755';
} else {
$ch_val = '644'; }
open(SAVE,">$save") || return("ERROR: Save aborted. File $rm_color WAS NOT</b></font> opened. $!");
print SAVE $text;
close(SAVE);
$ch_it = `chmod $ch_val $save 2>&1`;
unless ($ch_it) {
print($ch_it);
$done = "<b>File</b><a href=$save>$cd_color $file</b></font></a> <b>saved.</b>";
}
if (!$done) {
$done = "File<a href=$save>$cd_color $file</b></font></a> saved,
<br>
but $rm_color WAS NOT</b></font> CHMODed properly.
<br>
Please check the permissions on $file.
<br>
$ch_it
<br>";
}
}
sub rm {
$rem_it = $q->param('rem_it');
if (-d $rem_it) {
$do = 'rm -r';
$type = "Directory";
print($response);
} else {
$do = 'rm';
$type = "File";
}
$response = `$do $rem_it 2>&1`;
if ($response =~ /no/ || $response =~ /empty/) {
$done = "ERROR: $type <a href=$rem_it>$cd_color$rem_it</b></font> $rm_color WAS NOT</b></font> removed/deleted from system.
<br>
<b>
<strong>
$response
</strong>
</b>";
} else {
print($response);
$done = "$type $rm_color$rem_it</b></font> removed/deleted from system";
}
}
sub cancel {
$cancel = $q->param('file');
$done = "File $cancel was $rm_color WAS NOT</b></font> saved.";
}
sub Copy {
$unit_num = 0;
$done = '';
foreach($q->param('new_path')) {
$old = $units[$unit_num];
if (-d $old) {
unless (-e $_) {
$do = `mkdir $_; chmod 775 $_ 2>&1`;
if (!$do) {
print($do);
}
}
$do = `cp $old\/\* $_ 2>&1`;
} else {
$do = `cp $old $_ 2>&1`;
}
if (!$do) {
print($do);
$done .= "Copied <a href=$old>$cd_color$old</b></font></a> to <a href=$_>$cd_color$_</b></font></a>
<br>\n";
} else {
$done .= "Could $rm_color NOT</b></font> copy $old to $_
<br>
$do
<br>\n";
}
++$unit_num;
}
}
sub Zip {
$unit_num = 0;
$done = '';
foreach($q->param('new_path')) {
$old = $units[$unit_num];
$do = `zip -r $_ $old 2>&1`;
$done .= "Zipped <a href=$old>$cd_color$old</b></font></a> to <a href=$_>$cd_color$_</b></font></a>
<br>
$do
<br>\n";
++$unit_num;
}
}
sub UnZip {
$done = '';
foreach(@units) {
$do = `unzip $_ 2>&1`;
$done .= "UnZipped <a href=$old>$cd_color$_</b></font></a>
<br>
$do
<br>\n";
}
}
sub Move {
$unit_num = 0;
$done = '';
foreach($q->param('new_path')) {
$old = $units[$unit_name];
$do = `mv $old $_ 2>&1`;
if (!$do) {
print($do);
$done .= "Moved <a href=$old>$cd_color$old</b></font></a> to <a href=$_>$cd_color $_</b></font></a>
<br>\n";
} else {
$done = "Could $rm_color NOT</b></font> move $old to $_
<br>
$do
<br>\n";
}
++$unit_num;
}
}
sub Delete {
$done = "";
foreach(@units) {
if (-d $_) {
$do = `rmdir $_ 2>&1`;
} else {
$do = `rm -r $_ 2>&1`;
}
if (!$do) {
print($do);
$done .= "Deleted $rm_color$_</b></font> from database.
<br>\n";
} else {
$done .= "Could $rm_color NOT</b></font> delete $_ from database.
<br>
$do
<br>\n";
}
}
}
sub CHMOD {
$unit_num = 0;
$done = '';
foreach($q->param('ch_val')) {
$file = $units[$unit_num];
$do = `chmod $_ $file 2>&1`;
if (!$do) {
print($do);
$done .= "CHMODed <a href=$file>$cd_color $file</b></font></a> to $_
<br>\n";
} else {
$done .= "Could $rm_color NOT</b></font> CHMOD $file to $_.
<br>
$do
<br>\n";
}
++$unit_num;
}
}
sub MDir {
$new_dir_name = $q->param('new_name');
$do = `mkdir $new_dir_name; chmod 775 $new_dir_name 2>&1`;
if (!$do) {
print($do);
$done = "Directory <a href=$new_dir_name>$cd_color$new_dir_name</b></font></a> has been successfully created.
<br>\n";
} else {
$done = "Could $rm_color NOT</b></font> make the directory $new_dir_name.
<br>
$do
<br>\n";
}
}
sub Beam {
$target = $q->param('target');
$file = $q->param('new_name');
$do = `lwp-mirror $target $file 2>&1`;
if (!$do) {
print($do);
$done = "File <a href=$target>$cd_color$target</b></font></a> Beamed to <a href=$file>$cd_color$file</b></font></a>";
} else {
$done = "File <a href=$target>$rm_color WAS NOT</b></font></a> Beamed to $file.
<br>
$do
<br>\n";
}
}
sub MFile {
$new_file_name = $q->param('new_name');
if (-e $new_file_name) {
$done = "ERROR: The file <a href=$new_file_name>$cd_color$new_file_name</b></font></a> already exists.
<br>
New file $rm_color NOT</b></font> created.
<br>\n";
return;
} else {
open(NEW_FILE,">$new_file_name") || return("Could $rm_color NOT</b></font> make file $new_file_name.
<br>\n");
close(NEW_FILE);
$edit = $new_file_name;
&edit;
}
}
sub Gzip {
$done = '';
foreach(@units) {
$do = `gzip $_ 2>&1`;
$done .= "File <a href=$old>$cd_color$_</b></font></a> was Gzipped!
<br>
$do
<br>\n";
}
}
sub UnGzip {
$done = '';
foreach(@units) {
$do = `gunzip $_ 2>&1`;
$done .= "File <a href=$old>$cd_color$_</b></font></a> was UnGzipped!
<br>
$do
<br>\n";
}
}
sub parse_input {
foreach($q->param('unit')) {
push(@units,$_);
}
}
sub renam {
$renam = $q->param('renam');
$rename_val = $q->param('rename_val');
$rename_it = `mv $renam $rename_val 2>&1`;
if (!$rename_it) {
print($rename_it);
$done = "File/Directory renamed to: <a href=$rename_val>$cd_color$rename_val</b></font></a> ";
} else {
$done = "File <a href=$renam>$cd_color$renam</b></font></a> $rm_color WAS NOT</b></font> Renamed.
<br>
<b>
<strong>
<blackface>
$rename_it
</blackface>
</strong>
</b>";
}
}
sub confirm {
print <<EOM;
<head>
$style
<title>
$title - Confirm Selections
</title>
<script language="javascript">
function ExtractName(URL) {
pos = URL.lastIndexOf("/");
return(URL.substring(pos+1, URL.length));
}
function makeHistoryOptions() {
x = history.length;
while (x > 0) {
histURL = history[x]
histID = histURL.substring(0,4);
if (histID == "http") {
document.write("<option value="+histURL+">"+histURL)
}
if (histID == "news") {
document.write("<option value="+histURL+">"+histURL)
}
x--;}
}
</script>
<script type="text/javascript">
TheCookieName = 'MyCfm';
numDays = 183; //Days 'till Cookie expires.(eg. 183 days = 6 months)
function WriteOneBigCookie () {
var expire = new Date ();
expire.setTime (expire.getTime() + (numDays * 24 * 3600000)); //6 months from now!
// (dd) (hr) (ms in hr)
var WholeCookie = expire ;
//Text entry
WholeCookie = WholeCookie + '`' + document.MyCfm.holdit.value;
//Put cookie in the Oven Bake 'till done.
document.cookie = TheCookieName +"=" + escape (WholeCookie) +
"; expires=" + expire.toGMTString() ;
alert('Your information has been stored for 6 months. Remember, this page has a text limit of 4K.');
}
function UpdateForm () {
MakeCookieArray(GetCookie(TheCookieName));
//alert('ckArray: ' + ckArray[0]);
if (ckArray[0] != "*") {
document.MyCfm.ExpDate.value = ckArray[0];
document.MyCfm.holdit.value = ckArray[1];
}
}
function GetCookie (CookieName) {
var cname = CookieName + "=";
var i = 0;
while (i < document.cookie.length) {
var j = i + cname.length;
if (document.cookie.substring(i, j) == cname){
var leng = document.cookie.indexOf (";", j);
if (leng == -1) leng = document.cookie.length;
return unescape(document.cookie.substring(j, leng));
}
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0) break; //thats -1 plus 1, duh.
}
return "*";
}
function DelEatCookie (name) {
var expire = new Date();
expire.setTime (expire.getTime() - 2 * 86400001);
document.cookie = name + "=*; expires=" + expire.toGMTString();
}
function MakeCookieArray(cookieValue) {
var i = 0,indx = 0, citemlen =0;
ckArray = new Array();
if ( cookieValue == null ) {ckArray[0]= "*";return}//Data has expired or never entered.
if ( cookieValue == "*" ) {ckArray[0]= "*";return}//Data has expired or never entered.
while (citemlen < cookieValue.length) {
citemlen=(cookieValue.indexOf("`", indx)>0)
?cookieValue.indexOf("`", indx):cookieValue.length;
ckArray[i]= cookieValue.substring(indx, citemlen); i++;
indx = citemlen + 1;
}
}
</script>
</head>
<noscript>
<body>
</noscript>
$body
<form method=post action=$mgr name=mark>
<center><p><br><p>
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td>
</td>
<td>
File/Directory Name:
</td>
<td>
</td>
</tr>
EOM
unless ($operation eq "MDir" || $operation eq "MFile" || $operation eq "Beam") {
foreach(@units) {
print "<tr>\n<td>\n";
if ($operation ne "MDir" && $operation ne "MFile" && $operation ne "Beam") {
print "<p><input type=checkbox checked name=unit value=$_>";
}
print "</td>
<td>
<b> $_
</td>";
if ($operation ne "CHMOD" && $operation ne "Delete" && $operation ne "UnZip") {
$show = $_;
$new = "New File Path:";
$in = "<input type=text name=new_path value='$show'>";
} elsif ($operation eq "CHMOD") {
$new = "CHMOD to:";
if ($_ =~ /\.cgi/ || $_ =~ /\.pl/) {
$val = '755';
} else {
$val = '644';
}
$in = "<input type=text name=ch_val value=$val>";
} elsif ($operation eq "Delete") {
if (!$g) {
$new = "Caution: Deleted files $rm_color CANNOT</b></font> be recovered.";
$g = 1;
} elsif ($operation eq "UnZip") {
$new = "";
}
} else {
last;
}
print <<EOM;
<td>
</td>
<td>
<font size=2><b>$new $in</b></font>
</td>
</tr>
EOM
}
print <<EOM;
</table>
<input type=hidden name=confirm value=$operation>
<input type=hidden name=cd value=$ch_dir>
<input type=submit name=operation value=$operation>
<select onchange=mark.new_path.value=this.value; w=100>
<option>To</option>
EOM
foreach (sort @Dirs) {
print " <option value=$_>$_\n</option>"; }
print <<EOM;
</select>
</form>
<noembed><noframes><noembed>
EOM
return;
}
if ($operation eq "MDir") {
$type = 'Directory';
} elsif ($operation eq "MFile") {
$type = 'File';
} elsif ($operation eq "Beam") {
print <<EOM;
<tr>
<td>
</td>
<td align=center>
<script language=JavaScript>
document.write("<select w=120 name=ddlist onchange='if(options[selectedIndex].value) {form.target.value=(options[selectedIndex].value); form.new_name.value=ExtractName(options[selectedIndex].value); }'>");
document.write("<option>Recents");
makeHistoryOptions();
document.write("</select>");
</script>
</td>
<td align=center>
<input name=target type=text size=40 onchange="form.new_name.value=ExtractName(form.target.value);">
</td>
</tr>
<tr>
<td>
</td>
<td align=center>
New Name:
</td>
<td align=center>
<input name=new_name type=text size=40>
</td>
</tr>
</table>
<input type=hidden name=confirm value=$operation>
<input type=hidden name=cd value=$ch_dir>
$b_color
<input type=submit name=operation value=$operation>
</form>
<br><br>
<center>
<b>Beaming to:
$ENV{HOME}$this_dir</b>
<br>
<form name="MyCfm">
<textarea bgcolor=white name=holdit
rows=2 cols=55 growable nohighlight autoactivate>
</textarea>
<br>
<a href="javascript:UpdateForm();">Recall</a>
<a href="javascript:WriteOneBigCookie(); UpdateForm();">Save</a>
<a href="javascript:window.alert('Byte
Count:\n'+document.MyCfm.holdit.value.length)">
Bytes</a>
</form>
</center>
EOM
} else {
return;
}
if ($type) {
print <<EOM;
<tr>
<td>
</td>
<td>
New $type Name:
</td>
<td>
<input type=text name=new_name value="$ch_dir">
</td>
</tr>
</table>
<input type=hidden name=confirm value=$operation>
<input type=hidden name=cd value=$ch_dir>
$b_color
<input type=submit name=operation value=$operation>
</form>
<noembed><noframes><noembed>
EOM
}
return;
}
# Begin directory list.
sub list_dirs {
$ls = `ls -R $Root`;
@pairs = split(/\n/,$ls);
foreach (@pairs) {
if (/$Root/) {
$_ =~ s/$Root//;
chop;
push(@Dirs, $_); }}
}
]]>