f/clojurecup2015-mailhead
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add a cut off head :)

Browse source
This commit is contained in:
Aaron Fischer 2015-12-06 15:53:11 +01:00
parent 266cd24045
commit a6a9a3efb4
4 changed files with 18 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
resources/public/css/screen.css
View file

@ -15,6 +15,13 @@ textarea {
margin-right: 30px;
}
#head {
float: left;
margin-right: 20px;
margin-top: 20px;
}
{% if cljs %}
@-moz-keyframes three-quarters-loader {
0% {

BIN
resources/public/img/head.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 968 B

9
resources/templates/home.html
View file

@ -1,15 +1,18 @@
{% extends "base.html" %}
{% block content %}
<div class="row">
<div class="span12">
<p>Use this form to analyze a e-mail. Just paste the whole e-mail
<div class="span3">
<img id="head" src="img/head.png">
</div>
<div class="span9">
<p class="col-md-9">Use this form to analyze a e-mail. Just paste the whole e-mail
in <strong>raw mode</strong> here and hit the analyze button. The e-mail
will be analyzed and an visual representation will be generated. Use this
tool to find e-mail problems or to see which servers, locations and
companies the e-mail passed. This tool is intended for debugging e-mail
communication.</p>
<form action="/analyze" method="post">
<form class="col-md-9" action="/analyze" method="post">
{% csrf-field %}
<textarea class="form-control" name="mailheader" placeholder="Paste your e-mail in source format (with headers) here."></textarea><br>
<input class="btn btn-success form-control" type="submit" name="send"

9
src/mailhead/routes/home.clj
View file

@ -13,10 +13,6 @@
(defn about-page []
(layout/render "about.html"))
(defn show-sample [index]
(let [email-content (slurp (str "sample-data/example" index ".eml"))]
(show-result email-content)))
;; TODO: Show more information (mail round trip time, ...)
(defn show-result [message-string]
(if (empty? (parser/parse message-string))
@ -28,6 +24,11 @@
:email parsed-email
:token token}))))
(defn show-sample [index]
(let [email-content (slurp (str "sample-data/example" index ".eml"))]
(show-result email-content)))
(defn generated-image [token]
(-> (clojure.java.io/input-stream (str "generated-images/" token ".svg"))
ok