ice weasels

sub media_ck {
	#
	#
	my $query="-q \"!incomplete\"";
	#my $query="-q name=\"$FSSSN\"";
	my $report="-r ssid,cloneid,name,nsavetime,savetime,volume,sumsize";
	open (SSIN, "$MMINFO -xc, $query $report 2>&1|") || die "$MMINFO failed: $!"; 
	my @ss_in = <SSIN>;
	my @ss_mid;
	my %ss_out;
	my $ss_out;
	#print "mminfo output:\n@ss_in\n" if $DEBUG;
	foreach my $ss_ln (@ss_in) {
		chomp($ss_ln);
		if ($ss_ln =~ m/.*$SSFN.*/) { #temp sorting of mminfo
			#print "$ss_ln\n" if $DEBUG;
			my ($ssid, $clnid, $name, $nsavetime, $savetime, $volume, $sumsize) =  split(',', $ss_ln);
			push(@{$ss_out{$nsavetime}},{
				ssid  =>  $ssid."/".$clnid,
				name => $name,
				savetime => $savetime,
				vol => $volume,
				sumsize => $sumsize
			});

		} #temp sorting of mminfo
	}
	print Dumper (%ss_out) if $DEBUG;
	foreach my $k (sort keys %ss_out) {
		my @ss_proc1 = @{$ss_out{$k}};
		print Dumper ($ss_out{$k}) if $DEBUG;
		print Dumper (\@ss_proc1) if $DEBUG;
		print "savetime: $k\n stuff:@ss_proc1\n";
	}
	


}