#!/s/std/bin/perl

use Storable;

my $passed_device = shift;
my $passed_interface = shift;

my $hashref = retrieve('/tmp/splat-attach-list') or exit(0);

foreach $key (keys %$hashref){
	my ($device,$interface) = split(/:/,$key);
	if($passed_interface eq $interface && $passed_device eq $device){
		print $$hashref{$key} . "\n";
		exit(0);
	}
}
exit(1);
