root/trunk/hotstuff/scripts/ghnsmetatemplate

#!/usr/bin/env perl
#
# GHNS Meta Template - create template file for GHNS upload
# Copyright (C) 2006 - 2008 Josef Spillner <josef@kstuff.org>
# Published under 'GNU AGPLv3 or later' conditions

use strict;
use DateTime;

if(!$ARGV[0]){
        print "Synopsis: ghnsmetatemplate <datafile> [<previewfile>]\n";
        exit 1;
}

sub input {
        my $prompt = shift(@_);
        my $def = shift(@_);

        print $prompt;
        if(!defined($def)){
                print " [required!]";
        }
        print ":\n";

        my $res = <STDIN>;
        chomp $res;
        if($res){
                return $res;
        }

        if(!defined($def)){
                return input($prompt, $def);
        }
        return $def;
}

my $dt = DateTime->now;
my $isodate = $dt->datetime;

my $lang = input("Language (e.g. en)", "");

my $category = input("Category (e.g. korganizer/calendar)", undef);
my $name = input("Name of the entry (e.g. My First Calendar)", undef);
my $author = input("Author's name (e.g. Bill Writer)", undef);
my $author_email = input("Author's email (e.g. bwriter\@calendars.org)", "");
my $licence = input("Licence name (e.g. GNU General Public Licence)", "");
my $licence_agreement = input("Licence acronym (e.g. GPL)", "");
my $summary = input("Description of the content (e.g. It's a nice calendar)", undef);
my $version = input("Version of the content (e.g. 0.1)", undef);
my $releasedate = "$isodate"; # TODO: server-side generation?

my $payload = $ARGV[0];
my $preview = "";
if($ARGV[1]){
        $preview = $ARGV[1];
}

my $m = "";
$m .= "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
$m .= "<ghnsupload>\n";
$m .= "  <stuff category=\"$category\">\n";
$m .= "    <name lang=\"$lang\">$name</name>\n";
$m .= "    <author email=\"$author_email\">$author</author>\n";
$m .= "    <licence agreement=\"$licence_agreement\">$licence</licence>\n";
$m .= "    <version>$version</version>\n";
$m .= "    <releasedate>$releasedate</releasedate>\n";
$m .= "    <summary lang=\"$lang\">$summary</summary>\n";
$m .= "    <preview lang=\"$lang\">$preview</preview>\n";
$m .= "    <payload lang=\"$lang\">$payload</payload>\n";
$m .= "  </stuff>\n";
$m .= "</ghnsupload>\n";

print $m;