perl functions

diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm
index 937880ea4ba6eb3d95346f1bd935ed4dabd216cf..24e337922ae56ecaf2afb1ff21188f345630b872 100644 (file)
--- a/lib/perl/NB/Functions.pm
+++ b/lib/perl/NB/Functions.pm
@@ -168,7 +168,6 @@ our %CHAR_ENTITIES = (
        &price_from_to
        &sec2h
        &oct2h
-       &format_amount
        &mysql_exec
        &table_get_no_primaries
        &table_get_primaries
@@ -207,7 +206,6 @@ our %CHAR_ENTITIES = (
        &db_csv2table
        &key2id
        &file_encoding
-       &http_logs_argv
 );
 
 #@EXPORT = @EXPORT_OK;
@@ -288,25 +286,6 @@ sub oct2h {
 
 }
 
-sub format_amount {
-#------------------------------------------------------------------------------
-# NB 14.05.09 
-#------------------------------------------------------------------------------
-my $amount = shift @_;
-       if ($amount =~ /\..*,/
-               #or $amount =~ /\.\d\d\d/
-       ) {
-               $amount =~ s/\.//g;
-               $amount =~ s/,/\./g;
-       } elsif ($amount =~ /,.*\./) {
-               $amount =~ s/,//g;
-       } else {
-               $amount =~ s/,/\./g;
-       }
-       return unless $amount =~ /^[\.\d]+$/;
-return $amount;
-}
-
 sub mysql_exec {
 #------------------------------------------------------------------------------
 # NB 17.03.09 
@@ -1241,27 +1220,6 @@ my $encoding = shift; # default value - NB 19.09.11
        return $encoding;
 }
 
-sub http_logs_argv {
-#------------------------------------------------------------------------------
-# NB 09.12.10 
-#------------------------------------------------------------------------------
-my @logs;
-local $_;
-
-       if (@ARGV and @logs = grep {-e $_ or $_ eq '-'} @ARGV) {
-
-       } else {
-
-               @logs = grep{$_} map{chomp($_);$_} `find /var/log/squid3/access*log 2>/dev/null` unless @logs;
-
-               @logs = grep{$_} map{chomp($_);$_} `find /var/log/apache2/access*log 2>/dev/null` unless @logs;
-
-       }
-
-       return @logs;
-
-}
-
 ##############################################################################
 1;
 ##############################################################################