Différences

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

--- utilisateurs:yannick_lm [Le 06/02/2008, 02:46]
Yannick_LM
+++ utilisateurs:yannick_lm [Le 21/02/2010, 18:07]
frombenny jamais de : après un lien car renvoie à une page accueil qui n'existe pas
@@ Ligne 1: / Ligne 1: @@
 ====== Yannick_LM ======
 ===== Moi :  =====
 Je suis étudiant en dernière année dans une école d'ingénieur.
-Je suis joignable à l'adresse mail suivante : yannick_LM (chez yahoo.fr), et je traîne assez souvent sur le forum.
+Je suis joignable à l'adresse mail suivante : yannicklm1337 (chez) gmail.com, et je traîne assez souvent sur le forum.
 J'ai découvert Ubuntu il y a déjà plus d'un an, et me suis formé quasiment uniquement grâce à la communauté (la documentation et le forum)
 Je suis aussi de plus en plus sur #ubuntu-fr (de préférence tard le soir, GMT)
 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 : ===
-  * [[:screen:|Screen]], le multiplexeur de terminal.
+  * [[:screen|Screen]], le multiplexeur de terminal.
   * Zsh , ou comment donner un coup de vieux à Bash.
   * 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 ===
@@ Ligne 65: / Ligne 58: @@
 === 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
   * 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 à laqelle 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 eux. Inspiré aussi de country.pl par Timo Sirainen. Le 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 -w
-# - Google.pl
-use Irssi;
-use LWP::UserAgent;
-use strict;
-use vars qw($VERSION %IRSSI);
-$VERSION = '1.00';
-%IRSSI = (
-    authors     => 'Oddbjørn Kvalsund',
-    contact     => 'oddbjorn.kvalsund@hiof.no',
-    name        => 'Google',
-    description => 'This script queries google.com and returns the results.',
-    license     => 'Public Domain',
-);
-## Usage:
-## /google [-p, prints to current window] [-<number>, number of searchresults returned] search-criteria1 search-criteria2 ...
-##
-## History:
-## - Sun May 19 2002
-##   Version 0.1 - Initial release
-## -------------------------------
-## Corrected by Yannick LM
-# - Sat Jan 26 2007
-#-------------------------------------------------
-my $nr_sites = 3; # Search-results returned
-my $prefix = "Google search:"; # Message printed before results
-#-------------------------------------------------
-# Print pages to current window if public-mode specified
-# else display a private notice of returned pages
-sub print_results{
-	my ($witem, $mode, $nr_sites, @lines)=@_;
-	my $i=0;
-	if ($mode eq "public" && $prefix ne "") { $witem->command("/SAY $prefix") } ;
-        while ($i<$nr_sites && $i < 10) {
-		 my $line=$lines[$i+3];	 #The first three lines are irrelevant
-		 if ($line =~ /^\w+\.\w+/) {
-			$line =~ s/\s+.*//g;  # We've got an URL
-			if ( $mode eq "public") {
-				$witem->command("/SAY http://$line");
-			}
-			else {
-			    Irssi::active_win()->print("http://$line");
-			}
-		 }
-		 else {
-			 $nr_sites++;
-		 }
-		 $i++;
-	}
-}
-sub cmd_google {
-        my ($data, $server, $witem) = @_;
-        my $url = "";
-	my $nr_sites = 3;
-#	my $i = 0;
-	my (@lines, @pages);
-	my $mode = "quiet";
-	# If user supplied nr_sites, activate his setting
-	if ( $data =~ /-(\d\s)/ ) { $nr_sites = $1 };
-	if ($data =~ /-10/) { $nr_sites = 10 };
-	$data =~ s/-\d+//g; # remove nr_sites from $data
-	# Switch to public mode
-	# and return error msg if invalid window
-	if ( $data =~ /-p/ ) {
-		$mode = "public";
-		if ( ! $witem ) {
-		  Irssi::active_win()->print("Must be run run in a valid window (CHANNEL|QUERY)");
-		  return;
-		}
-	}
-	$data =~ s/-p//g; # remove -p from $data
-	# Format the query-string
-	$data =~ s/\s/+/g;
-	my $query = $data;
-	# Initialize LWP
-	my $ua = new LWP::UserAgent;
-	$ua->agent("AgentName/0.1 " . $ua->agent);
-	# Do the actual seach
-        my $req = new HTTP::Request GET => "http://www.google.com/search?hl=en&q=$query";
-        my $res = $ua->request($req);
-        my $content = $res->content;
-	# Replace <br> with newlines
-	# and remove tags
-        $content =~ s/\<br\>/\n/g;
-        $content =~ s/\<.+?\>//sg;
-	# Make array @lines of all search-results
-        @lines = split("\n", $content);
-	# Dispaly the result according to the mode
-	&print_results($witem, $mode, $nr_sites, @lines);
-#        Irssi::active_win()->print("Jusqu'ici, tout va bien");
-}
-Irssi::command_bind('google', 'cmd_google');
-</code>
-<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>