1. Список говнокодов пользователя seonull

    Всего: 6

  2. Perl / Говнокод #4518

    −123

    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
    @rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15
    eval 'exec C:\TEMP\perl---please-run-the-install-script---\bin\perl.exe -S $0 ${1+"$@"}'
	if $running_under_some_shell;
#!/usr/bin/perl
# $Id: cpan,v 1.9 2006/11/01 21:49:31 comdog Exp $
use strict;

    seonull, 03 Ноября 2010

    Комментарии (21)

  3. Perl / Говнокод #4503

    −124

    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
    # Relocate
if (open(my $reloc, "support/reloc.txt")) {
    # ...
    print "Relocating...";
    my $count = 0;
    local $_;
    while (<$reloc>) {
	chomp;
	my($type, $f) = split(' ', $_, 2);
	$f = "$prefix/$f";
	$f =~ s,/,\\,g;
	#print "Relocating $f...\n";
	my $read_only;
	unless (-w $f) {
	    $read_only++;
	    run("\@attrib", "-r", $f);
	}

	open(my $fh, "+<", $f) || die "Can't open $f: $!";
	binmode($fh);
	my $content = do { local $/; <$fh> };

	if ($type eq "B") {
	    $content =~ s,\Q$sponge\E([^\0]*),$prefix$1$binary_pad,go;
	}
	else {
	    $content =~ s,\Q$sponge\E,$prefix,go;
	    $content =~ s,\Q$sponge_str\E,$prefix_str,go if $^O eq "MSWin32";
	    truncate($fh, length($content)) || die "Can't truncate '$f': $!";
	}

	seek($fh, 0, 0) || die "Can't reset file pos on '$f': $!";
	print $fh $content;
	close($fh) || die "Can't write back content to '$f': $!";

	run("\@attrib", "+r", $f) if $read_only;

	$count++;
    }
    print "done ($count files relocated)\n";
}

    установщик перл...
    reloc.txt содержит 137 файлов.

    seonull, 01 Ноября 2010

    Комментарии (9)

  4. PHP / Говнокод #4435

    +161

    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
    function getItinerary($IID){
    $connection = initDB();
    $query;

    if($IID == 0){
            $query = "SELECT * FROM Itinerary";                
        }
        else{
            $query = "SELECT * FROM Itinerary WHERE IID='".$IID."'";               
        }


    $result = mysql_query($query);
        //or die ("Query Failed ".mysql_error());

    $itineraryID = 0;
    $itineraryData;

    while($row = mysql_fetch_array($result)){   
            $GID = $row['GID'];
            $FID = $row['FID'];
            $SID = $row['SID'];
                
                //Retrieve Guest Information
            $query2 = "SELECT * FROM Guest WHERE GID='".$GID."'";
            $result2 = mysql_query($query2);
            $row2 = mysql_fetch_array($result2);
            $firstName = $row2['FirstName'];
            $lastName = $row2['LastName'];
                
                //Retrieve Travel Schedule Information
            $query3 = "SELECT * FROM Schedule WHERE SID='".$SID."'";
            $result3 = mysql_query($query3);
            $row3 = mysql_fetch_array($result3);
            $travelDate = $row3['Date'];
                
                //Retrieve Sector Information
            $query3 = "SELECT * FROM Flights WHERE FID='".$FID."'";
            $result3 = mysql_query($query3);
            $row3 = mysql_fetch_array($result3);
            $sourceSID = $row3['SourceSID'];
            $destSID = $row3['DestSID'];
            $fName = $row3['FName'];
        
            $query4 = "SELECT Sector FROM Sectors WHERE SID='".$sourceSID."'";
            $result4 = mysql_query($query4);
            $row4 = mysql_fetch_array($result4);
            $source = $row4['Sector'];
            $query4 = "SELECT Sector FROM Sectors WHERE SID='".$destSID."'";
            $result4 = mysql_query($query4);
            $row4 = mysql_fetch_array($result4);
            $dest = $row4['Sector'];
                
                //Build GuestItinerary object   
            $guestItinerary = new GuestItinerary();
        
            $guestItinerary->set_FID($FID);
            $guestItinerary->set_FName($fName);
            $guestItinerary->set_SID($SID);
            $guestItinerary->set_source($source);
            $guestItinerary->set_dest($dest);
            $guestItinerary->set_travelDate($travelDate);
        
            $guestItinerary->set_GID($GID);
            $guestItinerary->set_firstName($firstName);
            $guestItinerary->set_lastName($lastName);    
        
            $itineraryData[$itineraryID]=$guestItinerary;
            $itineraryID = $itineraryID + 1; 
        
        }

    closeDB($connection);      
    return $itineraryData;
}

    Из демонстрационного приложения к NetBeans. Для обучения новичков, ага.

    seonull, 25 Октября 2010

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

  5. PHP / Говнокод #4399

    +159

    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
    class Request_BrowserDetector
{
  public static function singleton()
  {
    if (null === self::$_instance)
    {
      self::$_instance = new self;
    }
    
    return self::$_instance;
  }
  
  protected static $_instance = null;

  public function __construct()
  {
    $this->_sigs = Application::singleton()->cfg('request.browser.signatures');
  }
  
  public function detect($str)
  {
    if (isset($this->_cache[$str]))
    {
      $out = $this->_cache[$str];
    }
    else
    {
      $notFound = true;
      
      foreach ($this->_sigs as $k => $v)
      {
        if (false !== strpos($str, $k))
        {
          $out = $v;
          $notFound = false;
          break;
        }
      }
      
      if ($notFound)
      {
        $out = $this->_escape($str);
      }
      
      $this->_cache[$str] = $out;
    }
    
    return $out;
  }
  
  protected function _escape($str)
  {
    return mysql_real_escape_string($str);
  }
  
  protected $_sigs, $_cache = array();
}

    синглетон такой, синглетон

    seonull, 20 Октября 2010

    Комментарии (9)

  6. Perl / Говнокод #4362

    −156

    1. 1
    2. 2
    3. 3
    if (ref($val) eq 'ARRAY') {
   # ...
}

    seonull, 13 Октября 2010

    Комментарии (11)

  7. JavaScript / Говнокод #4344

    +153

    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
    <script type="text/javascript">
	// <![CDATA[
	var tid=1429594;

	var arr;
	arr = new Array();var k=0;

	var test;
	function requestThread(pin) {
		if (document.getElementById('p'+pin)) {
			$('#t'+pin).html('<font color="#2255EE"><b>'+$('#t'+pin).html()+'</b></font>');
			$.post('./lbitcomment.php', {u: 'http://site.livejournal.com/1429594.html?format=light&thread='+pin, i: $('#p'+pin).val()}, function (data)
			{
				$('#t'+pin).html(data);
				p=p+1
				while ((!document.getElementById('t'+arr[p])) && (p<=k)) 
					p++;
				if (p<=k) {
					requestThread(arr[p]);
				}
				return;
			});
		} else {
			p=p+1;
			if (p<=k) 
				requestThread(arr[p]);
		}
	return;
	}

	p=1;
	$(document).ready(function(){
		requestThread(arr[1]);	
	});
	

	// ]]>
	</script>

    Скрипт для разворачивания комментов ЖЖ ( http://www.hex.su/tools/open-thread/ ) добавляет в страницу такой вот код.

    seonull, 11 Октября 2010

    Комментарии (2)