jdb/timestamper
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Started working on the client-side code.

Browse Source
This commit is contained in:
Jonathan Bernard 2011-02-10 07:47:35 -06:00
parent 0642c18a6e
commit afca12ecc9
9 changed files with 8269 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
db/test/DECISION_TAB.LOG
View File

Binary file not shown.

BIN
db/test/LATEST.LOG
View File

Binary file not shown.

36
src/ts_api.erl
View File

@ -62,20 +62,20 @@ dispatch_user(YArg, Session, [H]) ->
{'GET', Username} -> get_user(YArg, Username);
{_BadMethod, Username} ->
make_json_405(YArg, [{see_docs, "/ts_api_doc/users"}]);
make_json_405(YArg, [{see_docs, "/ts_api_doc/users.html"}]);
_Other -> make_json_401(YArg, [{see_docs, "/ts_api_doc/users"}])
_Other -> make_json_401(YArg, [{see_docs, "/ts_api_doc/users.html"}])
end.
dispatch_timeline(YArg, _Session, []) ->
make_json_404(YArg, [{see_docs, "/ts_api_doc/timelines"}]);
make_json_404(YArg, [{see_docs, "/ts_api_doc/timelines.html"}]);
dispatch_timeline(YArg, Session, [UrlUsername|_T] = PathElements) ->
Username = path_element_to_atom(UrlUsername),
case Session#ts_api_session.username of
Username -> dispatch_timeline(YArg, PathElements);
_Other -> make_json_404(YArg, [{see_docs, "/ts_api_doc/users"}])
_Other -> make_json_404(YArg, [{see_docs, "/ts_api_doc/users.html"}])
end.
% just username, list timelines
@ -85,7 +85,7 @@ dispatch_timeline(YArg, [UrlUsername]) ->
case HTTPMethod of
'GET' -> list_timelines(YArg, Username);
_Other -> make_json_405(YArg, [{see_docs, "/ts_api_doc/timelines"}])
_Other -> make_json_405(YArg, [{see_docs, "/ts_api_doc/timelines.html"}])
end;
dispatch_timeline(YArg, [UrlUsername, UrlTimelineId]) ->
@ -98,21 +98,21 @@ dispatch_timeline(YArg, [UrlUsername, UrlTimelineId]) ->
'POST' -> post_timeline(YArg, Username, TimelineId);
'PUT' -> put_timeline(YArg, Username, TimelineId);
'DELETE' -> delete_timeline(YArg, Username, TimelineId);
_Other -> make_json_405(YArg, [{see_docs, "/ts_api_doc/timelines"}])
_Other -> make_json_405(YArg, [{see_docs, "/ts_api_doc/timelines.html"}])
end;
dispatch_timeline(YArg, _Other) ->
make_json_404(YArg, [{see_docs, "/ts_api_doc/timelines"}]).
make_json_404(YArg, [{see_docs, "/ts_api_doc/timelines.html"}]).
dispatch_entry(YArg, _Session, []) ->
make_json_404(YArg, [{see_docs, "/ts_aip_doc/entries"}]);
make_json_404(YArg, [{see_docs, "/ts_aip_doc/entries.html"}]);
dispatch_entry(YArg, Session, [UrlUsername|_T] = PathElements) ->
Username = path_element_to_atom(UrlUsername),
case Session#ts_api_session.username of
Username -> dispatch_entry(YArg, PathElements);
_Other -> make_json_404(YArg, [{see_docs, "/ts_api_doc/entries"}])
_Other -> make_json_404(YArg, [{see_docs, "/ts_api_doc/entries.html"}])
end.
dispatch_entry(YArg, [UrlUsername, UrlTimelineId]) ->
@ -123,7 +123,7 @@ dispatch_entry(YArg, [UrlUsername, UrlTimelineId]) ->
case HTTPMethod of
'GET' -> list_entries(YArg, Username, TimelineId);
'PUT' -> put_entry(YArg, Username, TimelineId);
_Other -> make_json_405(YArg, [{see_docs, "/ts_api_doc/entries"}])
_Other -> make_json_405(YArg, [{see_docs, "/ts_api_doc/entries.html"}])
end;
dispatch_entry(YArg, [UrlUsername, UrlTimelineId, UrlEntryId]) ->
@ -136,11 +136,11 @@ dispatch_entry(YArg, [UrlUsername, UrlTimelineId, UrlEntryId]) ->
'GET' -> get_entry(YArg, Username, TimelineId, EntryId);
'POST' -> post_entry(YArg, Username, TimelineId, EntryId);
'DELETE' -> delete_entry(YArg, Username, TimelineId, EntryId);
_Other -> make_json_405(YArg, [{see_docs, "/ts_api_doc/entries"}])
_Other -> make_json_405(YArg, [{see_docs, "/ts_api_doc/entries.html"}])
end;
dispatch_entry(YArg, _Other) ->
make_json_404(YArg, [{see_docs, "/ts_api_doc/entries"}]).
make_json_404(YArg, [{see_docs, "/ts_api_doc/entries.html"}]).
% ============================== %
% ======== IMPLEMENTATION ====== %
@ -175,7 +175,7 @@ do_login(YArg) ->
"bad username/password combination"}])
end;
_Other -> make_json_400(YArg, [{see_docs, "/ts_api_doc/login"}])
_Other -> make_json_400(YArg, [{see_docs, "/ts_api_doc/login.html"}])
end.
do_logout(YArg) ->
@ -252,7 +252,7 @@ put_timeline(YArg, Username, TimelineId) ->
JSONResponse = json:encode({struct, [
{status, "ignored"},
{timeline, EJSONRec},
{see_docs, "/ts_api_doc/timelines#PUT"}
{see_docs, "/ts_api_doc/timelines.html#PUT"}
]}),
{content, "application/json", JSONResponse};
@ -282,7 +282,7 @@ post_timeline(YArg, Username, TimelineId) ->
no_record -> make_json_404(YArg,
[{status, "no such timeline"},
{see_docs, "/ts_api_doc/timelines#POST"}]);
{see_docs, "/ts_api_doc/timelines.html#POST"}]);
_Error -> make_json_500(YArg)
end.
@ -299,7 +299,7 @@ list_entries(YArg, Username, TimelineId) ->
{no_record, _ByDateField} -> make_json_404(
[{status, "no such timeline"},
{see_docs, "/ts_api_doc/entries#LIST"}]);
{see_docs, "/ts_api_doc/entries.html#LIST"}]);
% listing by date range
{Timeline, {byDate, "true"}} ->
@ -402,7 +402,7 @@ put_entry(YArg, Username, TimelineId) ->
JSONResponse = json:encode({struct, [
{status, "ignored"},
{entry, EJSONRec},
{see_docs, "/ts_api_doc/entries#PUT"}
{see_docs, "/ts_api_doc/entries.html#PUT"}
]}),
{content, "application/json", JSONResponse};
@ -425,7 +425,7 @@ post_entry(YArg, Username, TimelineId, EntryId) ->
ok -> make_json_200(YArg, NewRecord);
no_record -> make_json_404(YArg,
[{status, "no such entry"}, {see_docs, "/ts_api_doc/entries#POST"}]);
[{status, "no such entry"}, {see_docs, "/ts_api_doc/entries.html#POST"}]);
_Error -> make_json_500(YArg)
end.

0
www/css/ts.scss Normal file
View File

24
www/index.yaws Normal file
View File

@ -0,0 +1,24 @@
<!DOCTYPE html>
<html>
<head>
<title>TimeStamper - Simple time tracking</title>
</head>
<body>
<div id="header">
<div>
<h1>TimeStamper</h1>
<h4>Simple time tracking.</h4>
</div>
<div id="form-panel">
<form action="/ts/" method="post">
<label for="uname">username: </label>
<input name="uname" type="text"/>
<label for="pwd">password: </label>
<input name="pwd" type="password"/>
</form>
</div>
</body>
</html>

8176
www/js/jquery-1.5.js vendored Normal file
View File

File diff suppressed because it is too large Load Diff

16
www/js/jquery-1.5.min.js vendored Normal file
View File

File diff suppressed because one or more lines are too long

4
www/ts/html_only.yaws Normal file
View File

@ -0,0 +1,4 @@
<!DOCTYPE html>
<html>
</html>

31
www/ts/index.yaws Normal file
View File

@ -0,0 +1,31 @@
<!DOCTYPE html>
<html>
<head>
</head>
<body>
<div id="user" class="bar">
<span id="fullname">Jonathan Bernard</span>
<span id="username">jdbernard</span>
</div>
<div id="user-info" class="bar">
<form action="/ts/update-user.yaws" onsubmit="updateUser(); false">
<!-- TODO -->
</form>
</div>
<div id="timeline" class="bar">
<span id="timeline_name">work</span>
</div>
<div id="timeline-info" class="bar">
<form action="/ts/update-timeline.yaws" onsubmit="updateTimeline(); false">
<!-- TODO -->
</form>
</div>
<div id="new-entry" class="bar">
</div>
<div id="new-entry-notes" class="bar">
</div>
</body>
</html>