vitalif
/
VMXTemplate
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

something

databind
vitalif 2007-05-29 15:40:59 +00:00 committed by Vitaliy Filippov
parent 37302c8202
commit e9da6fe672
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
VMX/Common.pm
View File

@ -6,10 +6,11 @@
package VMX::Common;
use DBI;
use Digest::MD5;
require Exporter;
@EXPORT_OK = qw(min trim htmlspecialchars strip_tags file_get_contents fetchall_hashref ar1el);
%EXPORT_TAGS = (all => [qw(min trim htmlspecialchars strip_tags file_get_contents ar1el)]);
@EXPORT_OK = qw(min trim htmlspecialchars strip_tags file_get_contents fetchall_hashref ar1el filemd5);
%EXPORT_TAGS = (all => [qw(min trim htmlspecialchars strip_tags file_get_contents ar1el filemd5)]);
##
# Exporter-ский импорт + возможность подмены функции в DBI
@ -136,4 +137,17 @@ sub fetchall_hashref {
return $rows;
}
sub filemd5 {
my ($file) = @_;
my $f;
my $r;
if (open $f, "<$file") {
my $ctx = Digest::MD5->new;
$ctx->addfile($f);
$r = $ctx->hexdigest;
close $f;
}
return $r;
}
1;