Retrieve and search chat history: Difference between revisions

=={{header|C}}==

Starts from current date, prints out lines containing matching substring and also if the string is not found at all in the log of that particular day and also if the log of a day cannot be read for any reason, requires [https://curl.haxx.se/libcurl/ libcurl]

#include<curl/curl.h>

#include<string.h>

return 0;

}

Invocation and some output, actual output can be huge :

<pre>

 

=={{header|Elixir}}==

defmodule Mentions do

def get(url) do

IO.puts("#{url}\n------\n#{Enum.join([h | t], "\n")}\n------\n")

end

 

=={{header|F_Sharp|F#}}==

let server_tz =

try

| x ->

printfn "Usage: %s literal" (Array.get x 0)

 

=={{header|Go}}==

 

import (

}

}

 

=={{header|Julia}}==

 

function geturlbyday(n)

searchlogs()

end

 

getLogLinks[n_] :=

Select[Import["http://tclers.tk/conferences/tcl/", "Hyperlinks"],

StringCases[#1, "tcl/" ~~ date__ ~~ ".tcl" :> DateDifference[DateObject[URLDecode[date], TimeZone -> "Europe/Berlin"], Now]]] <=

Quantity[n, "Days"] & ]

searchLogs[str_String] := Block[{data},

Map[

Print /@ Join[{#, "-----"}, data, {"----\n"}]]) &,

getLogLinks[10]]]

{{out}}

<pre>http://tclers.tk/conferences/tcl/2017%2d09%2d25.tcl

-----

m 2017-09-25T14:38:02Z hypnotoad {I'm lazy and the old implementation was called "zvfs", and there a lot of kit builders who are looking for that command}

 

=={{header|Nim}}==

{{trans|Python}}

 

const Template = "'http://tclers.tk/conferences/tcl/'yyyy-MM-dd'.tcl'"

line

if mentions.len > 0:

 

{{out}}

=={{header|Perl}}==

{{Trans|Raku}}

 

use strict;

 

# find and print needle lines

 

=={{header|Phix}}==

{{trans|Go}}

{{libheader|Phix/libcurl}}

{{out}}

(manually wrapped)

 

=={{header|Python|Python 3}}==

import datetime

import re

.format(url, '\n'.join(mentions)))

 

 

=={{header|Racket}}==

Retrieves logs from 9 days ago until today and only outputs results if there are matches for the day. Setting the time zone to that of Germany works on Linux and may work on MacOS but has not been tested. Setting the time zone on your machine to Europe/Berlin before running this code will take care of the issue no matter what operating system you're using.

 

(require net/url)

(require racket/date)

;; display usage info if no search string is provided

(cond ((= 0 (vector-length (current-command-line-arguments))) (display "USAGE: chat_history <search term>\n"))

{{out}}

Sample output using a search term of 'github.com'

No dependencies or third party libraries huh? How about no modules, no requires, no libraries, no imports at all. Implemented using a bare compiler, strictly with built-ins. (Which makes it kind-of verbose, but thems the trade-offs.)

 

my @haystack;

 

 

# find and print needle lines

{{out}}

Sample output using a needle of 'github.com'

 

=={{header|Ruby}}==

require 'net/http'

require 'time'

end

 

 

=={{header|Scala}}==

import java.net.URL

import java.time

case x => s"$url\n------\n${x.mkString("\n")}\n------\n\n"

})

 

=={{header|Smalltalk}}==

Save as a " .st" file, load into a Pharo 7 image (Tools -> File Browser -> Select the file -> FileIn), navigate using the System Browser to the RosettaCode package to read it more comfortably, save the image, and run on the OS shell with "pharo -headless [image] searchHistory term".

 

CommandLineHandler subclass: #ChatHistorySearchCommandLineHandler

instanceVariableNames: ''

^ 'searchHistory'! !

 

 

=={{header|Tcl}}==

 

===Tcl 8.5+===

package require http

 

}

 

 

===Jim Tcl===

proc get url {

if {![regexp {http://([a-z.]+)(:[0-9]+)?(/.*)} $url _ host port path]} {

}

 

 

=={{header|zkl}}==

http://tclers.tk/conferences/tcl/:

2017-04-03.tcl 30610 bytes Apr 03, 2017 21:55:37

mentions:=haystack.filter("find",needle); // search lines

if(mentions) println("%s\n------\n%s------\n".fmt(url,mentions.text));

While zkl supports TCP natively and talking simple HTTP is easy,

Curl is way easier and fully supports the protocol.