Server IP : 195.201.23.43 / Your IP : 3.147.84.210 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/usermin/htaccess/ |
Upload File : |
#!/usr/bin/perl # manual.cgi # Display a text box for manually editing directives require './htaccess-lib.pl'; &ReadParse(); if (defined($in{'idx'})) { # files within .htaccess file $hconf = &get_htaccess_config($in{'file'}); $d = $hconf->[$in{'idx'}]; $file = $in{'file'}; $start = $d->{'line'}+1; $end = $d->{'eline'}-1; $title = &text('htfile_header', &dir_name($d), "<tt>$in{'file'}</tt>"); $return = "htaccess_index.cgi"; $rmsg = $text{'htindex_return'}; } else { # .htaccess file $file = $in{'file'}; $title = &text('htindex_header', "<tt>$in{'file'}</tt>"); $return = "htaccess_index.cgi"; $rmsg = $text{'htindex_return'}; $dir = "files_index.cgi"; } &ui_print_header($title, $text{'manual_title'}, ""); print &text('manual_header', "<tt>$file</tt>"),"<p>\n"; print "<form action=manual_save.cgi method=post enctype=multipart/form-data>\n"; foreach $h ('virt', 'idx', 'file') { if (defined($in{$h})) { print "<input type=hidden name=$h value='$in{$h}'>\n"; push(@args, "$h=$in{$h}"); } } $args = join('&', @args); print "<textarea rows=15 cols=80 name=directives>\n"; $lref = &read_file_lines($file); if (!defined($start)) { $start = 0; $end = @$lref - 1; } for($i=$start; $i<=$end; $i++) { print &html_escape($lref->[$i]),"\n"; } print "</textarea><br><input type=submit value=\"$text{'save'}\"></form>\n"; &ui_print_footer("$return?$args", $rmsg); # print_directives(&list, indent) sub print_directives { foreach $c (@{$_[0]}) { next if ($c->{'name'} eq 'dummy'); if ($c->{'type'}) { print $_[1],"<",$c->{'name'}," ",$c->{'value'},">\n"; &print_directives($c->{'members'}, $_[1].' '); print $_[1],"</",$c->{'name'},">\n"; } else { print $_[1],$c->{'name'}," ",$c->{'value'},"\n"; } } }Private