Mistři v programování na #hovnokod

Tohle jsme nasli v nastroji pro prohledavani maillogu :)

  ($#ARGV>0) && ($logfile=$ARGV[1]);

# HYPER MEGA NASTY HACK - due to idiocy and kretenism of the original programmer
# of this megashit! Bastard!

  if($logfile =~ /maillog.0.gz$/){
    $logfile = "/var/log/mail.log.1";
  } elsif($logfile =~ /maillog.([0-9]+).gz$/){
    my $ln = $1 + 1;
    $logfile = "/var/log/mail.log.".$ln.".gz";
  }

# END OF HYPER SUPER DAMN HACK

  foreach($logfile) {

Komentář bude přítomen jen při splnění podmínek

    if ($WSB_ENABLED == 1)
    {    
        if ($interactiontype ne 'push')
        {    
#            print   Tr([td(['Quality of Service in seconds', ' ' .
#                           textfield(-name=>'qos',
#                                     -value=>$qos,
#                                     -size=>'4')])]);
        }    
    } 

###
### prices
###

if ($p{card}==0) {$o=0}
if ($p{card}==1) {$o=20}
if ($p{card}==2) {$o=20}
if ($p{card}==3) {$o=20}
if ($p{card}==4) {$o=20}
if ($p{card}==5) {$o=20}
if ($p{card}==6) {$o=20}
if ($p{card}==7) {$o=20}
if ($p{card}==8) {$o=20}
if ($p{card}==9) {$o=20}
if ($p{card}==10) {$o=20}
if ($p{card}==11) {$o=20}
if ($p{card}==12) {$o=20}
if ($p{card}==13) {$o=20}
if ($p{card}==14) {$o=20}
if ($p{card}==15) {$o=20}
if ($p{card}==16) {$o=20}
if ($p{card}==17) {$o=20}
if ($p{card}==18) {$o=20}

        open (FILE, $HOSTS_FILE);
        while (<FILE>) {
                chomp;
                my ($key, $val) = split /=/;
                $hash{$key} .= exists $hash{$key} ? "$val" : $val;
        }
        close (FILE);

sou veci, ktery te proste nenapadnou

sub hovnokod
{
    return 1 and 0 
}