view release on metacpan or  search on metacpan

script/b2_client  view on Meta::CPAN

	if (!$args[0]) {
		return "Usage: b2_client file_info FILE_ID\n";
	}
	
	my $b2 = get_b2_session();

	my $result = $b2->b2_get_file_info(
		file_id => $args[0]
	);	

	if (!$result) {
		return get_error_message($b2);
	}
	
	my $output = '';
	foreach my $key (sort keys %$result) {
		if (ref($result->{$key}) ne 'HASH') {
			$output .= $key . ' => ' . $result->{$key} . "\n";
			next;
		}
	}
	
	return $output;
}

sub new_bucket {
	my (@args) = @_;
	
	if (!$args[0]) {
		return "Usage: b2_client new_bucket NEW_BUCKET_NAME\n";
	}
	
	my $b2 = get_b2_session();
	$b2->b2_list_buckets(
		bucket_name => $args[0],
		auto_create_bucket => 1
	);

	return show_result($b2, "Success: New bucket '$args[0]' was created");
}

sub print_help {

return qq{
b2_client: Simple Backblaze B2 client

This utility can download and upload files from the Backblaze B2 service. 
It is part of Backblaze::B2V4 Perl library:
	https://metacpan.org/pod/Backblaze::B2V4

# b2_client save_tokens APPLICATION_KEY_ID APPLICATION_KEY

Both arguments are required. Saves your B2 API key tokens to ~/.b2_tokens . Provision a key under 'App Keys' in the B2 Web UI.  Choose carefully on the privileges you wish to give this app key, bearing in mind that the client can only complete the op...

# b2_client get BUCKET_NAME FILE_NAME [DESTINATION_DIRECTORY]

Downloads a file from B2. Required arguments are the name of the bucket containing the file and the name of the file in B2 (not the ID). Optional third argument is a destination directory, defaulting to the current working directory. Be sure you can ...

# b2_client put BUCKET_NAME PATH_TO_FILE

Upload a file to B2. Required arguments are the name of the destination B2 bucket and the path to the file to be uploaded. Best if the file has a standard extension (i.e. .txt, .png, .js, etc.)

# b2_client list_items [BUCKET_NAME] [START_FILE_NAME]

If no argument provided, lists the B2 buckets in your account.

Provide the bucket name as the first arg to list file id's and names that buclet.

Provide a starting file name as the second arg if your bucket has more than 10,000 files and you need to list them in groups.

# b2_client file_info FILE_ID

Displays lots of information about a given file.  See https://www.backblaze.com/apidocs/b2-get-file-info

# b2_client new_bucket BUCKET_NAME

Creates a new B2 Bucket with the given name.  Alphanumeric characters only.

Note that B2 bucket namess must be unique system-wide, not just your account. Select a name that willbe unique globally.

# b2_client help

Prints this help screen.

--

Backblaze::B2V4 and this command are released under the MIT License. Copyright (c) 2026 Eric Chernoff

};

}

# Next two subroutines will retrieve or save their B2 API tokens

sub get_b2_tokens {
	my ($obfuscated_tokens, $the_tokens, $application_key_id, $application_key);
	
	# try to read it in
	eval {
		$obfuscated_tokens = path('~/.b2_tokens')->slurp_raw;
		$the_tokens = pack "h*", $obfuscated_tokens;
		($application_key_id, $application_key) = split /:::/, $the_tokens;
	};

	if ($@ || !$application_key_id || !$application_key) {
		say "ERROR: B2 tokens not available.".
			"\nPlease use 'b2_client save_tokens APPLICATION_KEY_ID APPLICATION_KEY' to save tokens to your home directory.";
		return;
	}

	return [
		$application_key_id,
		$application_key
	];
}

sub save_b2_tokens {
	my (@args) = @_;
	
	if (!$ARGV[0] || !$ARGV[1]) {
		return "ERROR: Please provide both the APPLICATION_KEY_ID and APPLICATION_KEY arguments for 'save_tokens'\n";