Sinähän voisit tehdä samanlaisen deskletin Adeskletseille. 
Aikani taistelin että olisin saanut suoraan tuon tv.php:n ajettua php-cgi:llä adesklettiin, ja kun ei onnistunut millään. Adesklets ei ole jotenkin halukas toimimaan php-cgi:n kanssa, sekoaa jostakin tyhjämerkeistä tms...
Joten tein itselleni tämmöisen porttauksen, joka muutaman mutkan kautta muiluttaa ko. ohjelmat adesklettiin.
Tarvitaan Tomaattin hieno
tv.php ja
doityoursef adesklet, sekä alla oleva perlinpätkä joka
pätkä kopioidaan ja chmodataan ohjeen mukaan doityorself adeskletin scripts -hakemistoon.
Toimiikin jopa kuten kuvasta näkyy:
#!/usr/bin/perl
#
# TV-ohjelma-skripti doityourself adeskletille, käyttää Tomaattin viileää tv.php ohjelmaa
# katso: http://forum.ubuntu-fi.org/index.php?topic=3888.0
#
# Tomaattin Ohjelmatiedot-gdesklet paketista tarvitaan tv.php ohjelma, tallenna se nimellä ~/.tv.php
# ko. gdesklettiä ei siis tarvitse asentaa, ainoastaan tv.php ja php-cgi tarvitaan.
# (sudo apt-get install php5-cgi)
#
# asenna doityourself adesklet adesklettien asennusohjeen mukaisesti:
# http://adesklets.sourceforge.net/desklets.html
#
# tallenna tämä skripti doityourself-0.4.1/scripts/ hakemistoon nimellä tv.pl
# muuta oikeudet: chmod 755 tv.pl
#
# muokkaa doityourself-0.4.1/config.txt käynnistyskäskyksi tv.pl
# voit määrätä fontin ja värin näin: tv.pl -font VeraMono/10 -color 80FF80
#
# tässä doityourself-0.4.1/config.txt valmiiksi muokattu käynnistyskäsky:
# id0 = {'rawmode': False, 'script': 'tv.pl -font VeraMono/8 -color 80D080'}
#
# koeaja doityourself adeskletti komentoriviltä: ./doityourself.py
# käynnistä adesklets uudelleen (killall adesklets && adesklets)
#------------------------------------------------------------------------------
use strict;
# ----- oletusasetukset ------ #
my $color = "F0F0F0";
my $font = "VeraMono/8";
# -----------------------------#
my $dat = `php-cgi ~/.tv.php`;
my @lines = split /\n/, $dat;
my $i = 0;
foreach (@ARGV){
$color = $ARGV[$i + 1] if $ARGV[$i] eq "-color" && length $ARGV[$i + 1] == 6;
$font = $ARGV[$i + 1] if $ARGV[$i] eq "-font" && length $ARGV[$i + 1] > 5;
$i++;
}
$i = 0;
print "<font '$font'/><color '$color'/>";
foreach (@lines){
chomp $_;
print "$_\n" if $_ ne "" && $i > 2 && length $_ > 1;
$i++;
}
exit 0;
ko. doityourself adeskletti asentuu näin:
# siirry adesklettiesi hakemistoon ensin ja sitten:
wget http://switch.dl.sourceforge.net/sourceforge/adesklets/doityourself-0.4.1.tar.bz2
tar xvvf doityourself-0.4.1.tar.bz2
cd doityourself-0.4.1
./doityourself.py # paina r ja Enter
nyt se on asennettu ja rekisteröity toimintaan, joten muokkaa asetukset kuten yllä.
