Revision 2dacd279
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 48 | 48 |
use strict; |
| 49 | 49 |
#use warnings; |
| 50 | 50 |
|
| 51 |
1; |
|
| 52 |
|
|
| 53 |
# end of main |
|
| 54 |
|
|
| 55 | 51 |
# this is for our long dates |
| 56 | 52 |
# $locale->text('January')
|
| 57 | 53 |
# $locale->text('February')
|
| ... | ... | |
| 1753 | 1749 |
|
| 1754 | 1750 |
$main::lxdebug->leave_sub(); |
| 1755 | 1751 |
} |
| 1752 |
|
|
| 1753 |
1; |
|
| bin/mozilla/gl.pl | ||
|---|---|---|
| 46 | 46 |
|
| 47 | 47 |
use strict; |
| 48 | 48 |
|
| 49 |
1; |
|
| 50 |
|
|
| 51 |
# end of main |
|
| 52 |
|
|
| 53 | 49 |
# this is for our long dates |
| 54 | 50 |
# $locale->text('January')
|
| 55 | 51 |
# $locale->text('February')
|
| ... | ... | |
| 1659 | 1655 |
sub continue {
|
| 1660 | 1656 |
call_sub($main::form->{nextsub});
|
| 1661 | 1657 |
} |
| 1658 |
|
|
| 1659 |
1; |
|
| bin/mozilla/rp.pl | ||
|---|---|---|
| 52 | 52 |
# should there be any missing vars, declare them globally |
| 53 | 53 |
use strict; |
| 54 | 54 |
|
| 55 |
1; |
|
| 56 |
|
|
| 57 |
# end of main |
|
| 58 |
|
|
| 59 | 55 |
# this is for our long dates |
| 60 | 56 |
# $locale->text('January')
|
| 61 | 57 |
# $locale->text('February')
|
| ... | ... | |
| 2772 | 2768 |
$main::lxdebug->leave_sub(); |
| 2773 | 2769 |
} |
| 2774 | 2770 |
|
| 2771 |
1; |
|
| doc/programmierstilrichtlinien.txt | ||
|---|---|---|
| 13 | 13 |
|
| 14 | 14 |
-------------------------------------------------------------------------- |
| 15 | 15 |
|
| 16 |
1. Es werden keine "echten" TAB-Zeichen sondern Leerzeichen verwendet.
|
|
| 16 |
1. Es werden keine echten iTabs sondern Leerzeichen verwendet.
|
|
| 17 | 17 |
|
| 18 | 18 |
2. Die Einr?ckung betr?gt zwei Leerzeichen. |
| 19 | 19 |
Beispiel: |
| 20 | 20 |
|
| 21 |
sub debug {
|
|
| 22 |
print(STDERR "Debugging.\n"); |
|
| 21 |
foreach my $row (@data) {
|
|
| 22 |
if ($flag) {
|
|
| 23 |
# do something with $row |
|
| 24 |
} |
|
| 25 |
|
|
| 26 |
if ($use_modules) {
|
|
| 27 |
$row->{modules} = MODULE->retrieve(
|
|
| 28 |
id => $row->{id},
|
|
| 29 |
date => $use_now ? localtime() : $row->{time},
|
|
| 30 |
); |
|
| 31 |
} |
|
| 32 |
|
|
| 33 |
$report->add($row); |
|
| 23 | 34 |
} |
| 24 | 35 |
|
| 36 |
|
|
| 25 | 37 |
3. ?ffnende geschweifte Klammern befinden sich auf der gleichen Zeile wie |
| 26 | 38 |
der letzte Befehl. |
| 27 | 39 |
Beispiele: |
| ... | ... | |
| 54 | 66 |
|
| 55 | 67 |
do {
|
| 56 | 68 |
... |
| 57 |
} while ($a > 0);
|
|
| 69 |
} until ($a > 0);
|
|
| 58 | 70 |
|
| 59 | 71 |
6. Parameter von Funktionsaufrufen m?ssen mit runden Klammern versehen |
| 60 |
werden. Davon nicht betroffen sind interne perl Funktionen. |
|
| 72 |
werden. Davon nicht betroffen sind interne perl Funktionen, |
|
| 73 |
und grep ?hnliche Operatoren. |
|
| 61 | 74 |
|
| 62 | 75 |
Beispiel: |
| 63 | 76 |
|
| ... | ... | |
| 172 | 185 |
Flagmaske, f?r die die Meldung angezeigt wird, wobei "0" immer angezeigt |
| 173 | 186 |
wird. Sollte Meldungen sollten nicht eingecheckt werden, und werden in den |
| 174 | 187 |
meisten F?llen auch vom Repository zur?ckgewiesen. |
| 188 |
|
|
| 189 |
14. Alle neuen Module m?ssen use strict verwenden. |
|
| 190 |
|
|
| 191 |
$form, $auth, $locale, $lxdebug, %myconfig sowie der Inhalt der lx-erp.conf |
|
| 192 |
werden derzeit aus dem main package importiert. Alle anderen Konstrukte |
|
| 193 |
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.