@@ -86,4 +86,14 @@ sub get_current_revision {
return time;
}
+sub mkmymime {
+ my $d = shift;
+ my $d1 = "; "; my $d2 = "=";
+ my @t;
+ foreach (sort keys %$d) {
+ push @t, $_ . $d2 . $d->{$_};
+ }
+ return join $d1, @t;
+}
+
1;