Aller au contenu
PcPerf.fr
cyb

les signatures pc perf

Messages recommandés

ok_

seulement certaines sont activées ?

 

Ca dépend du type de forum, ici c'est un phpbb, sur ton lien c'est un vBulletin.

Partager ce message


Lien à poster
Partager sur d’autres sites

Moi perso , le coup du lien dans la signature je le fait partout . :(

 

Enfin en mème temps c'est mon forum la cible alors ... :non:

 

Ps : sont chouettes les signatures . :(

Partager ce message


Lien à poster
Partager sur d’autres sites

j'ai changé un poil le script

 

ça donne ça quand on le lance :shock:

 

root@nicolas:/home/fear/scripts/perl/signature# ./pcperf3.plstartingPcPerfLeMag_foo_fight engaged.....donePcPerfLeMag_Hardisk engaged.....donePcPerfLeMag_lepiaf37 engaged.....donePcPerf_ethan engaged.....donePcPerfLeMag_husiana engaged.....donePcPerfLeMag_cyberfly engaged.....donePcPerfLeMag_Thor engaged.....donePcPerf_ol'_rem engaged.....donePcPerfLeMag_looping engaged.....donePcPerfLeMag_moustik engaged.....donePcPerf_Darkad66 engaged.....donePcPerfLeMag_pierrot engaged.....donePcPerfLeMag_Vlad engaged.....donePcPerfLeMag_hardisk2 engaged.....donePcPerf_someoneinthe engaged.....donePcPerf_akh engaged.....donePcPerfLeMag_gringo82 engaged.....donePcPerf_bigvivi engaged.....donePcPerf_laurent engaged.....donePcPerfLeMag_G007 engaged.....donePcPerf_KhraKeN engaged.....donePcPerfLeMag_titiboo engaged.....donePcPerf_Spy2 engaged.....donePcPerf_BoB engaged.....donePCPerfLeMag_yan-le-flan engaged.....donePcPerfLeMag_bruno engaged.....donePcPerf_loupbourre engaged.....donePcPerf_cyberfly engaged.....donePcPerfLeMag_maat34 engaged.....donePcPerfLeMag_Natsuko engaged.....doneroot@nicolas:/home/fear/scripts/perl/signature#

 

et mon script modifié pour etre utilisé par tout le monde, il suffit de mettre a jour la partie Config :D

#!/usr/bin/perluse strict;use warnings;use LWP::Simple;use GD;#------------------------------------CONFIG----------------------------------------#my $url = "http://folding.fleucorp.fr/PcPerf.txt";				 # url of your .txt team statmy $overlay_img = "sign_base.png";								   # path to overlay imagemy $destination = "/var/www/pcperf/sign_folding2/";	 # path to destination foldermy $width = "429";																  # width of the image, !! same for img and overlay !!my $height= "120";																  # height of the image; !! same for img and overlay !!#---------------------------------------------------------------------------------------#my $content = get($url) or die 'Unable to get page';my @lines = split(/n/, $content);print "startingn";foreach my $ligne (@lines) {#exemple#1	   10392   [PcPerfLeMag]_foo_fight						 153868		  344#$1		$2				  $3				  $4								   $5				$6	if ($ligne =~ "^([0-9]+)[ t]+([0-9]+)[ t]+[(.+)]_([^ t]*)[ t]+([0-9]+)[ t]+([0-9]+)") {		print "$3_$4 engaged.....";# create a new image		my $img = new GD::Image($width,$height);# allocate some colors		my $white = $img->colorAllocate(255,255,255);		my $black = $img->colorAllocate(0,0,0);		my $red = $img->colorAllocate(255,0,0);		my $blue = $img->colorAllocate(0,0,255);# make the background transparent and interlaced		$img->transparent($white);		$img->interlaced('true');# on reprend une image existante avec fond transparent et on la copie par dessus		open(POINTS, $overlay_img);								#ici c'est l'image donné par cyb		my $overlay = newFromPng GD::Image(*POINTS);		close POINTS;		$img->copy($overlay,0,0,0,0,$width,$height);# on insere du texte string(font, positionx ,positiony , 'texte' ,couleur)		$img -> string( gdLargeFont , 330 , 87 , $4 , $blue );	   #Plieur		$img -> string( gdLargeFont , 20 , 102 , $2 , $red );		#Folding_rank		$img -> string( gdLargeFont , 330 , 102 , $5 , $blue );	  #Score		$img -> string( gdLargeFont , 120 , 102 , $6 , $red );	   #WUs		$img -> string( gdLargeFont , 220 , 102 , $1 , $red );	   #Team_rank# on sort l'image		open(PICTURE, ">$destination$3_$4.png");	# ">destination"		binmode PICTURE;		print PICTURE $img->png;									  #format png		close PICTURE;		print "donen";		}}exit 0;

 

Si vous connaissez d'autre membre d'auter team et s'il veullent bien l'essayer :)

ça marche sous linux, c'est du perl

et ça doit marcher en theory sous windows :)

Partager ce message


Lien à poster
Partager sur d’autres sites
ah ben moi je met pas doigt la de dans je vois tous casser :)

 

 

rien compris! :shock:

 

dans le programme perl

Partager ce message


Lien à poster
Partager sur d’autres sites
ah ben moi je met pas doigt la de dans je vois tous casser :lol:

 

 

rien compris! :twisted:

 

copyright hardisk

 

enleve tes moufle pour taper :D

 

 

:)

Partager ce message


Lien à poster
Partager sur d’autres sites

1 euro par mois par signature , une trentaine = 30 euros . :P

 

Ps : [mode bouvard = on]Oui oui oui oui oui [mode bouvard /off] :)

Partager ce message


Lien à poster
Partager sur d’autres sites
comment ça pas a jours? :P tu dois te tromper

 

ba non je suis a 35267 point et ma signature 33 000 et des poussiere

Partager ce message


Lien à poster
Partager sur d’autres sites
comment ça pas a jours? :P tu dois te tromper

 

ba non je suis a 35267 point et ma signature 33 000 et des poussiere

ba je vois 35267 sur ta signature

Partager ce message


Lien à poster
Partager sur d’autres sites

Je pense que c'est lié au décalage entre la mise à jour effectuée sur les serveurs de Stanford et celle effectuée par le script de pat1ent00.

Partager ce message


Lien à poster
Partager sur d’autres sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement

×
×
  • Créer...