mhddfs-example.pl

#!/usr/bin/perl

# Usage:
#	$ echo -e "First@mail.ru pass1\nSecond@list.ru pass2" \
#    		| ./mhddfs.example.pl

$marcfs='/path/to/marcfs/binary';
$dest_dir='/path/to/destination/dir/';

$home = $ENV{"HOME"};

print "[+] Adding needed dirs and mount marcfs...\n";

system("mkdir -p $dest_dir");

$i = 0;
while(<STDIN>) {
	chomp;

	$i = $i + 1;

	($login, $pass) = split(/ /, $_, 2);

	system("mkdir -p /tmp/marcfs/cloud$i $home/mnt/MARC_mount_$i");
	system("$marcfs $home/mnt/MARC_mount_$i -o username=$login,password=$pass,cachedir=/tmp/marcfs/cloud$i/");
}

print "[+] Concatting marcfs into dest_dir ($dest_dir)...\n";

$paths = join(",", map {"$home/mnt/MARC_mount_$_"} (1..$i));

system("mhddfs $paths $dest_dir");

print "[+] All done!\n";