From 1ef002c67514756ca067565d7656f3cf32e84b15 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Mon, 8 Aug 2022 14:09:18 +0200
Subject: [PATCH] add page for Mimosis 1 readout

---
 web/htdocs/addons/mimosis.pl | 57 ++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100755 web/htdocs/addons/mimosis.pl

diff --git a/web/htdocs/addons/mimosis.pl b/web/htdocs/addons/mimosis.pl
new file mode 100755
index 0000000..a8dfe14
--- /dev/null
+++ b/web/htdocs/addons/mimosis.pl
@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
+  print "HTTP/1.0 200 OK\n";
+  print "Content-type: text/html\r\n\r\n";
+  }
+else {
+  use lib '..';
+  use if (!($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i)), apacheEnv;
+  print "Content-type: text/html\n\n";
+  }
+
+use CGI ':standard';
+use XML::LibXML;
+use POSIX;
+use CGI::Carp qw(fatalsToBrowser);
+
+use lib qw|../commands htdocs/commands|;
+use xmlpage;
+
+my $page;
+
+$page->{title} = "Mimosis";
+$page->{link}  = "../";
+
+my @setup;
+
+push(@setup,({name      => "Input", 
+              cmd       => "Mimosis-0xa000-InputStage",
+              period    => 1000,
+              address   => 1}));
+
+push(@setup,({name      => "WordAlign", 
+              cmd       => "Mimosis-0xa000-WordAlignStage",
+              period    => 1000,
+              rates     => 1,
+              address   => 1}));              
+
+push(@setup,({name      => "Buffer", 
+              cmd       => "Mimosis-0xa000-FrameBuffer",
+              period    => 1000,
+              rates     => 1,
+              address   => 1}));              
+
+push(@setup,({name      => "I2C", 
+              cmd       => "Mimosis-0xa000-MimosisI2C",
+              period    => 1000,
+              rates     => 1,
+              address   => 1}));   
+              
+xmlpage::initPage(\@setup,$page);
+ 
+
+ 
+
+1;
+
+
-- 
2.43.0