[ipfire-2.x.git] / tools / fetchlangs.pl

#!/usr/bin/perl\r
#\r
# This file is part of the IPCop Firewall.\r
#\r
# IPCop is free software; you can redistribute it and/or modify\r
# it under the terms of the GNU General Public License as published by\r
# the Free Software Foundation; either version 2 of the License, or\r
# (at your option) any later version.\r
#\r
# IPCop is distributed in the hope that it will be useful,\r
# but WITHOUT ANY WARRANTY; without even the implied warranty of\r
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
# GNU General Public License for more details.\r
#\r
# You should have received a copy of the GNU General Public License\r
# along with IPCop; if not, write to the Free Software\r
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA\r
#\r
# Copyright (C) 2003-03-09 Mark Wormgoor <mark@wormgoor.com>\r
#\r
\r
open(LIST, "./langs/list") or die 'Unable to open language list ./langs/list';\r
\r
while (<LIST>) {\r
	next if $_ =~ m/^#/;\r
	@temp = split(/:/,$_);\r
	$lang = $temp[0];\r
	$uclang = uc($lang);\r
	print "Downloading files for " . $temp[1] . "\n";\r
	system ('wget','--quiet','-N','-c','--cache=off',"http://www.ipcop.org/langs/create-c.php?Lang=${uclang}");\r
	rename ("create-c.php?Lang=${uclang}", "langs/${lang}/install/lang_${lang}.c") or die\r
		'Failed to rename downloaded file: langs/${lang}/install/lang_${lang}.c';\r
	system ('wget','--quiet','-N','-c','--cache=off',"http://www.ipcop.org/langs/create-pl.php?Lang=${uclang}");\r
	rename ("create-pl.php?Lang=${uclang}", "langs/${lang}/cgi-bin/${lang}.pl") or die\r
		'Failed to rename downloaded file: langs/${lang}/cgi-bin/${lang}.pl';\r
}\r
close (LIST)\r
Commit	Line	Data
cd1a2927 MT	1	#!/usr/bin/perl\r
	2	#\r
	3	# This file is part of the IPCop Firewall.\r
	4	#\r
	5	# IPCop is free software; you can redistribute it and/or modify\r
	6	# it under the terms of the GNU General Public License as published by\r
	7	# the Free Software Foundation; either version 2 of the License, or\r
	8	# (at your option) any later version.\r
	9	#\r
	10	# IPCop is distributed in the hope that it will be useful,\r
	11	# but WITHOUT ANY WARRANTY; without even the implied warranty of\r
	12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
	13	# GNU General Public License for more details.\r
	14	#\r
	15	# You should have received a copy of the GNU General Public License\r
	16	# along with IPCop; if not, write to the Free Software\r
	17	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
	18	#\r
	19	# Copyright (C) 2003-03-09 Mark Wormgoor <mark@wormgoor.com>\r
	20	#\r
	21	\r
	22	open(LIST, "./langs/list") or die 'Unable to open language list ./langs/list';\r
	23	\r
	24	while (<LIST>) {\r
	25	next if $_ =~ m/^#/;\r
	26	@temp = split(/:/,$_);\r
	27	$lang = $temp[0];\r
	28	$uclang = uc($lang);\r
	29	print "Downloading files for " . $temp[1] . "\n";\r
	30	system ('wget','--quiet','-N','-c','--cache=off',"http://www.ipcop.org/langs/create-c.php?Lang=${uclang}");\r
	31	rename ("create-c.php?Lang=${uclang}", "langs/${lang}/install/lang_${lang}.c") or die\r
	32	'Failed to rename downloaded file: langs/${lang}/install/lang_${lang}.c';\r
	33	system ('wget','--quiet','-N','-c','--cache=off',"http://www.ipcop.org/langs/create-pl.php?Lang=${uclang}");\r
	34	rename ("create-pl.php?Lang=${uclang}", "langs/${lang}/cgi-bin/${lang}.pl") or die\r
	35	'Failed to rename downloaded file: langs/${lang}/cgi-bin/${lang}.pl';\r
	36	}\r
	37	close (LIST)\r