##!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Data::Dumper;
use CGI;
use Encode qw( encode decode );

my $File = "/var/www/htdocs/DumperFile.dat";


my $query = new CGI();
print $query->header(-type=>'text/html', -charset=>'utf-8');
my @names = $query->param;
my $queryParams = "";  


my $savedDumpFile = writeFile(@names);
printOutput(@names);
exit;


sub printOutput {
	my @names = @_;
	my $queryParams = "";

	print "saved mairlist dumper-file: ".$File."\n" if ($savedDumpFile == 1);

	for my $name ( @names ) {
		if ( $name =~ /\_/ ) { next; }
		else { $queryParams .= $name."\t\t".$query->param($name)."\n"; }
	}

	my $utf8 = $queryParams;
	print Dumper($utf8)."\n";
	return 1;
}


sub writeFile {
	my @names = @_;
	my $queryParams = "";

	open(FILE, ">>$File") || die ("Could not open file");

	for my $name ( @names ) {
		if ( $name =~ /\_/ ) { next; }
		else { $queryParams .= $name."\t\t".$query->param($name)."\n"; }
	}

	print FILE Dumper($queryParams)."\n";
	close( FILE ) || die("Could not close file");
	return 1;
}

# EOF