#!/usr/bin/perl
#
#

my $src="/media/sekr" ;
my $trg="/media/hda6/sik/sekr";
my ( @dir, );

if( -d "${src}/_stufe1" ) {
	print "source $src ok\n";
}
else {
	print "$src failes, try to mount it\n";
	if( ! system("gksu 'mount -t smbfs -o username=gerd,password=g //r22a/RSYNCBKUP /media/sekr'
")  ) { die "$src not mounted\n"; }
	else { print "ok\n"; }
}
if( -d $trg ) {
	print "target $trg ok\n";
}
else {
	print "$trg failes, try to mount it\n";
	if( ! system("gksu 'mount /dev/hda6'") ) { die "$trg not mounted\n"; }
	else { print "ok\n"; }
}






#2008-12-16_12~35