From 882c87a2c6ed333464bce183c894cae65fbc2d65 Mon Sep 17 00:00:00 2001
From: Michael Wagner <info@wagnertech.de>
Date: Tue, 15 Mar 2016 12:54:05 +0100
Subject: [PATCH] posaune

---
 SL/mebil/ERiC.pm | 78 ------------------------------------------------
 1 file changed, 78 deletions(-)
 delete mode 100644 SL/mebil/ERiC.pm

diff --git a/SL/mebil/ERiC.pm b/SL/mebil/ERiC.pm
deleted file mode 100644
index e815cf013..000000000
--- a/SL/mebil/ERiC.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-package SL::mebil::ERiC;
-
-#####################################################
-# Abhängigkeit: libinline-perl
-# 
-#####################################################
-use File::Copy qw(copy);
-use strict;
-use Inline C => Config => BUILD_NOISY => 1, MYEXTLIB => '/home/mebil/workspace_cpp/mERiC/Debug/libmERiC.so';
-use Inline C => <<'C_END';
-
-int validate (char*, char*);
-int senddata (char*, char*, char*, char*);
-
-int c_validate(char* datenart, char* xml_file) {
-      int r = validate(datenart, xml_file);
-      return r;
-}
-int c_submit(char* datenart, char* xml_file, char* certificate_path, char* PIN) {
-      int r = senddata(datenart, xml_file, certificate_path, PIN);
-      return r;
-}
-
-C_END
-
-sub new {
-	# parameter: 1) type of data: xmlfile must be named: <datatype>.xml
-	#            2) xml file name
-	#            3) path to certificate
-	#            4) password
-	my $my_data = {
-		datatype         => $_[1],
-		xml_file         => $_[2],
-		certificate_path => $_[3],
-		PIN              => $_[4]};
-	bless $my_data;
-	return $my_data;
-}
-
-sub validate {
-	my $self = shift;
-	
-	# open xml file for reading
-	open (FILE, "$self->{xml_file}") or die "cannot open $self->{xml_file}";
-	
-	# check encoding
-	my $encod = <FILE>;
-	if ($encod =~ /UTF-8/) {
-		open (OUT, ">:encoding(iso-8859-1)", "data.xml");
-		print OUT "<?xml version=\"1.0\" encoding=\"ISO-8859-15\"?>\n";
-		my $line;
-		while ($line = <FILE>) {
-			print OUT $line;
-		}
-		close (OUT);
-		close (FILE);
-		
-	}
-	elsif ($encod =~ /8859-15/) {
-		close (FILE);
-	    copy "$self->{xml_file}", "data.xml";
-	}
-	else {
-		die "unknown encoding $encod";
-	}		
-
-	# call ERiC lib
-	return c_validate($self->{datatype}, "data.xml");
-}
-
-sub submit {
-	my $self = shift;
-
-	# call ERiC lib
-	return c_submit($self->{datatype}, "data.xml", $self->{certificate_path}, $self->{PIN});
-}
-
-1;
-- 
2.20.1