##
## Edit: edit EPrints translations
##
##
use Apache::Const qw( REDIRECT OK );
use Apache::URI;
use Carp qw(cluck);
use strict;
##
my $DIR="/opt2/eprints2/ml";
my $TARGETCODE = "fr";
my $TEMPLATECODE = "en";
my $action="Edit-$TARGETCODE"; #the address of this file
my $FILES=[ {f=>"cfg/system-phrases-XX.xml",s=>"system-phrases",
t=>"phrase",a=>"ref"},
{f=>"defaultcfg/citations-XX.xml",s=>"citations",
t=>"citation",a=>"type"},
{f=>"defaultcfg/phrases-XX.xml",s=>"phrases",
t=>"phrase",a=>"ref"},
{f=>"defaultcfg/template-XX.xml",s=>"template",t=>""},
{f=>"defaultcfg/static/XX/contact.xpage",s=>"contact",t=>""},
{f=>"defaultcfg/static/XX/error401.xpage",s=>"error401",t=>""},
{f=>"defaultcfg/static/XX/index.xpage",s=>"index",t=>""},
{f=>"defaultcfg/static/XX/information.xpage",s=>"information",t=>""},
{f=>"defaultcfg/static/XX/vlit.xpage",s=>"vlit",t=>""},
{f=>"defaultcfg/static/XX/help/index.xpage",s=>"help/index",t=>""},
{f=>"defaultcfg/subjects.xml",s=>"subjects",t=>"subject"}
];
###########################################################
my $R = Apache->request();
my $apr = Apache::Request->new($R);
my %params= $apr->param();
if( $apr->param("download") ne "" ){
my ($file,$template,$type,$attr)=find_file($apr->param("download"));
if(!open(FILE,"$DIR/$file")){
$R->content_type("text/html; charset=utf-8");
_error("Cannot open $file for reading"); exit 0;
}
$R->content_type("application/octet-stream");
while(
Thist script was written by Laszlo Csirmaz, Central European University.
It is a free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
It is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.