#!/bin/bash #Autor Max J. Rodriguez Beltran. 2012 user=$(whoami) directorio="lists" olddirectorio="lists.old" if [ $user = "root" ]; then cd /var/lib/apt if [ -d $olddirectorio ]; then #echo "existe" $olddirectorio cd $olddirectorio if [ -d $directorio ]; then echo "borramos " $directorio "de " $olddirectorio rm -r $directorio fi cd /var/lib/apt echo "movemos " $directorio "al dir: " $olddirectorio mv $directorio ${olddirectorio}/ echo "ahora actualizamos la lista..." sleep 5; apt-get update fi else echo "Ejecuta este script con sudo" exit 1 fi echo "Termino ejecución"
pueden copiar y pegar el script, solo recuerden dar permisos de ejecución al script y ejecutarlo como root.
procedure TfrmMain.btnAgregaMarcadorClick(Sender: TObject); var lcSearch: TSearchRec; lcFileAttr: integer; lcFatherNode: TTreeNode; lcChildNode: TTreeNode; lcPath: String; begin {$IFDEF UNIX} lcFileAttr:= 48; {$ELSE} lcFileAttr:= faDirectory; {$ENDIF} SelectDirectoryDialog1.Execute; lcPath:=SelectDirectoryDialog1.FileName; if Length(lcPath) > 0 then begin lcFatherNode:= TTreeNode.Create(TreeView1.Items); lcFatherNode:= TreeView1.Items.AddChild(TreeNodeRoot,lcPath); lcFatherNode.ImageIndex:=0; lcFatherNode.SelectedIndex:=0; lcFatherNode.Expanded:=True; end; lcPath:=lcPath+PathDelim; If FindFirst(lcPath+'*',faDirectory,lcSearch)=0 then begin repeat if lcSearch.Attr = lcFileAttr then begin if (lcSearch.Name = '.') or (lcSearch.Name = '..') then continue; lcChildNode:= TreeView1.Items.AddChild(lcFatherNode,lcSearch.Name); lcChildNode.ImageIndex:=0; lcChildNode.SelectedIndex:=0; AddDirectorios(lcChildNode,lcPath+lcSearch.Name); end; until FindNext(lcSearch) <> 0; FindClose(lcSearch); end; TreeView1.Refresh; end;
El siguiente procedimiento lo agregamos nosotros, este será llamado desde nuestro anterior proceso cuando encuentre un directorio, y será llamado recursivamente desde él mismo agregando los nodos hijos con el nombre de los directorios encontrados.procedure TfrmMain.AddDirectorios(elNodo: TTreeNode; cPath: String); var sr: TSearchRec; lcFileAttr: Integer; theNewNode : tTreeNode; begin {$IFDEF UNIX} lcFileAttr:= 48; {$ELSE} lcFileAttr:= faDirectory; {$ENDIF} if FindFirst(cPath+PathDelim+'*', faDirectory, sr) = 0 then begin repeat if sr.Attr = lcFileAttr then begin if (sr.Name = '.') or (sr.Name = '..') then continue; theNewNode := TreeView1.Items.AddChild(elNodo,sr.name); theNewNode.ImageIndex:=0; theNewNode.SelectedIndex:=0; AddDirectorios(theNewNode,cPath+PathDelim+sr.Name); end; until FindNext(sr) <> 0; FindClose(sr); end; end;
{$mode objfpc}{$H+} {$define UseCThreads} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, Unit1 { you can add units after this }; . . .
Una vez agregado esto y recompilando, funcionó.unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls; //Creamos el type para lo que será nuestro hilo type { TMiHilo } TMiHilo = class(TThread) private procedure AvanzaBarra; protected procedure Execute; override; public constructor Create(CreateSuspended: boolean); end; { TForm1 } TForm1 = class(TForm) Button1: TButton; ProgressBar1: TProgressBar; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } //agregamos al evento click del botón, aquí se iniciará nuestro hilo al dar click procedure TForm1.Button1Click(Sender: TObject); var MiHilo : TMiHilo; begin //creamos el hilo, pero no lo iniciamos MiHilo := TMiHilo.Create(True); // Con el parametro true no se inicia automaticamente if Assigned(MiHilo.FatalException) then raise MiHilo.FatalException; //si no hay ninguna excepción lo iniciamos MiHilo.Start; end; //aquí definimos los procesos para el hilo { TMiHilo } procedure TMiHilo.AvanzaBarra; //Este metodo solo es llamado por Synchronize(@AvanzaBarra) y por ello // es ejecutado por el hilo principal. //El hilo principal puede acceder a los elementos visuales del GUI por ejemplo a la progressbar begin Form1.ProgressBar1.StepIt; if Form1.ProgressBar1.Position = Form1.ProgressBar1.Max then begin Form1.ProgressBar1.Position := 0; end; end; //Este proceso se ejecuta al iniciar el hilo procedure TMiHilo.Execute; begin //mientras no termine y sea verdadero se ejecutará while (not Terminated) and (true) do begin //este loop es del hilo principal Synchronize(@AvanzaBarra); end; end; constructor TMiHilo.Create(CreateSuspended: boolean); begin //Con esta propieda del hilo no necesitamos liberarlo manualmente al terminar de ejecutar el hilo FreeOnTerminate := True; inherited Create(CreateSuspended); end; end.
Y listo, compilamos y ejecutamos y debemos ver nuestro formulario con un botón y una barra de progreso, al dar clic en el botón esta comenzará a llenarse, cuando se llene se vaciará y comenzara de nuevo. No olviden agregar la linea {$define UseCThreads} en el archivo .lpr de su proyecto para que la validación de "si es compilado en Unix" use cThreads.
Lazarus es el conjunto de bibliotecas de clases para el compilador Free Pascal que emula a Delphi. Free Pascal es un compilador de licencia GPL que trabaja sobre Linux, Windows, OsX, OS/2, 68k y más.Lo interesante de esto es que podemos crear nuestro proyecto en cualquier plataforma y solo tendremos que compilarla en otras para mudarla. Como ejemplo, creamos un proyecto en Windows con componentes normales de este, para migrarlo a Linux solo tenemos que mover el proyecto al equipo con Linux y Lazarus instalado, seleccionar que conjunto de widgets queremos utilizar (GTK o Qt para Linux) y compilarlo, Lazarus se encargará de todo, no tenemos que reescribir nuestro código.
#!/usr/bin/perl use strict; use Email::Simple; use Email::Simple::Creator; use Email::Send; use Email::Send::Gmail; send_mail(); print "mensaje enviado"; sub send_mail { my $usuario = 'tucorreo@gmail.com'; my $password = 'tupassword'; #Creamos el correo, a quien va dirigido, de quien, el asunto y el mensaje my $email = Email::Simple->create( header => [ To => 'JuanPerez@gmail.com', From => $usuario, Subject => 'Probando 123', ], body => "Prueba desde LINUX", ); #Aquí especificamos que usara a Gmail como servidor SMTP my $sender = Email::Send->new( { mailer => 'Gmail', mailer_args =>[ username => $usuario, password => $password, ] } ); $sender->send($email); }
=========================================================================Hasta aquí todo bien, pero en windows usando PERL 5.8 no está la biblioteca, entonces hurgando un poco en su código, podemos ver como funciona esta, nos podemos dar cuenta que usa la biblioteca Net::SMTP::SSL, y esta si la podemos encontrar para PERL 5.8.
#!/usr/bin/perl use strict; use Net::SMTP::SSL; send_mail('juanPerez@gmail.com','Prueba desde windows', 'probando el correo desde windows ;D'); print "mensaje enviado"; sub send_mail { my $username = 'tucorreo@gmail.com'; my $password = '123456'; my $dest = shift; #'destinatario@algomail.com' my $asunto = shift; my $body_mail = shift; #creamos la conexión con el servidor SMTP de Gmail my $smtp = Net::SMTP::SSL->new( 'smtp.gmail.com', Port => 465, Debug => 0, ) || print 'Email::Send::Gmail: error connecting to server smtp.gmail.com'; #se realiza al autentificación $smtp->auth( $username, $password ) or print "Email::Send::Gmail: error authenticating username $username"; $smtp->mail($username); $smtp->to($dest); #Se envía el correo $smtp->data(); $smtp->datasend("From: ". $username ); $smtp->datasend("\n"); $smtp->datasend("To: ". $dest ); $smtp->datasend("\n"); $smtp->datasend("Subject: ". $asunto. "\n"); $smtp->datasend("\n"); $smtp->datasend($body_mail ."\n"); $smtp->dataend(); $smtp->quit(); }Y así podemos enviar correos usando nuestras cuentas de Gmail a traves de PERL en LINUX y Windows.
!#/usr/bin/perl use strict; use Data::Dumper; use Net::Twitter; my $youraccesstoken=''; my $youraccesstokensecret=''; my $twitterconsumer = 'SdXKgscRc82fcWkzKn3IA'; my $twitterconsumersecret = 'ZLZyzIVaTgXqdMmvszBRI64zWIzIRRa525y8gzaIBA'; my $nt = Net::Twitter->new( traits => ['API::REST', 'OAuth'], consumer_key => $twitterconsumer, consumer_secret => $twitterconsumersecret, ); if ($youraccesstoken && $youraccesstokensecret) { $nt->access_token($twitteraccesstoken); $nt->access_token_secret($twitteraccesstokensecret); } unless ( $nt->authorized ) { print "Authorize this app at ", $nt->get_authorization_url, " and enter the PIN#\n"; my $pin =; # wait for input chomp $pin; my($access_token, $access_token_secret, $user_id, $screen_name) = $nt->request_access_token(verifier => $pin); print 'Id Usuario: '.$user_id'."\r\n".'Screen name: '.$screen_name."\r\n";
print 'Access token: '.$access_token."\r\n".'Access Token Secret: '.$access_token_secret."\r\n"; }
get_timeline(); sub get_timeline { my $timeline = $nt->home_timeline();#Este metodo regresa un arrayref my ($x,$y); # recorremos el array foreach $x(0..@{$timeline-1}){ foreach $y(0..@{$timeline[$x]}-1) { print $timeline[$x][$y]->{user}->{screen_name}.":"."\n"; print $timeline[$x][$y]->{text}."\n"; print "====================================\n"; } } #para ver el objeto "timeline" y comprender un poco mas como es que esta armado #podemos usar Dumper para verlo. print Dumper($timeline); }
!#/usr/bin/perl use strict; use Data::Dumper; use Net::Twitter; my $youraccesstoken=''; #esta variable contendra el Token Access para autentificarte en twitter, primero la declaramos vacía, después de autentificar tendrá un valor y lo mejor es guardarlo para su uso posterior my $youraccesstokensecret=''; #esta variable como la anterior una vez obtenido su valor, lo mejor es guardarla my $twitterconsumer = 'SdXKgscRc82fcWkzKn3IA'; #Estos valores los obtienes al registrar tu aplicación en la página de http://dev.twitter.com my $twitterconsumersecret = 'ZLZyzIVaTgXqdMmvszBRI64zWIzIRRa525y8gzaIBA'; my $nt = Net::Twitter->new( traits => ['API::REST', 'OAuth'], consumer_key => $twitterconsumer, consumer_secret => $twitterconsumersecret, ); #validamos si el Token acces y el Token Access Secret tienen valores if ($youraccesstoken && $youraccesstokensecret) { $nt->access_token($twitteraccesstoken); $nt->access_token_secret($twitteraccesstokensecret); } #validamos si los datos de acceso son correctos si no lo son imprime la URl para autorizar la aplicación unless ( $nt->authorized ) { print "Authorize this app at ", $nt->get_authorization_url, " and enter the PIN#\n"; #esperamos por entrada el PIN que dio la página my $pin =; # wait for input chomp $pin; #Aquí obtenemos verificamos el PIN y si todo esta bien, nos regresa una lista con el Access token, el access token secret, el id del usuario y su screen name my($access_token, $access_token_secret, $user_id, $screen_name) = $nt->request_access_token(verifier => $pin); print 'Id Usuario: '.$user_id'."\r\n".'Screen name: '.$screen_name."\r\n"; print 'Access token: '.$access_token."\r\n".'Access Token Secret: '.$access_token_secret."\r\n"; exit(); }Nota: Si usan UBUNTU, las librerías también las pueden encontrar en los repositorios de Ubuntu, como "libnet-twitter-perl" e instalarla desde synaptic o un "apt-get install".