Displaying 3 results from an estimated 3 matches for "md5_hex".
2003 Jan 05
2
Some experiences
Heyas ...
I'm trying to use dovecot to set up a 'closed server' (actually, mixed) sort of environment, for a box to be deployed co-located. I wanted to talk about some of that, and see if some of my experience qualifies as 'bug'.
Note that I'm notoriously verbose, so if that bothers you, read no further ....
Since it's a more-or-less closed server, I didn't want
2005 Feb 18
1
Asterisk@home festival weather report
...Step 2 - Copy the text below into Notepad and name it festival-weather-script.pl
#!/usr/bin/perl
#make a tts dir inside your sounds dir (as specified below)
#adjust the t2wp variable to point to your festival bin directory
use Asterisk::AGI;
use File::Basename;
use Digest::MD5 qw(md5_hex);
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my ($text)=@ARGV;
my $hash = md5_hex($text);
my $sounddir = "/var/lib/asterisk/sounds/tts";
my $wavefile = "$sounddir/"."tts-$hash.wav";
my $t2wp= "/usr/src/festival/bin/";...
2020 Jun 17
1
Deduplication and block size
...etwork (PXE) and turn machines into KVM guests.
http://libguestfs.org/virt-v2v
--LQksG6bCIzRHxTLp
Content-Type: application/x-perl
Content-Disposition: attachment; filename="dedup.pl"
Content-Transfer-Encoding: quoted-printable
#!/usr/bin/perl -w=0A=0Ause strict;=0A=0Ause Digest::MD5 qw(md5_hex);=0A=0A=
die "$0 disk blocksize\n" unless @ARGV =3D=3D 2;=0A=0Amy $bs =3D $ARGV[1];=
=0A=0Amy %h;=0A=0Amy $blocks =3D 0;=0Amy $zeroes =3D 0;=0Aopen DISK, $ARGV[=
0] or die "open: $!";=0Amy $size =3D (stat ($ARGV[0]))[7];=0Aprint "disk si=
ze =3D $size\n";=0Aprint "...