script konversation fortune

Linguaggi di programmazione: php, perl, python, C, bash e tutti gli altri.
Scrivi risposta
Avatar utente
daemon_nio
Entusiasta Emergente
Entusiasta Emergente
Messaggi: 1012
Iscrizione: lunedì 15 gennaio 2007, 14:18
Sesso: Maschile
Località: London
Contatti:

script konversation fortune

Messaggio da daemon_nio »

Se non lo sapete konversation (come penso tutti i client IRC) ha degli script che possono essere eseguiti lanciando come comando: /nomeScript,
Gli script si trovano esattamente in: /usr/share/apps/konversation/scripts
Ci sono alcuni script di default mentre altri se ne possono aggiungere.
In particolare ce n'è uno che si chiama fortune, ed è tipo il fortune di linux solo che le frasi sono predefinite in un file fortune.dat
A me non piaceva così è ho riscritto lo script (in PERL) in modo che le frasi le prenda direttamente dal fortune di linux, che ne sono molte di più e sono in italiano, e ho tentato di formattarle anche in maniera carina, con colori e grossetti.

Se usate konversation e vi interessa lo script (by me) è questo:

Codice: Seleziona tutto

#!/usr/bin/env perl
# Scritto da daemon_nio il 26 Settembre 2007
# e-mail daemon_nio@virgilio.it

my $PORT = shift;
my $SERVER = shift;
my $TARGET = shift;

# eseguo fortune e scrivo il risultato su in un posto dove ho i permessi
system('fortune > ~/.kde/share/apps/konversation/fraseFortuneTmp');

# inizializzo il messaggio
my $MESSAGE = '%B%C4Perla di saggezza: %C1';
my @righe;

# apro il file
if (open FILE, "<", "/home/daemon_nio/.kde/share/apps/konversation/fraseFortuneTmp")
  {# lo leggo e lo chiudo
   @righe = <FILE>;
   close FILE
   }
else
  {$MESSAGE =  "Impossibile aprire il file: errore !";
   }
# scansiono ogni riga
foreach $riga (@righe)
  {# gli levo il carattere \n
   chop($riga);
   # se è la citazione (ossia se ci sono i caratteri "--") la sostituisco con i caratteri %C3 colore verde
   $riga =~ s/--/%C3/;
   # gli accodo il messaggio precedente con uno spazio
   $MESSAGE = $MESSAGE.' '.$riga;
   }

exec 'dcop', $PORT, 'default', 'say', $SERVER, $TARGET, $MESSAGE;
l'unica cosa da cambiare è la riga 17 con il percorso vostro (molto probabilmente dovrete cambiare solo il vostro nome dell'account che avete sul computer)

installarlo è semplicissimo, basta entrare nella cartella /usr/share/apps/konversation/scripts, acquisire i permessi di root e inserire lo script al posto dello script precedente.

per esempio così:

Codice: Seleziona tutto

cd /usr/share/apps/konversation/scripts
sudo kate fortune
e copiando il mio codice al posto del vecchio.

PS: se trovate degli errori  o volete fare delle modifiche ripostate il codice modificato così lo miglioriamo ;D
Sempre costruendo qualcosa di nuovo: Matag: The Game
Scrivi risposta

Ritorna a “Programmazione”

Chi c’è in linea

Visualizzano questa sezione: 0 utenti iscritti e 3 ospiti