URL shortener: Difference between revisions

{{libheader| kemal}}

CHARS = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ".chars

end

=={{header|Delphi}}==

{{libheader| Inifiles}}

Highly inspired in [[#Go]]

program URLShortenerServer;

Manager.Free;

{{out}}

<pre>

</pre>

=={{header|Go}}==

package main

db := make(database)

log.Fatal(http.ListenAndServe(host, db))

{{out}}

=={{header|JavaScript}}==

{{works with|Node.js}}

var mapping = new Map();

res.writeHead(404);

res.end();

{{out}}

<pre>$ curl -X POST http://localhost:8080/ -H "Content-Type: application/json" --data "{\"long\":\"https://www.example.com\"}"

=={{header|Julia}}==

Assumes an SQLite database containing a table called LONGNAMESHORTNAME (consisting of two string columns) already exists.

function processpost(req::HTTP.Request, urilen=8)

const localport = 3000

run_web_server(serveraddress, localport)

=={{header|Objeck}}==

use Data.JSON;

use Web.HTTP;

return Response->New(200, response);

}

=={{header|Phix}}==

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\URL_shortener.exw

<span style="color: #000000;">sock</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">closesocket</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sock</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">WSACleanup</span><span style="color: #0000FF;">()</span>

{{out}}

Sample session output:

=={{header|PicoLisp}}==

(allowed NIL "!short" u)

(pool "urls.db" (6))

(commit 'upd)

(respond (pack "http://127.0.0.1:8080/?" K "\n")) ) ) )

{{out}}

<pre>

===Flask===

{{libheader|Flask}}

"""A URL shortener using Flask. Requires Python >=3.5."""

app.env = "development"

app.run(debug=True)

=={{header|Raku}}==

There is '''NO''' security or authentication on this minimal app. Not recommended to run this as-is on a public facing server. It would not be too difficult to ''add'' appropriate security, but it isn't a requirement of this task. Very minimal error checking and recovery.

use JSON::Fast;

react whenever signal(SIGINT) { $shorten.stop; exit; }

=={{header|Wren}}==

{{libheader|Wren-json}}

An embedded program with a Go host so we can use its net/http module.

import "./json" for JSON

foreign static redirect(url, code)

We now embed this script in the following Go program and build it.

package main

log.Fatal(http.ListenAndServe(host, nil))

vm.Free()

{{out}}

Sample output (abbreviated) including building and starting the server from Ubuntu 20.04 terminal and entering a valid and then an invalid shortened URL: