Revision 085830e6
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
|
# remove any trailing whitespace
|
||
|
s/^\s*(.*?)\s*$/$1/;
|
||
|
|
||
|
($key, $value) = split /=/, $_, 2;
|
||
|
($key, $value) = split(/=/, $_, 2);
|
||
|
|
||
|
if (($key eq "stylesheet") && ($value eq "sql-ledger.css")) {
|
||
|
$value = "lx-office-erp.css";
|
||
| ... | ... | |
|
|
||
|
while (<FH>) {
|
||
|
if (/^dbname=/) {
|
||
|
my ($null, $item) = split /=/;
|
||
|
my ($null, $item) = split(/=/);
|
||
|
push @dbexcl, $item;
|
||
|
}
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Syntaxhighlighting fuer Emacs erleichtert.