craigslist.org new posts leecher

[Support]

This script will check craigslist.org every 15 seconds and list the new added posts.

Code: Select all

Output.Clear;
PerlRegEx = Yes;

Link = New(URL);
Link.Location='http://vancouver.craigslist.org/zip/';
LastData = '';

loop

	Link.Get;
	rx = RegEx(Link.Data);
	rx.Mask = '<a href="(http://vancouver\.craigslist\.org/zip/([0-9]+)\.html)">';

	if rx.Match then
	begin
		if LastData <> rx.Value[2] then Run(rx.Value[1]);
		LastData = rx.Value[2];
 	end;

	Pause(15000);

end;