#!/usr/bin/perl

use strict;
use utf8;

# tiedoston mediaarkisto.pm kansio
use lib '../noweb';
use mediaarkisto ();

use CGI;

$CGI::POST_MAX = 1024;     # max 1K posts
$CGI::DISABLE_UPLOADS = 1; # no uploads

my $EDITURL = '/edit/index.cgi';

chdir('../file') || exit 1;
&main;
exit 0;

sub main()
{
	my $q = new CGI;

	print $q->header(-type => 'text/html; charset=utf-8');
	return if (&CGI::request_method eq 'HEAD');
	mediaarkisto::html_header(*STDOUT, 'Metatiedot');

	my ($media, $id);
	if ($id = $q->param('image')) {
		$media = 'image';
	} elsif ($id = $q->param('video')) {
		$media = 'video';
	} elsif ($id = $q->param('audio')) {
		$media = 'audio';
	} elsif ($id = $q->param('other')) {
		$media = 'other';
	}

	my %meta;
	if (defined($media) && $id !~ /[^0-9]/ &&
	    (%meta = mediaarkisto::read_meta("$media/$id")) )
	{
		print "<table>\n";
		my $i;

		my @HIDDEN_KEYS = ( 'Kokoelma', '.PLAYER' );
		foreach $i (@HIDDEN_KEYS) {
			delete($meta{$i});
		}
		foreach $i (sort keys %meta) {
			print "<tr><th>" . $i .
				":</th><td>" .
				mediaarkisto::html_encode($meta{$i}) .
				"</td></tr>\n";
		}
		print "</table>\n";
		print '<div class="footer"><a class="button edit" href="' .
			$EDITURL . '?' . $media . '=' . $id .
			'"><span>Muokkaa</span></a> </div>' .
			"\n";
	}
	mediaarkisto::html_footer(*STDOUT);
}