use File::stat;
use MIME::Base64;
-# Copyright (C) 2010 Zygo Blaxell <dm5@mailtoo.hungrycats.org>
+# Copyright (C) 2010 Zygo Blaxell <dupemerge@mailtoo.hungrycats.org>
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
sub name_quad {
my ($int64) = @_;
- my $packed = pack('Q', $int64);
+ my $packed = pack('Q>', $int64);
$packed =~ s/^\0+//os;
my $base64_packed = encode_base64($packed, '');
+ $base64_packed =~ y:/:_:;
# Don't strip off the trailing padding since it makes the string
# so short we end up just putting it back on again.
# $base64_packed =~ s/=+$//os;