X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=bc598545a4b97e66da5a478710fbb6ff671ade62;hp=2ca54cfa7dedcc19a2b65b15baf37c9689599c57;hb=b5572d621fe221ee9dcbf990118dd6aa69125cda;hpb=5fa6b177211912e7f02e973a1043b519b5001cff

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 2ca54cf..bc59854 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -554,6 +554,20 @@ sub add_new_event {
 	return ();
 }
 
+sub guess_charset {
+	my $text = shift;
+	my $decoded;
+
+	eval {
+		$decoded = Encode::decode("utf-8", $text, Encode::FB_CROAK);
+	};
+	if ($@) {
+		$decoded = Encode::decode("iso8859-1", $text);
+	}
+
+	return $decoded;
+}
+
 1;