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édentesRévision précédente
Prochaine révision		Révision précédente
utilisateurs:yannick_lm [Le 07/02/2008, 04:59] – Yannick_LMutilisateurs:yannick_lm [Le 01/09/2022, 00:13] (Version actuelle) – Passage de http à https sur les liens externes (détecté et corrigé via le bot wiki-corrector (https://forum.ubuntu-fr.org/viewtopic.php?id=2067892) moths-art
Ligne 1: Ligne 1:
 ====== Yannick_LM ====== ====== Yannick_LM ======
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
  
 ===== Moi :  ===== ===== Moi :  =====
Ligne 30: Ligne 14:
  
 === 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 74: 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. (pas encore tout à fait fini, merci aux gens d'#irssi pour leur aide) +  * 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 eux. Inspiré aussi de country.pl par Timo Sirainen. Le script se trouve sur ce [[https://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.1202356754.txt.gz · Dernière modification : (modification externe)
CC Attribution-Noncommercial-Share Alike 4.0 International Sauf mention contraire, le contenu de ce wiki est placé sous les termes de la licence suivante : CC Attribution-Noncommercial-Share Alike 4.0 International