Tech
General
APoD
<% use TinyPortal; my $news,$current,$item,$lastItem,$group,$subgroup,$cacheFile; %>
<% $news = TinyPortal::tpGetNews('APOD'); %> <% if (defined($news) && (not @$news == ())) { $item = $news->[0]; %>
<%=$item->{'Date'}%>
<%=$item->{'Credit'}%>

<%=$item->{'Description'}%>
<% } else { %>
Seems to be unavailable!
<% } %>
AT&T SMS
To:

From:

Message:
flipcode:Daylies

<% use TinyPortal; my $news,$current,$item,$lastItem,$group,$subgroup,$cacheFile; %>
<% $news = TinyPortal::tpGetNews('flipcode-daylies'); %> <% if (defined($news) && (not @$news == ())) { $item = $news->[0]; %>
Image
Code
<%=$item->{'Code'}%>
Tip
<%=$item->{'Tip'}%>
Resource
<%=$item->{'Resource'}%>
<% } else { %>
Seems to be unavailable!
<% } %>
Weather
<% use TinyPortal; my $news,$current,$item,$lastItem,$group,$subgroup,$cacheFile; %>
<% $news = TinyPortal::tpGetNews('Weather-Chicago-WGN'); %> <% if (defined($news) && (not @$news == ())) { $item = $news->[0]; %>
Current

<%=$item->{'Temp'}%>/<%=$item->{'Chill'}%>
<%=$item->{'Day-0-Title'}%>
<%=$item->{'Day-0-Temp-High'}%>/<%=$item->{'Day-0-Temp-Low'}%>
<%=$item->{'Day-0-Description'}%>
<%=$item->{'Day-1-Title'}%>
<%=$item->{'Day-1-Temp-High'}%>/<%=$item->{'Day-1-Temp-Low'}%>
<%=$item->{'Day-1-Description'}%>
<%=$item->{'Day-2-Title'}%> <%=$item->{'Day-3-Title'}%>
<%=$item->{'Day-2-Temp-High'}%> <%=$item->{'Day-3-Temp-High'}%>
<%=$item->{'Day-2-Temp-Low'}%> <%=$item->{'Day-3-Temp-Low'}%>
<%=$item->{'Day-4-Title'}%> <%=$item->{'Day-5-Title'}%>
<%=$item->{'Day-4-Temp-High'}%> <%=$item->{'Day-5-Temp-High'}%>
<%=$item->{'Day-4-Temp-Low'}%> <%=$item->{'Day-5-Temp-Low'}%>
<% } else { %>
Seems to be unavailable!
<% } %>
<% use TinyPortal; my $news,$current,$item,$lastItem,$group,$subgroup,$cacheFile; %>
<% $news = TinyPortal::tpGroupNews(TinyPortal::tpGetNews('Links','url','http://localhost/~grafik/links.xml'),'Topic','Sub-Topic'); %> <% if (defined($news) && (not @$news == ())) { foreach $group (@$news) { %> <% my $GroupName = $group->[0]->[0]->{'Topic'}; %>
 <%=$GroupName%>
<% foreach $subgroup (@$group) { %> <% my $SubGroupName = $subgroup->[0]->{'Sub-Topic'}; %>
   <%=$SubGroupName%>
<% foreach $item (@$subgroup) { %>
 •  <%=$item->{'Title'}%>
<% } } } } else { %>
Seems to be unavailable!
<% } %>
User Friendly
<% use TinyPortal; my $news,$current,$item,$lastItem,$group,$subgroup,$cacheFile; %>
<% $news = TinyPortal::tpGetNews('User-Friendly'); %> <% if (defined($news) && (not @$news == ())) { $item = $news->[0]; %>
<% } else { %>
Seems to be unavailable!
<% } %>
Dilbert
<% use TinyPortal; my $news,$current,$item,$lastItem,$group,$subgroup,$cacheFile; %>
<% $news = TinyPortal::tpGetNews('Dilbert'); %> <% if (defined($news) && (not @$news == ())) { $item = $news->[0]; %>
<% } else { %>
Seems to be unavailable!
<% } %>