## 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 = "<!--New news go here-->";
NEWS_END_TOKEN = "<!--News end here-->";
 
LATEST_NEWS_LENGTH = 8;

# Extract all news items
news_page = urlread (NEWS_PAGE_URL);
C = regexp (news_page, '(<dt>.*?</dt>\s*<dd>.*?</dd>)', '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);