cubabit/gist:5504048

## gistfile1.txt
#!perl
use Dancer;

get '/' => sub {
    return <<EOF;
<html>
<body>
<form>
RFID: <input type="text" name="rfid" /> <br />
PID: <input type="pid" name="pid" /> <br />
Location: <input type="location" name="location" /> <br />
Size <input type="size" name="size" /> <br />
<input type="submit" value="submit" />
</form>
</body>
</html>
EOF
};

get '/tag' => sub {

    my @out = `nfc-list`;

    my $rfid;

    foreach my $line ( @out ) {
        if ( $line =~ /UID/ ) {
                $rfid = $line;
                $rfid =~ s/UID\s+\(.+\)://;
                $rfid =~ s/\s+//g;
        }
    }

    return $rfid;

};

dance;
	#!perl
	use Dancer;

	get '/' => sub {
	return <<EOF;
	<html>
	<body>
	<form>
	RFID: <input type="text" name="rfid" /> <br />
	PID: <input type="pid" name="pid" /> <br />
	Location: <input type="location" name="location" /> <br />
	Size <input type="size" name="size" /> <br />
	<input type="submit" value="submit" />
	</form>
	</body>
	</html>
	EOF
	};

	get '/tag' => sub {

	my @out = `nfc-list`;

	my $rfid;

	foreach my $line ( @out ) {
	if ( $line =~ /UID/ ) {
	$rfid = $line;
	$rfid =~ s/UID\s+\(.+\)://;
	$rfid =~ s/\s+//g;
	}
	}

	return $rfid;

	};

	dance;