Initial commit for deckard and company

API/decard.pl

@@ -0,0 +1,79 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use JSON;
+# use database engine
+
+sub get_request_info {
+	my $clientIP = ($ENV{"REMOTE_ADDR"} or "0.0.0.0");
+	my $proto = ($ENV{"REQUEST_SCHEME"} or "http");
+	my $get_query = (split(/\?/,($ENV{"QUERY_STRING"} or "")))[0];
+	my $post_query = "";
+	if ( $ENV{"CONTENT_LENGTH"} ) { read( <STDIN>, $post_query, $ENV{"CONTENT_LENGTH"}); }
+	my $referrer = ($ENV{"HTTP_REFERER"} or "");
+	return ($proto,$clientIP,$get_query,$post_query,$referrer);
+}
+
+sub http_status {
+	my ($status,$content,$target) = @_;
+	my $header = "";
+	$header .= "status: ".$status."\r\n";
+	$header .= "Location: ".$target."\r\n" if $target;
+	$header .= "Content-Type: ".$content."\r\n" if $content;
+	$header .= "\r\n";
+	return $header;
+}
+
+sub html_tag {
+	if ($_[1]) { return "<".($_[0] or "div").($_[2] or "").">".($_[1] or "")."</".($_[0] or "div").">\n";
+	} else {return "<".($_[0] or "div").($_[2] or "")." />\n";
+	}
+}
+
+sub html_content {
+	return html_tag("html", html_tag( "head", html_tag( "title", shift ) . shift ) . html_tag( "body", shift ) );
+}
+
+sub soft_die {
+	print http_status(500,"text/html; charset=utf-8");
+	print html_content("500","",shift);
+	exit;
+}
+
+sub clean_input {
+	my $input = shift;
+	if ($input =~ m!%2F!) { soft_die( "Location/hax\r\n\r\n"; }
+	$input =~ s!%(..)!chr hex $1!ge;
+	$input =~ s!\+! !g;
+	return $input;
+}
+
+my @request = get_request_info();
+my @get_params = split( "!", clean_input($request[2]) );
+# my @post_params
+my $directive = shift(@get_params);
+if ( "new" eq $directive ) {
+# new session, new deck, new location
+# if deck/location parent sessionID
+# if location public/private
+# returns id and key of new object
+} elsif ( "shuffle" eq $directive ) {
+# shuffle - deckID - full/current - deckKey
+# sheffles all cards in deckID's locationID if deckKey matches
+} elsif ( "move" eq $directive ) {
+# move - cardID - current locationID - current locationKey - destination locationID
+# changes ownership of cardID to destination locationID if cardID is owned by current locationID and the current locationKey matchs
+} elsif ( "getLocations" eq $directive ) {
+# getLocations - sessionID - sessionKey
+# return all locationIDs associated with sessionID as long as sessionKey matches
+} elsif ( "getCards" eq $directive ) {
+# getCards - locationID - locationKey
+# returns all cardIDs for locationID as long as its public or the locationKey matches
+} elsif ( "getDecks" eq $directive ) {
+# getDecks - sessionID - sessionKey
+# returns all deckIDs associated with sessionID provided sessionKey matchs.
+} else {
+	print http_status(200,"text/json");
+	print '{"error":"No input or incorrect input", "input":"'.$directive.'!'.join("!",@get_params).'"}';
+}