1. Perl / Говнокод #3896

    −126

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    ...
$q = new CGI;

# дБООЩЕ УПФТХДОЙЛБ
$id 	= Trim ($q -> param ('id'));
$email1 = Trim ($q -> param ('email1'));
$email2 = Trim ($q -> param ('email2'));
$email3 = Trim ($q -> param ('email3'));
$tel1 	= Trim ($q -> param ('tel1'));
$tel2 	= Trim ($q -> param ('tel2'));
$fio 	= Trim ($q -> param ('fio'));
$prim 	= Trim ($q -> param ('prim'));
$login 	= Trim ($q -> param ('login'));
...
############################################################
############################################################
# жПТНБ ТЕДБЛФЙТПЧБОЙС УПФТХДОЙЛБ
sub Form_Edit_Employee {
&Top_M ("$name_prog :: тЕД. ID='$id'&&$bookcgi");

if ($act eq "edt") { &Exec_Edit_Employee (); }

my $sql = "SELECT fio, login, email, tel1, tel2, email2, email3, icq, prim FROM managers WHERE id='$id'";
my $res = $conn -> exec ($sql);

my $fio       = $res -> getvalue (0, 0);
my $login     = $res -> getvalue (0, 1);
my $email1    = $res -> getvalue (0, 2);
my $tel1      = $res -> getvalue (0, 3);
my $tel2      = $res -> getvalue (0, 4);
my $email2    = $res -> getvalue (0, 5);
my $email3    = $res -> getvalue (0, 6);
my $icq       = $res -> getvalue (0, 7);
my $prim      = $res -> getvalue (0, 8);

print "<form action='$bookcgi' method=post>
<input type=hidden name='id' value='$id'>
<input type=hidden name=go_back value='$go_back'>
<input type=hidden name=act value='edt'>
<table cellpadding=2 colpadding=2 width=100\%>
<tr bgcolor='$tabcolor7' align=center><td colspan=2>
<b><font color='white'>жПТНБ ТЕДБЛФЙТПЧБОЙС</font></b></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>ж.й.п.:</td><td>
<input name='fio' type=text size='60' value='$fio'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>мПЗЙО:</td><td>
<input name='login' type=text size='60' value='$login'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>E-Mail 1:</td><td>
<input name='email1' type=text size='60' value='$email1'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>E-Mail 2:</td><td>
<input name='email2' type=text size='60' value='$email2'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>E-Mail 3:</td><td>
<input name='email3' type=text size='60' value='$email3'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>фЕМЕЖПО 1;</td><td>
<input name='tel1' type=text size='60' value='$tel1'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>фЕМЕЖПО 2:</td><td>
<input name='tel2' type=text size='60' value='$tel2'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>ICQ:</td><td>
<input name='icq' type=text size='60' value='$icq'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>рТЙНЕЮБОЙЕ:</td><td>
<textarea name=prim cols=80 rows=6>$prim</textarea></td></tr>
<tr bgcolor='$tabcolor6'><td align='center' colspan=2>
<input type=submit value='йЪНЕОЙФШ'></td></tr>
</table></form>

[ <a href='JavaScript:history.go(-$go_back)'>$lang_histback</a> ]
[ <a href='$bookcgi'>$lang_startpage</a> ]\n";

&Bottom_M ();
exit;
}

############################################################
############################################################
# тЕЪХМШФБФ ТЕДБЛФЙТПЧБОЙС УПФТХДОЙЛБ
sub Exec_Edit_Employee {
if ($fio eq "") {
print "<font color=red><b>хЛБЦЙФЕ ж.й.п.!</b></font>";
return;
}
[...]
my $sql = "UPDATE managers SET fio='$fio', login='$login', email='$email1',
tel1='$tel1', tel2='$tel2', email2='$email2', email3='$email3', icq='$icq',
prim='$prim', dt_modify='now()', idm_modify='$idm' WHERE id='$id'";
my $res = $conn -> exec ($sql);

my $oid = $res -> cmdTuples;

if ($oid eq 0) {
print "<font color=red><b>пЫЙВЛБ РТЙ ТЕДБЛФЙТПЧБОЙЙ УПФТХДОЙЛБ У ID='$id'.</b></font>";
} else {
print "<font color=green><b>дБООЩЕ ЙЪНЕОЕОЩ ХУРЕЫОП.</b></font>";
}

$go_back++;
}

    Какое-то время назад пришлось работать на одну хохляцкую конторку, так вот там такое было стандартом, и если писалось по другому - насяльнике был в паническом бешенстве. Кодировка оригинала сохранена...

    Запостил: kainwinterheart, 07 Августа 2010

    Комментарии (4) RSS

    Добавить комментарий