2 files changed, 29 insertions, 0 deletions

diff --git a/overlays/FinanceQuote/default.nix b/overlays/FinanceQuote/default.nix
new file mode 100644
index 00000000..45c7d833
--- /dev/null
+++ b/overlays/FinanceQuote/default.nix
@@ -0,0 +1,11 @@
+{ prev, final, ... }: {
+  perlPackages = (final.perl.override {
+    overrides = p: {
+      FinanceQuote = prev.perl.pkgs.FinanceQuote.overrideAttrs (oldAttrs: {
+        patches = (oldAttrs.patches or []) ++ [
+          ./tradegate.patch
+        ];
+      });
+    };
+  }).pkgs;
+}
diff --git a/overlays/FinanceQuote/tradegate.patch b/overlays/FinanceQuote/tradegate.patch
new file mode 100644
index 00000000..f1081fc4
--- /dev/null
+++ b/overlays/FinanceQuote/tradegate.patch
@@ -0,0 +1,18 @@
+--- old/lib/Finance/Quote/Tradegate.pm
++++ new/lib/Finance/Quote/Tradegate.pm
+@@ -98,12 +98,13 @@
+         @child = $td1->content_list;
+         my $exchange = $child[0];
+
+         $td1 = ($lastvalue->look_down('_tag'=>'td'))[7];
+         @child = $td1->content_list;
+-        my $date = substr($child[0], 0, 8);
+-        my $time = substr($child[0], 9, 5); # CE(S)T
++       $child[0] =~ /(?<date>\d{2}\.\d{2}\.\d{2,4})\s*\/\s*(?<time>\d{2}:\d{2})/;
++       my $date = $+{date};
++       my $time = $+{time};
+
+         $td1 = ($lastvalue->look_down('_tag'=>'td'))[9];
+         @child = $td1->content_list;
+         my $price = $child[0];
+         $price =~ s/\.//g;