Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

Les deux révisions précédentes Révision précédente
Prochaine révision
Révision précédente
utilisateurs:yannick_lm [Le 07/02/2008, 04:39]
Yannick_LM
utilisateurs:yannick_lm [Le 21/02/2010, 18:07] (Version actuelle)
frombenny jamais de : après un lien car renvoie à une page accueil qui n'existe pas
Ligne 1: Ligne 1:
 ====== Yannick_LM ====== ====== Yannick_LM ======
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
  
 ===== Moi :  ===== ===== Moi :  =====
Ligne 20: Ligne 9:
  
 Je continue à apprendre sans arrêt, et je ne compte plus m'​arrêter... Je continue à apprendre sans arrêt, et je ne compte plus m'​arrêter...
 +
 +Voir aussi ma page sur [[https://​launchpad.net/​~yannick-lm|Launchpad]]
  
  
 === Quelques programmes à découvrir : === === Quelques programmes à découvrir : ===
-  * [[:screen:|Screen]], le multiplexeur de terminal.+  * [[:​screen|Screen]],​ le multiplexeur de terminal.
   * Zsh , ou comment donner un coup de vieux à Bash.   * Zsh , ou comment donner un coup de vieux à Bash.
   * WindowMaker,​ un gestionnaire de fenêtres qu'il est bien.   * WindowMaker,​ un gestionnaire de fenêtres qu'il est bien.
-  * [[:irssi:|Irssi ]], le client IRC en mode texte. +  * [[:​irssi|Irssi ]], le client IRC en mode texte. 
-  * [[:mpd:|Mpd ]], un serveur son pour votre ordi.+  * [[:mpd|Mpd ]], un serveur son pour votre ordi.
  
 === Un petit bout de mon fichier ~/.aliases === === Un petit bout de mon fichier ~/.aliases ===
Ligne 67: Ligne 58:
  
 === Contributions : === === Contributions : ===
-  * Quelque chose de complètement inutile, donc indispensable : [[:​horloge_son:| un Big Ben dans votre ordi]]+  * Quelque chose de complètement inutile, donc indispensable : [[:​horloge_son| un Big Ben dans votre ordi]]
   * Membre du groupe traducteur d'​Ubuntu   * Membre du groupe traducteur d'​Ubuntu
   * Traduction de la LHU. (venez nous rejoindre !)   * Traduction de la LHU. (venez nous rejoindre !)
-  * Réécriture d'un script pour irssi (recherche google). Inutile, vu que la plupart des bots sur les chans ont une commande !google +  * Réécriture d'un script pour irssi (recherche google). Inutile, vu que la plupart des bots sur les champs ​ont une commande !google 
-  * Customisation du /whois, basé sur ip-to-country.pl et worldtimeserver,​ pour savoir ​l'​heure ​à laquelle ​vivent les gens avec qui vous parlez. +  * Customisation du /whois, basé sur ip-to-country.pl et worldtimeserver,​ pour savoir ​(à peu près) où vivent les gens avec qui vous parlez ​et l'​heure qu'il est chez euxInspiré aussi de country.pl par Timo SirainenLe script se trouve sur ce [[http://forum.ubuntu-fr.org/viewtopic.php?pid=1520946|fil]]
- +Merci aux gens du canal #irssi pour leur aide précieuse
-<code perl> +
-#​!/​usr/​bin/​perl  +
-# - whois_localtime.pl +
- +
-use warnings; +
-use strict; +
-use LWP::​UserAgent;​ +
-use Irssi; +
-use Shell; +
- +
-my $host="​ip-80-236-218-145.dsl.scarlet.be";​ +
-our $HOME_DIR = $ENV{HOME};​ +
-our $GEOFILE = "​$HOME_DIR/​.irssi/​scripts/​ip-to-country.csv";​ +
-our $URL="http://www.worldtimeserver.com/";​ +
- +
- +
-# The last version of the file can be obtained there: +
-# http://ip-to-country.webhosting.info/downloads/​ip-to-country.csv.zip +
- +
- +
-sub ip_to_number { # IP => Number +
-my $ip = shift; +
-my (@octets, $ip_num); +
-    $ip =~ s/\n//g; +
- @octets = split /\./, $ip; +
- $ip_num = 0; +
- foreach (@octets) { +
-     $ip_num <<= 8; +
-     $ip_num ​|= $_; +
-+
-return $ip_num; +
-+
- +
- +
-sub find_country {    +
-    my $ip=shift;​ +
-    $ip = &​ip_to_number($ip);​ +
-    open GF, "<​$GEOFILE"​ or die "​Can'​t open $GEOFILE $!"; +
-    while (<​GF>​){ +
- $_ =~ s/"//​g;​ +
- $_ =~ s/\n//; +
- my ($start, $end, $CC, $CTRY, $COUNTRY);​ +
- ($start, $end, $CC, $CTRY, $COUNTRY) = split /,/, $_; +
- if (($ip >= $start) and ($ip <= $end)){ +
-     Irssi::​active_win->​print("​Country:​ $COUNTRY"​);​ +
-#     print "​Country : $COUNTRY";​ +
-     return "​$CC";​ +
-     last; +
-+
-    } +
-    Irssi::​active_win->​print("​Country not found"​);​ +
-#    print "not found";​ +
-    close GF; +
-    return "​pouet";​ +
-+
- +
- +
- +
-sub find_time { +
-    my $CC=shift;​ +
-    my $ua = new LWP::​UserAgent;​ +
-    $ua->​agent("​AgentName/​0.1 " . $ua->​agent);​ +
-    my $req = new HTTP::​Request GET => "​$URL/​current_time_in_$CC.aspx";​ +
-    my $res = $ua->​request($req);​ +
-    my $content = $res->​content;​ +
-    my @lines = split("​\n",​ $content);​ +
-    foreach(@lines) { +
- if ( $_ =~ /​\s+(\d\d?:​\d\d (A|P)M)/ ) { +
-     return $1; +
-+
-    } +
-+
-     +
- +
-sub cmd_showtime { +
-    my $whois=shift;​ +
-    my $ping=ping("​-c 1 $whois"​);​ +
-    $ping =~ m/​((\d{1,​3}\.){3}\d{1,​3})/​ ; +
-    my $ip = $1; +
-    my $CC = &​find_country($ip);​ +
-    my $time = &​find_time($CC);​ +
-    Irssi::​active_win->​print("​Time:​ $time"​);​ +
-   ​print("​Time:​ $time"​);​ +
-+
- +
- +
- +
- +
-#print cmd_showtime $host; +
-Irssi::​command_bind('​showtime',​ '​cmd_showtime'​);​ +
-</​code>​+
  
-  
  
  
  • utilisateurs/yannick_lm.1202355561.txt.gz
  • Dernière modification: Le 18/04/2011, 14:42
  • (modification externe)