Subversion Repositories sysadmin_scripts

Rev

Rev 56 | Rev 58 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 56 Rev 57
Line 299... Line 299...
299 
# fully qualified path with the correct delimiters
 299 
# fully qualified path with the correct delimiters
300 
#
 300 
#
301 
sub makeFolder {
 301 
sub makeFolder {
302 
   my ($imap, $folder, $delimiter) = @_;
 302 
   my ($imap, $folder, $delimiter) = @_;
303 
 
 303 
 
304 
   print "\n\t\tCreating folder $folder";
 304 
   #print "\n\t\tCreating folder $folder";
305 
   # you must create the parent folder before creating the children
 305 
   # you must create the parent folder before creating the children
306 
   my $escapedDelimiter = '\\' . $delimiter;
 306 
   my $escapedDelimiter = '\\' . $delimiter;
307 
   my @folders = split( $escapedDelimiter, $folder );
 307 
   my @folders = split( $escapedDelimiter, $folder );
308 
   $folder = '';
 308 
   $folder = '';
309 
   # take them from the left and, if they don't exist, create it
 309 
   # take them from the left and, if they don't exist, create it