web/footer.html web/header.html web/index.html web/job_detail.html web/jobs.html web/job_submit.html web/media
dev/null |binary web/footer.html | 5 ---- web/header.html | 18 --------------- web/index.html | 37 -------------------------------- web/job_detail.html | 27 ----------------------- web/job_submit.html | 42 ------------------------------------- web/jobs.html | 34 ------------------------------ web/media/css/cas-web.css | 52 ---------------------------------------------- 8 files changed, 215 deletions(-)
New commits: commit b47ff348aa8fdb369314b8e98c4a5b8e4a73f1e5 Author: adam stokes uzr@jak.rebo Date: Thu Oct 15 09:34:49 2009 -0400
- altering web
diff --git a/web/footer.html b/web/footer.html deleted file mode 100644 index da211cc..0000000 --- a/web/footer.html +++ /dev/null @@ -1,5 +0,0 @@ -<div id="footer"> -cas_web_ui © 2007-2009 Adam Stokes -</div> -</body> -</html> diff --git a/web/header.html b/web/header.html deleted file mode 100644 index 43a5b8c..0000000 --- a/web/header.html +++ /dev/null @@ -1,18 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> - <meta http-equiv="Content-type" content="text/html; charset=utf-8"> - <link rel="stylesheet" href="/media/css/cas-web.css" type="text/css" media="screen" /> - - <title><% $title %></title> -</head> -<body> -<div id="header"> - <p><a href="/"><img src="/media/img/cas_logo.png"></a></p> - :// <a href="/">go home</a>, <a href="/jobs.html">jobs</a> -</div> - -<%init> -my $title="cas-web-ui"; -</%init> - diff --git a/web/index.html b/web/index.html deleted file mode 100644 index f59d914..0000000 --- a/web/index.html +++ /dev/null @@ -1,37 +0,0 @@ -<& header.html &> -<div id="content"> -<h3>Core submission<h3> -<div id="form_submit"> - <form method="POST" action="job_submit.html" enctype="multipart/form-data"> - <table> - <tr> - <th> </th><th>Complete below form</th> - </tr> - <tr> - <td>Job Identifier</td> - <td><input type="text" size="25" name="form_identifier" /> - </tr> - <tr> - <td>Submitter</td> - <td><input type="text" size="25" name="form_submitter" /> - </tr> - <tr> - <td colspan="2" style="background-color: red; color: white;">Please choose a method for providing the core file</td> - </tr> - <tr> - <td>Upload a File</td> - <td><input type="file" size="45" name="form_file"/></td> - </tr> - <tr> - <td>HTTP or FTP URL</td> - <td><input type="text" size="45" name="form_url"/></td> - </tr> - <tr> - <td colspan="2"><input type="submit" value="Process Job" /></td> - </tr> - </table> - - </form> -</div> -</div> -<& footer.html &> diff --git a/web/job_detail.html b/web/job_detail.html deleted file mode 100644 index eb50606..0000000 --- a/web/job_detail.html +++ /dev/null @@ -1,27 +0,0 @@ -<!-- mason --> -<& header.html &> -<div id="content"> -<h3>Job Detail for <% $work_dir %>/<% $view_log %></h3> -<ul> -% while (<DATA>) { -<li><% $_ %></li> -% } -</ul> -<& footer.html &> - -<%init> -use Data::Dumper; - -my $work_dir; -open DATA, "</etc/cas.conf" or die $!; -while (<DATA>) { - if (/^workDirectory=(.*)/) { - $work_dir = $1; - } -} -open DATA, "<$work_dir/$view_log" or die $!; -</%init> - -<%args> -$view_log -</%args> diff --git a/web/job_submit.html b/web/job_submit.html deleted file mode 100644 index d1a33bc..0000000 --- a/web/job_submit.html +++ /dev/null @@ -1,42 +0,0 @@ -<!-- mason --> -<& header.html &> -<div id="content"> -<h3>Form submitted</h3> -</div> - -<& footer.html &> -<%init> -use File::Path; - -# create path if doesn't exist -if ($form_identifier && ! -f "/cores/$form_identifier") { - mkpath("/cores/$form_identifier", {verbose => 1}); -} - -# File uploads -if ($form_file) { - my $query = $m->cgi_object; - - # get a filehandle for the uploaded file - my $fh = $query->upload('form_file'); - - # setup file - open FORMFILE, '>>/tmp/formfile'; - - # print out the contents of the uploaded file - while (<$fh>) { - print FORMFILE $_; - } - close($fh); - - close FORMFILE; -} -</%init> - -<%args> -$form_identifier -$form_file -$form_submitter -$form_url -</%args> - diff --git a/web/jobs.html b/web/jobs.html deleted file mode 100644 index b6846ff..0000000 --- a/web/jobs.html +++ /dev/null @@ -1,34 +0,0 @@ -<!-- mason --> -<& header.html &> -<div id="content"> -<h3>Jobs</h3> -<table> -<tr> -<th> </th> -<th>id</th><th>identifier</th><th>timestamp</th><th>email</th> -</tr> -% foreach my $item (@{$data}) { -% my ($id, $identify, $timestamp, $email) = @{$item}; -% if (-f "/cores/$identify") { - <tr> - <td><a href="/job_detail.html?view_log=<% $identify %>/<% $timestamp %>/<% $identify %>.log">view log</a></td> - <td><% $id %></td> - <td><% $identify %></td> - <td><% $timestamp %></td> - <td><% $email %></td> - </tr> -% } -% } -</table> -</div> -<& footer.html &> - -<%init> -use DBI; -my $dbh = DBI->connect("dbi:SQLite:dbname=/var/db/cas/cas.db","",""); - -# query all jobs -my $sth = $dbh->prepare("SELECT * FROM jobs"); -$sth->execute(); -my $data = $sth->fetchall_arrayref; -</%init> diff --git a/web/media/css/cas-web.css b/web/media/css/cas-web.css deleted file mode 100644 index d6880f3..0000000 --- a/web/media/css/cas-web.css +++ /dev/null @@ -1,52 +0,0 @@ -/* GLOBAL ATTRIBUTES */ -body { - font-family: sans-serif; - margin: 0; - padding: 5px; -} - -h1 { - padding: 0; - margin: 0; -} - -td, th { - padding: 5px; - text-align: left; - vertical-align: middle; -} - -img { - border: 0; -} - -/* CUSTOM */ - -#header { - font-size: small; - padding: 5px; - width: 600px; - margin-left: auto; - margin-right: auto; -} - -#content { - font-size: small; - width: 600px; - margin-left: auto; - margin-right: auto; -} - -#footer { - font-size: small; - padding: 5px; - width: 600px; - margin-left: auto; - margin-right: auto; -} - -/* FORM ELEMENTS */ -#form_submit { - font-size: small; - font-style: normal; -} diff --git a/web/media/img/cas_logo.png b/web/media/img/cas_logo.png deleted file mode 100644 index 39e2302..0000000 Binary files a/web/media/img/cas_logo.png and /dev/null differ
-
Adam Stokes