Revision 2dacd279
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
|
use strict;
|
||
|
#use warnings;
|
||
|
|
||
|
1;
|
||
|
|
||
|
# end of main
|
||
|
|
||
|
# this is for our long dates
|
||
|
# $locale->text('January')
|
||
|
# $locale->text('February')
|
||
| ... | ... | |
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
1;
|
||
| bin/mozilla/gl.pl | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
|
||
|
1;
|
||
|
|
||
|
# end of main
|
||
|
|
||
|
# this is for our long dates
|
||
|
# $locale->text('January')
|
||
|
# $locale->text('February')
|
||
| ... | ... | |
|
sub continue {
|
||
|
call_sub($main::form->{nextsub});
|
||
|
}
|
||
|
|
||
|
1;
|
||
| bin/mozilla/rp.pl | ||
|---|---|---|
|
# should there be any missing vars, declare them globally
|
||
|
use strict;
|
||
|
|
||
|
1;
|
||
|
|
||
|
# end of main
|
||
|
|
||
|
# this is for our long dates
|
||
|
# $locale->text('January')
|
||
|
# $locale->text('February')
|
||
| ... | ... | |
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
1;
|
||
| doc/programmierstilrichtlinien.txt | ||
|---|---|---|
|
|
||
|
--------------------------------------------------------------------------
|
||
|
|
||
|
1. Es werden keine "echten" TAB-Zeichen sondern Leerzeichen verwendet.
|
||
|
1. Es werden keine echten iTabs sondern Leerzeichen verwendet.
|
||
|
|
||
|
2. Die Einr?ckung betr?gt zwei Leerzeichen.
|
||
|
Beispiel:
|
||
|
|
||
|
sub debug {
|
||
|
print(STDERR "Debugging.\n");
|
||
|
foreach my $row (@data) {
|
||
|
if ($flag) {
|
||
|
# do something with $row
|
||
|
}
|
||
|
|
||
|
if ($use_modules) {
|
||
|
$row->{modules} = MODULE->retrieve(
|
||
|
id => $row->{id},
|
||
|
date => $use_now ? localtime() : $row->{time},
|
||
|
);
|
||
|
}
|
||
|
|
||
|
$report->add($row);
|
||
|
}
|
||
|
|
||
|
|
||
|
3. ?ffnende geschweifte Klammern befinden sich auf der gleichen Zeile wie
|
||
|
der letzte Befehl.
|
||
|
Beispiele:
|
||
| ... | ... | |
|
|
||
|
do {
|
||
|
...
|
||
|
} while ($a > 0);
|
||
|
} until ($a > 0);
|
||
|
|
||
|
6. Parameter von Funktionsaufrufen m?ssen mit runden Klammern versehen
|
||
|
werden. Davon nicht betroffen sind interne perl Funktionen.
|
||
|
werden. Davon nicht betroffen sind interne perl Funktionen,
|
||
|
und grep ?hnliche Operatoren.
|
||
|
|
||
|
Beispiel:
|
||
|
|
||
| ... | ... | |
|
Flagmaske, f?r die die Meldung angezeigt wird, wobei "0" immer angezeigt
|
||
|
wird. Sollte Meldungen sollten nicht eingecheckt werden, und werden in den
|
||
|
meisten F?llen auch vom Repository zur?ckgewiesen.
|
||
|
|
||
|
14. Alle neuen Module m?ssen use strict verwenden.
|
||
|
|
||
|
$form, $auth, $locale, $lxdebug, %myconfig sowie der Inhalt der lx-erp.conf
|
||
|
werden derzeit aus dem main package importiert. Alle anderen Konstrukte
|
||
|
sollten lexikalisch lokal gehalten werden.
|
||
Auch abrufbar als: Unified diff
Da die .pl Files als Module geladen werden, müssen sie auf true zurückgeben.