## Copyright (C) 2016 Julien Bect
NEWS_PAGE_URL = "http://octave.sourceforge.net/NEWS.html";
INDEX_PAGE_URL = "http://octave.sourceforge.net/index.html";
NEWS_START_TOKEN = "";
NEWS_END_TOKEN = "";
LATEST_NEWS_LENGTH = 8;
# Extract all news items
news_page = urlread (NEWS_PAGE_URL);
C = regexp (news_page, '(
.*?\s*.*?)', 'tokens');
# Concatenate latest news
latest_news = [];
for i = 1:LATEST_NEWS_LENGTH
latest_news = strcat (latest_news, C{i}{1});
endfor
# Update index page
index_page = urlread (INDEX_PAGE_URL);
s1 = [NEWS_START_TOKEN ".*" NEWS_END_TOKEN];
s2 = sprintf ("%s\n%s\n%s\n", NEWS_START_TOKEN, latest_news, NEWS_END_TOKEN);
index_page = regexprep (index_page, s1, s2);
# Save updated index page
FID = fopen ("index.html", "wt");
fputs (FID, index_page);
fclose (FID);