initial commit of file from CVS for smeserver-phpki-ng on Sat Sep 7 20:50:40 AEST 2024
This commit is contained in:
@@ -0,0 +1,17 @@
|
||||
{
|
||||
# vim: ft=perl:
|
||||
%lines = ();
|
||||
@lines = ();
|
||||
open (RD, "</opt/phpki/html/config.php")
|
||||
|| warn "Cannot open input file /opt/phpki/html/config.php: $!\n";
|
||||
while (<RD>)
|
||||
{
|
||||
chomp;
|
||||
next if grep { /^$/ } $_ ;
|
||||
next if grep { /^\?/ } $_;
|
||||
push @lines, $_;
|
||||
$lines{$_} = 1;
|
||||
}
|
||||
close(RD);
|
||||
"";
|
||||
}
|
Reference in New Issue
Block a user