Mistři v programování na #hovnokod


Anonymous,

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')])]);
        }    
    } 

Anonymous,

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) {

Anonymous,

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

Anonymous,

UnixDate - nic nehovoriaca funkcia z Date::Manip

my $show_inc_start = convert_datetz( $tz_inc_start, $inc_time_zone );
$show_inc_start = substr( $show_inc_start, 0, 4 ) . "-" . substr( $show_inc_start, 4, 2 ) . "-" . substr( $show_inc_start, 6, 2 ) . " " . substr( $show_inc_start, 8 );

Rastislav Vysoky,