lo tomàs avança » Informàtica

MySQL Workbench 5.2.35-1 for Ubuntu 11.10 i386 deb package

Tomàs Reverter — Mon, 07 Nov 2011 17:28:00 +0000

To solve the problem with the MySQL Workbench v5.2.34 bug that comes with the lastest ubuntu version (the splashscreen freezes) you can apply a patch over the source code. The problem is that building the source code requires a lot of time and installing dependencies.

To make it easy, you can download the deb package from here:
MySQL Workbench 5.2.35-1 for Ubuntu 11.10 Oneiric Ocelot i386 deb package

openldap with static configuration in Ubuntu

Tomàs Reverter — Fri, 04 Nov 2011 13:27:15 +0000

If after configuring an openLDAP server on Ubuntu there’s no way no connect with the manager account (i.e. it gives an “ldap_bind: Invalid credentials (49)”) it’s because the ubuntu package is configured by default to use the cn=config . This means that no matter what password you have written to the ldap.conf config file, because ldap will don’t write it.

To force openldap to read the ldap.conf file you must:

Stop the server
Change the directory name of /etc/ldap/slapd.d to another
Edit the file ‘/etc/default/slapd’ and configure the SLAPD_CONF parameter, typically to /etc/ldap/ldap.conf
Start the server

More info: http://www.zytrax.com/books/ldap/ch6/slapd-config.html

El grep -r de Solaris

Tomàs Reverter — Tue, 30 Jan 2007 12:12:29 +0000

find ./ -type f -a -exec grep text_a_buscar \{\} \; -a -print

Automatitzacio d’impressio VBA (versió PDFCreator)

Tomàs Reverter — Fri, 24 Nov 2006 01:39:48 +0000

Aquesta rutina d’VBA serveix per aplicar un format concret i transformar a PDF tots els fitxers .xls que pengin de les subcarpetes d’un directori.

Option Explicit

Sub ArreglarMargeITransformarAPDF()

Dim fs, f, f1, sf
Dim folderspec
Dim MiNombre As String

folderspec = “C:\Directori\”

Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
Debug.Print f1.Name
MiNombre = Dir(folderspec & f1.Name & “\”)
Do While MiNombre <> “”
If MiNombre Like “*.xls” Then
Workbooks.Open folderspec & f1.Name & “\” & MiNombre
Call arreglarFormat
Call imprimirPDF(folderspec & f1.Name & “\”, Replace(MiNombre, “.xls”, “.pdf”))
ActiveWorkbook.Close savechanges:=True
End If
MiNombre = Dir
Loop
Debug.Print “Imprimit ” & f1.Name
Next

End Sub

Public Sub arreglarFormat()

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.15)
.RightMargin = Application.InchesToPoints(0.15)
.TopMargin = Application.InchesToPoints(0.15)
.BottomMargin = Application.InchesToPoints(0.15)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = 0
.PaperSize = xlPaperA3
End With

End Sub

Private Sub imprimirPDF(Directori, Fitxer)

Dim PSFileName As String
Dim PDFFileName As String
PSFileName = “c:\tempPOA.ps”
PDFFileName = Directori & Fitxer

‘ Imprimir la fulla
Dim MySheet As Worksheet
Set MySheet = ActiveSheet

‘ Convertir a PDF
Dim pdfjob As PDFCreator.clsPDFCreator
Set pdfjob = New PDFCreator.clsPDFCreator

With pdfjob
If .cStart(“/NoProcessingAtStartup”) = False Then
MsgBox “Can’t initialize PDFCreator.”, vbCritical + _
vbOKOnly, “PrtPDFCreator”
Exit Sub
End If

‘Set details on where to save file to, and flag it automatic
.cOption(“UseAutosave”) = 1
.cOption(“UseAutosaveDirectory”) = 1
.cOption(“AutosaveDirectory”) = Directori
.cOption(“AutosaveFilename”) = Fitxer
.cOption(“AutosaveFormat”) = 0 ‘ 0 = PDF

‘Get ready for the print job
.cClearCache
End With

MySheet.PrintOut copies:=1, ActivePrinter:=”PDFCreator”

‘Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False

‘Wait until the PDF file shows up then release the objects
Do Until Dir(Directori & Fitxer) <> “”
DoEvents
Loop

pdfjob.cClose
Set pdfjob = Nothing
End Sub

Automatitzacio d’impressio VBA (versió Acrobat Distiller)

Tomàs Reverter — Fri, 24 Nov 2006 00:38:27 +0000

Aquesta rutina d’VBA serveix per aplicar un format concret i transformar a PDF tots els fitxers .xls que pengin de les subcarpetes d’un directori

Option Explicit

Sub ArreglarMargeITransformarAPDF()

Dim fs, f, f1, sf
Dim folderspec
Dim MiNombre As String

folderspec = “C:\Directori”

Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
Debug.Print f1.Name
MiNombre = Dir(folderspec & f1.Name & “\”)
Do While MiNombre <> “”
If MiNombre Like “*.xls” Then
Workbooks.Open folderspec & f1.Name & “\” & MiNombre
Call arreglarFormat
Call imprimirPDF(folderspec & f1.Name & “\”, Replace(MiNombre, “.xls”, “.pdf”))
ActiveWorkbook.Close savechanges:=True
End If
MiNombre = Dir
Loop
Debug.Print “Imprimit ” & f1.Name
Next

End Sub

Public Sub arreglarFormat()

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.15)
.RightMargin = Application.InchesToPoints(0.15)
.TopMargin = Application.InchesToPoints(0.15)
.BottomMargin = Application.InchesToPoints(0.15)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = 0
.PaperSize = xlPaperA3
End With

End Sub

Private Sub imprimirPDF(Directori, Fitxer)

Dim PSFileName As String
Dim PDFFileName As String
PSFileName = “c:\tempPOA.ps”
PDFFileName = Directori & Fitxer

‘ Imprimir la fulla
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
MySheet.Activate
MySheet.PrintOut copies:=1, preview:=False, ActivePrinter:=”PDFCreator”, _
printtofile:=True, collate:=True, prtofilename:=PSFileName

‘ Convertir a PDF
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, “”

‘Esborrar el fitxer temporal ps i el de log
Kill PSFileName
Kill Directori & Replace(Fitxer, “.pdf”, “.log”)
End Sub

Recurs informàtico-literari: PDF CHM eBooks

Tomàs Reverter — Tue, 31 Oct 2006 09:37:11 +0000

Buscant un llibre m’he trobat amb aquesta bona web d’on es pot descarregar eBooks en format pdf o chm. A més, la presentació és gairebé com Amazon

PDF CHM eBooks

Val la pena fer-hi un cop d’ull, de debó.

Com no administrar geeks al treball

Tomàs Reverter — Mon, 29 May 2006 08:27:23 +0000

La primera vegada que vaig llegir el Cómo no administrar geeks en el trabajo em vaig quedar pensant quanta raó que tenia:

Cómo no tratar a los geeks en el trabajo

1. Subestimar el entrenamiento.
2. No dar reconocimiento.
3. Demasiado trabajo, más alla de las horas de oficina (creer que los geeks no tienen vida).
4. Hablar como administrador, los geeks no se la creen.
5. Intentar ser más inteligente que los geeks.
6. Actuar inconsistentemente
7. Ignorar a los geeks
8. Tomar decisiones sin consultar a los geeks
9. Insistir en no darles las herramientas de trabajo necesarias (sí, esa computadora carísima nos sirve y mucho).
10. Olvidar que los geeks somos creativos.

Però la que més ajuda a la creació de bon ambient al lloc de treball és la que han afegit a microsiervos:

1. ¡Cámbiales de ordenador a menudo! Eso les mantendrá entretenidos, felices, se sentirán apreciados y además mejorará su productividad

I es que com a mínim jo faria innumerables hores extres a canvi de tenir un parell de Work Cinema de 23” (pq Home Cinema no serien xD) conectat a un futur Mac Pro..

Concurs d’OpenOffice.org Calc

Tomàs Reverter — Mon, 08 May 2006 20:44:21 +0000

Interessant participar al I Concurs Internacional d’OpenOffice.org Calc, que ja fa temps que tinc ganes de començar a tocar l’OpenOffice.org Calc.

Recull de CheatSheets

Tomàs Reverter — Thu, 04 May 2006 10:37:35 +0000

Dios, m’encanten aquest reculls de cheatsheets, va de meravella tenir-los ben a mà.

Com rescatar un disc dur del més enllà

Tomàs Reverter — Fri, 28 Apr 2006 08:30:05 +0000

200 formes de reviure un disc dur (via Alt1040)