#! /usr/bin/perl
use DBI;
use File::Path;
open(FILE,">>/tmp/usbunplug") or die;
    print FILE "--------------", "\n";
foreach my $key( keys %ENV ){
    print FILE "$key: $ENV{$key}", "\n";
}

##UNMOUNT##
system("umount ".$ENV{'DEVNAME'});

##MOUNTPOINT DELETE##
my $dbh = DBI->connect("DBI:mysql:squarantine", "root", "Cab6402!") || die "CONNECT ERROR $DBI::ERRSTR";

my $sth = $dbh->prepare("select nickname,memo,flags from media where id_serial=\'".$ENV{'ID_SERIAL'}."\'");
$sth->execute;
$num_rows = $sth->rows;
for ($i=0; $i<$num_rows; $i++) {
    @a = $sth->fetchrow_array;
    $nickname = $a[0];
}

$dirname=$nickname;
$dirname =~ s/[<>:\*\?\|\"\/\\]//g;

	print FILE "dirname: $dirname\n";

## directory delete

# system("/bin/rm -rf  \"/var/squarantine/usbstorages/$ENV{'DEVNAME'}\"");
chdir('/var/squarantine/usbstorages/'); 
@pathArray = ($dirname);

if (rmtree(@pathArray,{verbose => 1})) {
	print FILE "node delete Ok: $!\n";
} else {
#	print "node delete Error: $!\n";
	print FILE "node delete Error: $!\n";
}
$dirname=$ENV{'ID_SERIAL'};
$dirname =~ s/[<>:\*\?\|\"\/\\]//g;
system("/bin/rm -rf  \"/var/squarantine/usbstorages/$dirname\"");



$sth->finish;
$dbh->disconnect;

#  system("mkdir /mnt/$ENV{'DEVNAME'}");
#  system("mount $ENV{'DEVNAME'} /mnt/usbshare1");
#  system("ln -s /mnt/usbshare1 /mnt/share/ok");

close(FILE);

