Snipet

Requête HEAD en PHP

2008-10-01T11:46:54+02:00

Procédures pour effectuer une requête HEAD sur une URL.

Via socket pur (pas de SSL)

  function check_url($url){

  $source = parse_url($url);

  $address = gethostbyname($source['host']);

  if ($source['port']) {

    $port=$source['host'];

  } else {

    if ($source['scheme']=='http') {

      $port=80;

    } else {

      error_log("Unsuported scheme : ".$source['scheme']);

      return true;

    }

  }

  $socket = fsockopen($address, 80, $errno, $errstr, broken_anchor_timeout());

  if (!$socket) {

    return $errstr;

  }

  $request  = "HEAD ".($source['path']==""?"/":$source['path'])." HTTP/1.0\r\n";

  $request .= "Host: ".$source['host']."\r\n";

  $request .= "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.3) Gecko/2008092903 Mandriva/1.9.0.3-1mdv2009.0 (2009.0) Firefox/3.0.3\r\n";

  $request .= "Connection: Close\r\n";

  $request .= "\r\n";

  stream_set_timeout($socket, broken_anchor_timeout());

  fputs($socket, $request);

  $stream_errors = stream_get_meta_data($socket);

  if ($stream_errors['timed_out']) {

    return 'Writing timed out';

  }

  while (!feof($socket)) {

    $return .= fgets($socket, 4096);

    $stream_errors = stream_get_meta_data($socket);

    if ($stream_errors['timed_out']) {

      return 'Reading timed out';

    }

  }

  fclose($socket);

  $lines = @explode("\n",$return);

  $status=trim(array_shift($lines));

  $ipos=strpos($status, " ");

  $status=substr($status, $ipos+1);

  $ipos=strpos($status, " ");

  $status=array(substr($status, 0, $ipos), substr($status, $ipos+1));

  foreach($lines as $line) {

    $line=trim($line);

    if (strlen($line)>0) {

      $iPos=strpos($line, ":");

      if ($iPos!==false) {

        $header[trim(substr($line, 0, $iPos))]=trim(substr($line, $iPos+1));

      }

    }

  }

  if (count($header)==0) {

    return "No header received";

  }

  if ($status[0]==301) {

    return broken_anchor_check_url($header["Location"]);

  }

  if ($status[0]!=200 && $status[0]!=302) {

    return $status[0]." ".$status[1];

  }

  return true;

}

Envoyer un mail

2008-09-23T20:19:24+02:00

Envoyer un mail en perl

  #!/usr/bin/perl

use strict;

use FileHandle;

use MIME::Lite;

if ($#ARGV<1)

{

    print "usage: xmail     [ [...]]\n";

    exit 0;

}

my $msg=new MIME::Lite

  'To'       =>shift,

  'Subject'  =>shift,

  'Type'     =>'multipart/mixed';

my $file;

foreach $file (@ARGV)

{

    if (!-e $file)

    {

        print STDERR "$file does not exist, skipping...\n";

    }

    else

    {

        attach $msg

            Type     =>'application/octet-stream',

            Encoding =>'base64',

            Filename =>&basename($file),

      Path     =>$file;

    }

}

#my $mail=new FileHandle "|/usr/sbin/sendmail -t";

#$msg->print($mail);

$msg->send();

sub basename

{

    my($file)=@_;

    my @foo=split('/', $file);

    return $foo[$#foo];

}

Retrouver le chemin complet d'un fichier

2008-09-23T19:56:00+02:00

Retrouver le chemin complet d'un fichier.

  # check for one arg

if [ $# -ne 1 ]; then

        echo "Usage : $0 {relative path}"

        exit -1

fi

# check to see if $1 exists

if [ -e $1 ]; then

        B=`basename $1`

        P=`dirname $1`

        #  echo BASE:$B  PATH:$P

        cd $P

        if [ `pwd` != "/" ]

        then

                FULLNAME=`pwd`/$B

        else

                FULLNAME=/$B

        fi

        echo $FULLNAME

else

        echo "$1 - Not a regular file"

        exit -1

fi

Synchroniser Subversion et CVS

2008-09-23T13:50:24+02:00

La problématique peut sembler étrange mais la preuve que cela arrive vu que j'y suis confronté. Je travaille depuis longtemps sur Subversion et pour rien au monde je ne reviendrais sous CVS. D'un autre côté certaines forges (typiquement cette de Drupal.org) sont eux sous CVS. Et vu que je suis une feignasse sans nom, l'idée de m'amuser à synchroniser cela à la main ne m'a pas amusé bien longtemps. Et une fois de plus, bash me sauve la mise

L'idée est de construire un script qui sache :

Vérifier que le commit correspondant à une révision touche bien notre projet.
Extraire le commentaire d'une révision SVN donnée.
Mettre à jour un dépôt temporaire du projet.
Synchroniser le dépôt temporaire SVN avec un dépôt temporaire cible CVS.
Récupérer la liste des modifications effectuées entre les deux (ajout/suppression).
Appliquer les ajouts/suppression au dépot temporaire CVS.
Commité les modifications sur le serveur CVS en utilisant le même commentaire que Subversion.

Et pour simplifier encore la manoeuvre, le script en question sera appelé par un hook subversion histoire que tout cela se fasse automatiquement. Tout d'abord commençons par la préparation de tout cela.

La première chose à faire est de créer un dossier à un emplacement donné, par exemple /home/www/repos/mon_projet. Il faut que ce dossier soit accessible par apache avec les droits qui vont bien pour cela, en lecture ET écriture. En effet, il ne faut pas oublier que le hook subversion, c'est Apache qui va le lancer...

Pour être sur de ne pas être coincé par cet aspect droit, le mieux est de bidouiller temporairement le fichier /etc/passwd et de modifier le dossier HOME et l'interpréteur de commande d'apache en quelque chose comme cela :

apache:x:88:88:system user for apache:/home/www:/bin/sh
root# 

Attention, ne surtout pas laisser les choses ainsi une fois le tout installé. Le problème de devoir laisser apache faire cela n'est déjà pas très sécurisé comme méthode, mais si vous laissez cela, c'est un très joli trou de sécurité. Lorsque vous aurez fini, veillez à changer l'interpréteur en /bin/false.

Ensuite, faites un sudo apache, vous devriez déboucher dans vote dossier /home/www. Allez dans le sous-dossier repos/mon_projet et faite un check-out du projet subversion. Ceci fait, renommez la racine du projet en svn. Recommencez l'opération pour CVS. Et renommez aussi mais cette fois en cvs. Dans les deux cas, je pars du principe que vos deux outils cvs et subversion sont configurés pour mémoriser les mots de passe. Là aussi, ce n'est pas le top d'un point de vue sécurité. N'utilisez cela que sur un serveur Apache de confiance, genre interne.

Maintenant que nous avons nos deux dépôts, il suffit de coller le script suivant dans le dossier hooks de votre dépôt subversion :

  #! /bin/sh

cd $1/$2/cvs

# check if it is the right target

right_target=$(svn log -vr$3 ../svn | grep $2)

if [ -z "$right_target" ] ; then

        exit;

fi

# Grabbing revision log

svn log -r$3 ../svn/ |  awk '

/r'$3'/ { next }

/^\-+/  { skip=1 ; next }

/.*/ {

  if (skip==1) {

    skip=0 ; next

  } else {

    print $0 }

}' > ~/tmp/message

# Updating SVNsandbox

svn up ../svn/

# Updating CVS sandbox

cvs up -Pd

# Synchronizing SVN with CVS

rsync -a --cvs-exclude --delete ../svn/ .

# building CVS update script

function cvs_apply {

   root=$(cat CVS/Root | cut -d":" -f4)/$(cat CVS/Repository)/

   let root_length=${#root}+1

   cvs status | awk '

     /^\?/ { print "cvs add "$2 }

     /Needs Checkout/ { status="cvs delete" }

     /Locally Modified/ { status="" }

     /Up-to-date/ { status="" }

     /Repository/ {

       if  (length(status)>0) {

         print status" "substr($4,'$root_length',length($4)-'$root_length'-1)

       }

     }' > ~/tmp/cvs-update.sh

    if [ -s ~/tmp/cvs-update.sh ] ; then

      sh ~/tmp/cvs-update.sh

      return 1

    else

      return 0

    fi

}

res=1

while [ $res == 1 ] ; do

  cvs_apply

  res=$?

done

cvs commit -F ~/tmp/message
  
sync-cvs.sh

Maintenant il ne reste plus qu'à donner les droits apache:apache et +x à ce fichier, et ajouter à la fin du script post-commit :

  /mon_depot_subversion/hooks/cvs-sync.sh /home/www/repos mon_projet $2 2>&1 | logger
  

L'argument $2 contient le numéro de révision qui vient d'être commité. Sauvez maintenant le tout, et testez. Le | logger vous permet de voir si des erreurs se produisent dans vos traces syslog.

Conclusion

Outre l'intérêt fonctionnel, ce script permet de voir à quel point la commande awk est aussi peu connue que pratique. C'est un véritable couteau suisse facile à mettre en oeuvre pour parser rapidement des textes.

SWT - Drag & Drop

2008-09-10T08:56:00+02:00

Un petit exemple de drag & drop entre un navigateur (source URL) et une application SWING.

D'abord la classe qui gère le type de contenu URL

  package net.karmaLab.thema.ui.dnd;

import java.util.logging.Logger;

import net.karmaLab.traces.Traces;

import org.eclipse.swt.dnd.ByteArrayTransfer;

import org.eclipse.swt.dnd.TransferData;

import org.eclipse.swt.internal.gtk.OS;

public class URLTransfer extends ByteArrayTransfer {

    private static URLTransfer _instance = new URLTransfer();

    private static final String[] TYPE_NAMES = { "COMPOUND_TEXT", "UTF8_STRING", "TEXT", "text/plain", "text/html" };

    private static final int[] TYPE_IDS = registerTypes(TYPE_NAMES);

    /** static class logger. */

     private static Logger logger = Traces.LOGGER(URLTransfer.class);

    public static URLTransfer getInstance() {

        return _instance;

    }

    /**

     * @param typeNames

     * @return

     */

    private static int[] registerTypes(String[] typeNames) {

        int[] ids = new int[typeNames.length];

        for (int i = 0; i < typeNames.length; i++) {

            ids[i] = registerType(typeNames[i]);

        }

        return ids;

    }

    @Override protected int[] getTypeIds() {

        return TYPE_IDS;

    }

    @Override protected String[] getTypeNames() {

        return TYPE_NAMES;

    }

    /**

     * @param transferData

     * @return

     */

    private String hex(TransferData transferData) {

        return Integer.toHexString(transferData.type);

    }

    @Override public boolean isSupportedType(TransferData transferData) {

        boolean res = super.isSupportedType(transferData);

        String match = "none";

        for (int i = 0; i < TYPE_IDS.length; i++) {

            if (TYPE_IDS[i] == transferData.type) {

                match = TYPE_NAMES[i];

            }

        }

        logger.config("Is Supporteed:" + hex(transferData) + "[" + match + ":" + res + "]");

        return res;

    }

    @Override public void javaToNative(Object object, TransferData transferData) {

        System.out.println("javaToNative called");

    }

    @Override public Object nativeToJava(TransferData transferData) {

        if (!isSupportedType(transferData) || transferData.pValue == 0) {

            return null;

        }

        int size = transferData.format * transferData.length / 8;

        if (size == 0) {

            return null;

        }

        byte[] buffer = new byte[size];

        OS.memmove(buffer, transferData.pValue, size);

        return new String(buffer, 0, buffer.length - 1).trim();

    }

}

Utilisation :

     private final class DropItemAdapter extends DropTargetAdapter {

       @Override public void dragOver(DropTargetEvent event) {

           // try {

           // if (getURIHandleres((TreeItem) event.item, new URI((String) event.data)).size() == 0) {

           // System.out.println((String) event.data);

           // }

           // }

           // catch (URISyntaxException e) {

           // e.printStackTrace();

           // }

       }

       @Override public void drop(final DropTargetEvent event) {

           Menu popUpMenu = null;

           try {

               popUpMenu = buildNewItemMenu((TreeItem) event.item, new URI((String) event.data));

           }

           catch (URISyntaxException e) {

               e.printStackTrace();

           }

           popUpMenu.setVisible(true);

       }

   }

DropTarget dt = new DropTarget(tree, DND.DROP_DEFAULT | DND.DROP_COPY | DND.DROP_LINK | DND.DROP_MOVE);

       dt.setTransfer(new Transfer[] { URLTransfer.getInstance() });

       dt.addDropListener(new DropItemAdapter());

JQuery - Position de la souris

2008-09-08T19:55:46+02:00

Mise à jour en temps réel de la position de la souris sur une page.

  var mouse_position_x = 0, mouse_position_y = 0;

function ajad_updateMousePosition(context){

    if (document.captureEvents) {

        mouse_position_x = Number(context.pageX);

        mouse_position_y = Number(context.pageY);

    }

    else 

        if (window.event.clientX) {

            mouse_position_x = Number(window.event.clientX + document.documentElement.scrollLeft);

            mouse_position_y = Number(window.event.clientY + document.documentElement.scrollTop);

        }

    //  log(mouse_position_x+":"+mouse_position_y);

}

$(document.body).mousemove(ajad_updateMousePosition);

JQuery - Alternance de couleurs sur les lignes d'une table

2008-09-08T19:50:01+02:00

Alternance de couleurs sur les lignes d'une table.

  function table_alternate() {

   $('TABLE.alternate tbody tr').each(function(index){

   if (index % 2 == 1) 

      $(this).css('background-color','#F0F0F0');

    else 

      $(this).css('background-color','white');

   });

 }

Forcer la reconnection du routeur Linksys

2008-08-07T00:19:19+02:00

L'idée est de forcer le rédémarrage d'un routeur linksys. Cela n'a plus grand intérêt mais cela peut service à d'autres usages.

  #! /usr/bin/perl

use LWP;

#use LWP::Debug qw(+);

my $browser = LWP::UserAgent->new;

$browser->credentials('moya.karma-lab.net:80', '', 'root', 'karma8%2lab9*&');

my $router_url='http://moya.karma-lab.net';

sub get_setup

{

  my $request = HTTP::Request->new( GET => $router_url."/index.asp" );

  my $response = $browser->request($request);

  if (!$response->is_success) 

  {

    print "Impossible d'avoir la page d'index :".$response->status_line."\n";

  } 

}

sub is_adsl_up

{

  my $request = HTTP::Request->new( GET => $router_url."/Status_DSL.asp" );

  my $response = $browser->request($request);

  if ($response->is_success) 

  {

    my $status=$response->content;

    if ($status =~ m/.*share\.nottrained.*/)

    {  

      return 0;

    }

  }

  else 

  {

    print "Impossible d'avoir le status ADSL :".$response->status_line."\n";

  } 

  return 1;

}

sub is_ppp_up

{

  my $request = HTTP::Request->new( GET => $router_url."/Status_Router.asp" );

  my $response = $browser->request($request);

  if ($response->is_success) 

  {

    my $status=$response->content;

    if ($status =~ m/.*share\.down.*/)

    {  

      return 0;

    }

  }

  else 

  {

    print "Impossible d'avoir le status PPP :".$response->status_line."\n";

  } 

  return 1;

}

sub reset_ppp

{

  print "Reseting PPP...\n";

  get_setup();

  my $request = HTTP::Request->new( POST => $router_url."/apply.cgi" );

  $request->authorization_basic('root', 'karma8%2lab9*&');

my $headers = $request->headers();

# Simulation d'un navigateur Konqueror. J'aurais pu mettre 

#  'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'

# Pour simuler un IE... 

$headers->header( 'User-Agent','Mozilla/5.0 (compatible; Konqueror/3.4; Linux) KHTML/3.4.2 (like Gecko)');

# Ajoute une liste de contenu supporté (types mime)

$headers->header( 'Accept', 'text/html, image/jpeg, image/png, text/*, image/*, */*');

# Authorize le serveur à renvoyer des contenus compressés. Attention, vous devrez les décompresser vous même. A prendre avec précaution.

$headers->header( 'Accept-Encoding','x-gzip, x-deflate, gzip, deflate');

# Type d'encodage caractères accepté

$headers->header( 'Accept-Charset', 'iso-8859-15, utf-8;q=0.5, *;q=0.5');

# Type de langage accepté

$headers->header( 'Accept-Language', 'fr, en');

# Bien pratique, permet de faire croire au serveur que l'on vient du site www.sourceclick.com

$headers->header('Referer', 'http://moya.karma-lab.net/index.asp');

  $request->content_type('application/x-www-form-urlencoded');

  $request->content('submit_button=index&change_action=&submit_type=&action=Apply&daylight_time=1&lan_ipaddr=4&vcc_config=&mtu_config=&wan_connection=0&wan_applyonboot=1&wan_encapmode=pppoe&now_encapmode=pppoe&wan_multiplex=llc&wan_qostype=ubr&wan_autodetect=1&pppoe_config=&pppoe_servicename=wanadoo&pppoe_username=USERe&pppoe_password=PASSWORD&pppoe_demand=0&pppoe_redialperiod=20&wan_hostname=moya&wan_domain=karma-lab.net&mtu_auto=1&lan_ipaddr_0=192&lan_ipaddr_1=168&lan_ipaddr_2=154&lan_ipaddr_3=100&lan_netmask=255.255.255.0&lan_proto=static&dhcp_check=&time_zone=-08+1+1&timer_interval=3600&_daylight_time=1');

  my $response = $browser->request($request);

  if (!$response->is_success) 

  {

    print "Impossible de ré-initialiser le PPP :".$response->status_line."\n";

  } 

}

$|=1;

if (is_adsl_up()==0)

{

  print "ADSL Down. Nothing to do about that...\n"

}

else

{

  print "ADSL Up\n";

  if (is_ppp_up()==0)

  {

    print "PPP Down.\n";

    reset_ppp();

  }

  else

  {

    print "PPP Up. Ok.\n";

  }

}

Logger SNMP pour linksys

2008-08-07T00:11:24+02:00

Un logger smnp pour les linksys

  use strict;

use warnings;

use IO::Socket;

use FileHandle;

use File::Temp qw/ tempfile tempdir /;

use File::Copy;

&bindServer();

sub bindServer

{

  # Open & Listen

  my $serverSocket = new IO::Socket::INET(

    LocalHost => '192.168.0.101',

    LocalPort => '162',

    Proto => 'udp',

#   Listen => SOMAXCONN,

    Type => SOCK_DGRAM,

    Reuse => 1);

  $serverSocket or die("Unable to bind :$!");

  my($clientSocket, $c_addr, $buffer,$clientAddress);

  # Waiting for call...

  print( "Listening ...");

  while (($clientSocket, $clientAddress) = $serverSocket->accept())

  {

    # Get "client" identity

    my ($clientPort, $c_ip) =sockaddr_in($clientAddress);

    my $clientIP = inet_ntoa($c_ip);

    my $clientHost =gethostbyaddr($c_ip, AF_INET);

    while (defined ($buffer = <$clientSocket>))

    {

        print $buffer;

    }

  }

}

Chemin complet d'un fichier

2008-08-07T00:09:30+02:00

Renvoie le chemin complet d'un fichier

# check for one arg
if [ $# -ne 1 ]; then
echo "Usage : $0 {relative path}"
exit -1
fi

# check to see if $1 exists
if [ -e $1 ]; then
B=`basename $1`
P=`dirname $1`
# echo BASE:$B PATH:$P
cd $P

if [ `pwd` != "/" ]
then
FULLNAME=`pwd`/$B
else
FULLNAME=/$B
fi

echo $FULLNAME
else
echo "$1 - Not a regular file"
exit -1
fi