#!/usr/bin/perl -w
# utils for stubmail

# creat recip and sender dirs, assumes clean input and does not return errors
# (since create/read/delete of file will fail on next op anyway)
sub ensurePath {
    my($r, $s) = split(/\/, $_[0]);
    unless (-e $r) { mkdir($r); }
    unless (-e $s) { mkdir($s); }
}