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

    −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
    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
    sub check_dir
{
	my ($param, $mode) = @_;
	$mode ||= 'sr';

	unless ( $mode eq 'sc')
	{
		my $full_path = $config_params{$param};
		$full_path =~ /^(.+)\/(.+)$/;
		my $put = $1;

		while(1)
		{
			if (-l $full_path)
			{
				$info->debug("Load param $param = $full_path it is symlink. Readlink...");
				$full_path = readlink $full_path;
			}
			elsif (-d $full_path or -d "$put/$full_path")
			{
				$info->debug("Load param $param = $full_path. It is directory and it is exists");
				last;
			}
			else
			{
				$warning->debug("Not valid config. Error parsing param: $param");
				exit 1;
			}
		}
	}
	else
	{
		my $full_path = $config_params_sc{$param};
		$full_path =~ /^(.+)\/(.+)$/;
		my $put = $1;

		while(1)
		{
			if (-l $full_path)
			{
				$info_sc->debug("Load param $param = $full_path it is symlink. Readlink...");
				$full_path = readlink $full_path;
			}
			elsif (-d $full_path or -d "$put/$full_path")
			{
				$info_sc->debug("Load param $param = $full_path. It is directory and it is exists");
				last;
			}
			else
			{
				$warning_sc->debug("Not valid config. Error parsing param: $param");
				exit 1;
			}
		}
	}
}

    По крайней мере, этот код можно сократить вдвое... И подобное по всей утилите...

    Запостил: SadKo, 21 Февраля 2011

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

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