File Coverage

script/tsd-extract

Criterion	Covered	Total	%
statement	60	72	83.3
branch	20	42	47.6
condition	1	3	33.3
subroutine	7	7	100.0
pod			n/a
total	88	124	70.9

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use File::Spec;
use File::Path qw(mkpath);

use Crypt::TSD;

# Command line options
my $help = 0;
my $version = 0;
my $output_file;
my $extract_timestamps = 0;
my $timestamp_dir;
my $verbose = 0;

# Parse command line options
GetOptions(
    'help|h' => \$help,
    'version' => \$version,
    'output|o=s' => \$output_file,
    'timestamps|t' => \$extract_timestamps,
    'timestamp-dir|d=s' => \$timestamp_dir,
    'verbose|v' => \$verbose,
) or pod2usage(2);

# Show help
if ($help) {
    pod2usage(-verbose => 2);
    exit 0;
}

# Show version
if ($version) {
    print "tsd-extract version $Crypt::TSD::VERSION\n";
    exit 0;
}

# Get input file from command line
my $input_file = shift @ARGV;
if (!$input_file) {
    print "Error: Input TSD file required\n";
    pod2usage(1);
}

# Check if input file exists
unless (-f $input_file) {
    die "Error: Input file '$input_file' not found\n";
}

# Validate timestamp extraction parameters
if ($extract_timestamps && !$timestamp_dir) {
    die "Error: Timestamp directory (-d) is required when extracting timestamps (-t)\n";
}

print "Extracting from TSD file...\n" if $verbose;
print "Input file: $input_file\n" if $verbose;

# Read TSD file
my $tsd_data;
eval {
    $tsd_data = Crypt::TSD->read_file($input_file);
};
if ($@) {
    die "Error reading TSD file: $@\n";
}

print "TSD file read successfully\n" if $verbose;
print "Version: " . $tsd_data->{version} . "\n" if $verbose;

# Extract content
my $content = Crypt::TSD->extract_content_der($tsd_data);
if (defined $content) {
    # Generate output filename if not provided
    unless ($output_file) {
        $output_file = $input_file;
        $output_file =~ s/\.tsd$/.extracted/;
    }

    print "Extracting content to: $output_file\n" if $verbose;

    # Write content to file
    open my $fh, '>:raw', $output_file or die "Cannot create output file '$output_file': $!\n";
    print $fh $content;
    close $fh;

    print "Content extracted successfully: $output_file\n";
    print "Content size: " . length($content) . " bytes\n" if $verbose;
} else {
    print "No embedded content found in TSD file\n";
}

# Extract timestamps if requested
if ($extract_timestamps) {
    print "Extracting timestamps...\n" if $verbose;

    # Create timestamp directory
    unless (-d $timestamp_dir) {
        mkdir $timestamp_dir or die "Cannot create timestamp directory '$timestamp_dir': $!\n";
    }

    my $token_count = Crypt::TSD->write_tst_files($tsd_data, $timestamp_dir);
    if ($token_count > 0) {
        print "Extracted $token_count timestamp(s) to directory: $timestamp_dir\n";
    } else {
        print "No timestamps found in TSD file\n";
    }
}

print "Done!\n";

__END__