Provide 'mms2' product link.

[www.jankratochvil.net.git] / project / udpgate / Index.pm

diff --git a/project/udpgate/Index.pm b/project/udpgate/Index.pm
index 9c17bf1..e2673c2 100644 (file)
--- a/project/udpgate/Index.pm
+++ b/project/udpgate/Index.pm
@@ -70,6 +70,18 @@ get replaced by the target project neutral:</p>
 </blockquote>
 HERE
 
+my $mms2_title=product::Lib->title(product::Lib->name_to_hashref("mms2"));
+print <<"HERE";
+<p>This project was created for the purposes of:</p>
+<table border="0" class="margin-center td-center">
+       <tr><td>@{[
+               img '/product/mms2/icon.jpeg',$mms2_title,
+                               "a_href"=>'/product/mms2/'
+               ]}</td></tr>
+       <tr><td style="font-size: xx-large;">@{[ a_href '/product/mms2/',$mms2_title ]}</td></tr>
+</table>
+HERE
+
 
 exit;
 }