$ dpkg-query -W mplayer
mplayer 1.0~rc3+svn20090405-1

Σε αυτή την έκδοση του mplayer (ίσως και σε άλλες) τα -slang και -sid δεν πιάνουν από μόνα τους για να εμφανιστούν οι υπότιτλοι των DVD! Κάποιος που θέλει να δει dvd με υπότιτλους πρέπει να δώσει τις γνωστές παραμέτρους sid/slang, μετά να πατάει j (Cycle through the available subtitles) μόλις ξεκινήσει η ταινία για να ξαναεπιλέξει τους ίδιους υπότιτλους… Σε κάθε άλλη περίπτωση, δεν εμφανίζονται καθόλου και πρέπει να ψάξει να βρει τι φταίει με το dvd, τον mplayer κλπ όσο η ταινία/παρέα κλπ περιμένει… Δεν ξέρω αν είναι bug ή το έκαναν για κάποιο λόγο επίτηδες, πάντως ενημερώνω!

[...]

09:36 hikiko$ 10 oloklira lepta mou pire :p
09:36 hikiko$ 10 lepta xwris chat
09:36 hikiko$ :s

09:36 ricudis$ mh
09:36 ricudis$ eklapsa x8es me to drama ths iovis
09:36 ricudis$ mh me baleis na klapsw kai gia to diko sou

09:36 hikiko$ lol

[...]

09:42 Beket$ paidia akyrh erwthsh gia tetoia wra, alla.. ti gnwmh exete gia th ruby ? (epishs se sygkrish me perl, python, lisp)
09:46 hikiko$ Beket: de 8a ma8aina pote mia glwssa me onoma skulou
09:46 ricudis$ Beket: gia mia fora h hikiko exei dikio
[...]
09:47 Beket$ ricudis, giati omws ?
[...]
09:48 ricudis$ an den yphrxe to rails
09:48 ricudis$ th ruby de 8a thn hksere oute o sakis rubas.

Από τότε που άρχισα να μαθαίνω λίγα πράγματα για τα πολιτεύματα και τα εκλογικά συστήματα στο σχολείο, πολύ πριν ακόμη αρχίσω να ψηφίζω, μου δημιουργήθηκαν κάποια ερωτήματα σχετικά με την ελληνική δημοκρατία, τις εκλογές και τους ψηφοφόρους, που όσα χρόνια και να πέρασαν από τότε δεν κατάφερα να τα απαντήσω… Ίσως οι απορίες μου να είναι τελείως αφελείς και παιδικές, μιας και δεν έχω και τόσο βαθιές γνώσεις πολιτικής, αλλά θα ήθελα αν κάποιος διαβάσει αυτό το post και ξέρει περισσότερα από μένα για το θέμα να μου απαντήσει…

Στο σχολείο μου έμαθαν ότι η χώρα μας έχει δημοκρατία (και μάλιστα είμαστε ιδιαίτερα περήφανοι για αυτό γιατί η χώρα μας είναι επίσης και η μητέρα της δημοκρατίας!). Στη δημορατία σαν αυτή της Ελλάδας λοιπόν, λέει το σχολείο, τις αποφάσεις τις παίρνει ένα σύνολο βουλευτών που εκλέχθηκε από όλους τους πολίτες (άνω των 18) με ένα σύστημα στο οποίο όλοι αυτοί οι πολίτες εχουν δικαίωμα ψήφου. Η ψήφος είναι δικαίωμα! Επιπλέον, υπάρχουν νόμοι στο σύνταγμα που φροντίζουν αυτή η δημοκρατία να διασφαλίζεται. Ένα παράδειγμα τέτοιου νόμου, ήταν ένας παλιός νόμος που έλεγε ότι αν σε κάποιες εκλογές το 50% ή κάποιο ποσοστό μεγαλύτερο του 50% των ψηφοφόρων ψηφίσει λευκό, όλοι οι υποψήφιοι είναι αναγκασμένοι να παραιτηθούν και οι εκλογές να ξαναγίνουν με νέους υποψήφιους. Πραγματικά, όταν είχα μάθει για αυτό το νόμο είχα εντυπωσιαστεί που είχαμε τόσο δίκαιο σύστημα και μου φαινόταν ότι είχαμε την καλύτερη δημοκρατία!!

Μετά βέβαια έμαθα εκτός σχολείου και για τον άλλο νόμο που ισχύει και σήμερα: “Το λευκό και το άκυρο, πηγαίνουν στο κόμμα που συγκεντρώνει την πλειοψηφία”. Στην αρχή δεν κατάλαβα ακριβώς τη σημασία του και ρώτησα τι γίνεται σε περίπτωση που δε συμφωνείς με κανένα κόμμα και δε θέλεις να χαρίσεις την ψήφο σου σε αυτό που θα βγει πρώτο. “Η μόνη λύση είναι να μην πας να ψηφίσεις. Έχεις δικαίωμα να το κάνεις και αυτό. Κανείς δε θα σου πει τίποτα.”, μου είπαν. Ωραία λοιπόν, έχω δικαίωμα να ψηφίσω έναν υποψήφιο που θέλω ή να χαρίσω την ψήφο μου σε έναν υποψήφιο που δε θέλω. Έχω και δικαίωμα να απέχω από τις εκλογές χαρίζοντας πάλι την ψήφο μου στο πρώτο κόμμα. Γιατί ναι, το ξανασκέφτηκα μετά και είδα ότι γι’ αυτό αν δεν ψηφίσω δε θα μου κάνουν τίποτα. Γιατί και αυτό τους συμφέρει!

Σκεφτείτε το εξής:
Έχουμε δύο χωριά το Α και το Β χωριό με 50 ψηφοφόρους στο καθένα. Και στα 2 χωριά 24 ψηφοφόροι ψηφίζουν το 1ο κόμμα.
Στο χωριό Α ψηφίζουν όλοι οι κάτοικοι έτσι το 1ο κόμμα με 24/50 ψήφους δεν παίρνει την απόλυτη πλειοψηφία.
Στο χωριό Β 3 κάτοικοι αποφασίζουν να απέχουν από τις εκλογές. Έτσι, το 1ο κόμμα με 24/47 ψήφους παίρνει την απόλυτη πλειοψηφία.
3 άνθρωποι έκαναν τη διαφορά… Απορρίπτεται λοιπόν και η αποχή σαν τρόπος διαφωνίας… Έτσι όπως είναι το σύστημα, αν πάει μόνο ο πρωθυπουργός να ψηφίσει τον εαυτό του και όλοι οι άλλοι απέχουν από τις εκλογές, θα πάρει την πλήρη πλειοψηφία… Δε χρειάζεται καν να κάνει πραξικόπημα

Και εδώ έρχεται η απορία μου:
Τελικά έχουμε ή δεν έχουμε δικαίωμα να πούμε τη γνώμη μας γι’ αυτούς που θα μας κυβερνήσουν σε αυτή τη χώρα;
Η γνώμη μας μετρά μια Κυριακή κάθε 4 χρόνια και πρέπει να είναι σύμφωνη με κάποιο κόμμα. Αν εμείς κρίνουμε ΟΛΟΥΣ τους υποψήφιους ανίκανους και δε θέλουμε να δώσουμε την ψήφο μας σε ΚΑΝΕΝΑΝ υπάρχει τρόπος ΝΑ ΜΗΝ ΤΗ ΧΑΡΙΣΟΥΜΕ;
Γιατί αν δεν υπάρχει τρόπος, τότε στην πραγματικότητα ΔΕΝ ΥΠΑΡΧΕΙ ΔΙΚΑΙΩΜΑ ΔΙΑΦΟΡΕΤΙΚΗΣ ΓΝΩΜΗΣ.
Και αυτό δεν είναι χαρακτηριστικό δημοκρατίας…

Από ό,τι κατάλαβα, σε λίγο καιρό στις εκλογές θα πηγαίνει μόνο ο πρωθυπουργός για να ψηφίσει τον εαυτό του κι όλοι οι άλλοι θα καθόμαστε και θα τον βρίζουμε. Δεν είναι αρκετά σημαντικό θέμα που η γνώμη μας δε μετρά πουθενά; Δεν αξίζει γι’ αυτό και μόνο να βγούμε στους δρόμους;

Το script-άκι μετονομάζει τα ελληνικά σε greeklish, μετατρέπει τα κεφαλαία σε μικρά και τα κενά σε underscores για όλα τα filenames, directory names ενός directory και μετά κάνει το ίδιο σε όλα τα directories ενός direcrory:

π.χ.
$./cleanfnamerec example_dir/
Filename example_dir has not been changed.
Filename example_dir/elliniko_filename_toy_dir has not been changed.
Filename example_dir/elliniko_filename_toy_dir/mpe has not been changed.
Filename example_dir/elliniko_filename_toy_dir/mpe/ελλάς has been changed to example_dir/elliniko_filename_toy_dir/mpe/ellas.

Το script υπάρχει εδώ: cleafnamrec script

και ο κώδικας είναι:

#!/usr/bin/perl

################################
# cleanfnamerec.pl
# author: Eleni Maria Stea
################################

use strict;
use Encode;
use File::Copy;
use File::Find::Rule;

my $dir;
my @files;
my $file;
my $initfile;
my $flag;

$dir=$ARGV[0];

if ( -d $dir ) {
    @files = File::Find::Rule->in($dir);
	foreach ( @files ) {
		next if ( $_ eq "." || $_ eq ".." );
		$file = $_;
		$initfile = $_;
		$flag = decode ("utf8",$_,Encode::FB_QUIET);
		if ( $flag ) {
			$file = encode("iso-8859-7",$flag);
		}
		$file =~ s/\s/_/g;
		$file =~ s/θ/th/g;
		$file =~ s/Θ/th/g;
		$file =~ s/ψ/ps/g;
		$file =~ s/Ψ/ps/g;
		$file =~ tr/ΑΒΓΔΕΖΗΙΚΛΜΝΞΟΠΡΣΤΥΦΧΩΆΈΉΊΎΌΏΪΫαβγδεζηικλμνξοπρστυφχωάέήίύόώϋϊΰΐς/abgdeziiklmnxoprstyfhoaeiiyooiyabgdeziiklmnxoprstyfhoaeiiyooyiyis/;
		$file =~s/_-_/-/g;
		$file = "\L$file";
		move("$initfile","$file") || die $!;
		if ( $initfile eq $file ) {
			print "Filename $initfile has not been changed.\n";
		}
		else {
			print "Filename $initfile has been changed to $file.\n";
		}
	}
}
else {
	print "Sorry dude. There is no such directory.\n";
}

Το scriptaki αυτό μετονομάζει τα αρχεία ενός directory μετατρέποντας τα ελληνικά σε greeklish, τα κενά σε underscores και τα κεφαλαία σε μικρά χωρίς να πειράζει τους υπόλοιπους χαρακτήρες. Μπορεί να χρησιμοποιηθεί σε ISO-8859-7 και UTF-8 filenames μόνο. Για να τρέξει χρειάζεται Perl και chmod +x cleanup_filenames

Παραδείγματα:

Directory με αρχεία που θέλουμε να μετονομάσουμε:

$ ls example_dir/
Ελληνικότατο FileνάMe.Txτ Λόλα Γλαδιόλα - Τεράστιο Souxe.Mp3
$ ./cleanup_filenames example_dir/
$ ls example_dir/
ellinikotato_filename.txt lola_gladiola-terastio_souxe.mp3


Λάθος directory:

$ ./cleanup_filenames wrong_dir/
Sorry dude. There is no such directory.


Παρακάτω είναι ο κώδικας.

Προσοχή!!

Για να παίξει σωστά, φροντίστε στο αρχείο που θα σώσετε το script να έχει encoding iso-8859-7, διαφορετικά δε θα γίνει σωστά η μετατροπή ή κατεβάστε το original αρχείο από εδώ: http://quasar.dnsalias.com/~eleni/cleanup_filenames

#!/usr/bin/perl

################################
# cleanup_filenames.pl
# author: Eleni Maria Stea
################################

use strict;
use Encode;
use File::Copy;

my $dir;
my @files;
my $file;
my $initfile;
my $flag;

$dir=$ARGV[0];

if ( -d $dir ) {
    opendir (DIR,$dir) or die $!;
    @files = (readdir DIR) or die $!;
    closedir (DIR) or die $!;

    foreach ( @files ) {
        next if ( $_ eq "." || $_ eq ".." );
        $file = $_;
        $initfile = $_;
        $flag = decode ("utf8",$_,Encode::FB_QUIET);
        if ( $flag ) {
            $file = encode("iso-8859-7",$flag);
        }
        $file =~ s/\s/_/g;
        $file =~ s/θ/th/g;
        $file =~ s/Θ/th/g;
        $file =~ s/ψ/ps/g;
        $file =~ s/Ψ/ps/g;
        $file =~ tr/ΑΒΓΔΕΖΗΙΚΛΜΝΞΟΠΡΣΤΥΦΧΩΆΈΉΊΎΌΏΪΫαβγδεζηικλμνξοπρστυφχωάέήίύόώϋϊΰΐς/abgdeziiklmnxoprstyfhoaeiiyooiyabgdeziiklmnxoprstyfhoaeiiyooyiyis/;
        $file =~s/_-_/-/g;
        $file = "\L$file";
        move("$dir$initfile","$dir$file") || die $!;
        if ( $initfile eq $file ) {
            print "Filename $initfile has not been changed.\n";
        }
        else {
            print "Filename $initfile has been changed to $file.\n";
        }
    }
}
else {
    print "Sorry dude. There is no such directory.\n";
}

Βήμα 1:
# apt-get install libapache2-mod-perl2
# perl -MCPAN -e shell
cpan[] > install Bundle::Apache::ASP


Βήμα 2:
# cd /root/.cpan/build/Apache-ASP-2.61-uRveM6/site/eg
κοιτάμε τα examples :-p

Βήμα 3:
Φτιάχνουμε το directory htdocs δηλ. το directory που θα φιλοξενεί τα asp-modperl sites μας π.χ.
# mkdir /var/www/AspModPerl

Βήμα 4:
Ελέγχουμε ότι δουλεύει η modperl:
# a2enmod perl
Αν εγκαταστάθηκε σωστά θα μας επιστρέψει:
Module perl already enable
# find /usr/share | grep mod | grep perl
Θα πρέπει να μας επιστρέψει κάτι σαν:
/usr/share/bug/libapache2-mod-perl2
/usr/share/doc/perl-modules
/usr/share/doc/libapache2-mod-perl2
/usr/share/doc/libapache2-mod-perl2/copyright
/usr/share/doc/libapache2-mod-perl2/changelog.Debian.gz
/usr/share/doc/libapache2-mod-perl2/changelog.gz
/usr/share/doc/libapache2-mod-perl2/README
/usr/share/doc/libapache2-mod-perl2/NEWS.Debian.gz
/usr/share/doc/libapache2-mod-perl2/Changes.gz
/usr/share/perl/5.10.0/pod/perlmod.pod
/usr/share/perl/5.10.0/pod/perlmodlib.pod
/usr/share/perl/5.10.0/pod/perlmodstyle.pod
/usr/share/perl/5.10.0/pod/perlmodinstall.pod
/usr/share/perl/5.10.0/pod/perlnewmod.pod
/usr/share/libapache2-mod-perl2
/usr/share/libapache2-mod-perl2/mp2bug
/usr/share/man/man3/mod_perl2.3pm.gz
/usr/share/man/man1/perlnewmod.1.gz
/usr/share/man/man1/perlmodlib.1.gz
/usr/share/man/man1/perlmodinstall.1.gz
/usr/share/man/man1/perlmod.1.gz
/usr/share/man/man1/perlmodstyle.1.gz
που δημιουργήθηκαν μετά την εγκατάσταση του modperl.

Βήμα 5:
Αλλάζουμε το configuration file του Apache για να βλέπει το δικό μας htdocs directory:
# vim /etc/apache2/apache2.conf
Insert button και append:
Options FollowSymLinks
AllowOverride All
Allow from 127.0.0.1
:wq
(Μπορούμε να δώσουμε πολύ περισσότερα options ανάλογα τι θέλουμε να κάνουμε – υπάρχουν στα παραδείγματα στο eg – βήμα 2 και να πούμε π.χ. allow all αντί allow from 127.0.0.1 )

Βήμα 6:
Πηγαίνουμε στο directory htdocs:
cd /var/www/AspModPerl/
και δημιουργούμε ένα αρχείο .htaccess που θα διαβάζει ο apache.
# vim .htaccess
όπως στο .htaccess στο directory του βήματος 2. (Ό,τι options βάζουμε στο .htaccess μπορούν να μπουν και απευθείας στο apache2.conf)
το δικό μου .htaccess:
Allow From 127.0.0.1
PerlSetVar Global .
PerlSetVar GlobalPackage Apache::ASP::Demo
PerlSetVar StateDir /tmp/asp_demo
PerlSetVar StatINC 0
PerlSetVar StatINCMatch 0
PerlSetVar Clean 0
PerlSetVar DynamicIncludes 1
PerlSetVar FileUploadMax 50000
PerlSetVar FileUploadTemp 1
PerlSetVar SessionQueryParse 0
PerlSetVar SessionQuery 1
#PerlSetVar Debug 2
PerlSetVar Debug -3
PerlSetVar StateCache 0
PerlSetVar SessionCount 1
PerlSetVar TimeHiRes 1
PerlSetVar CompressGzip 0
PerlSetVar UseStrict 1
#PerlSetVar CacheDB DB_File
PerlSetVar CacheDB MLDBM::Sync::SDBM_File
# .asp files for Session state enabled
SetHandler perl-script
PerlHandler Apache::ASP
PerlSetVar CookiePath /
PerlSetVar SessionTimeout 5
PerlSetVar RegisterIncludes 1
PerlSetVar XMLSubsMatch my:\w+
PerlSetVar AllowApplicationState 1
PerlSetVar AllowSessionState 1
# PerlSetVar StateSerializer Storable
# PerlSetVar StateDB DB_File
# PerlSetVar StatScripts 0
# .htm files for the ASP parsing, but not the $Session object
# NoState turns off $Session & $Application
SetHandler perl-script
PerlHandler Apache::ASP
PerlSetVar NoState 1
PerlSetVar BufferingOn 1
PerlSetVar NoCache 1
PerlSetVar DebugBufferLength 250
SetHandler perl-script
PerlHandler Apache::ASP
PerlSetVar NoState 1
PerlSetVar XSLT template.xsl
PerlSetVar XSLTCache 1
ForceType text/plain
# .ssi for full ssi support, with Apache::Filter
SetHandler perl-script
PerlHandler Apache::ASP Apache::SSI
PerlSetVar Global .
PerlSetVar Filter On
SetHandler perl-script
PerlHandler Apache::ASP Apache::ASP
PerlSetVar Global .
PerlSetVar Filter On
SetHandler perl-script
PerlHandler Apache::ASP
PerlSetVar CookiePath /
PerlSetVar SessionTimeout 1
PerlSetVar SessionQueryParseMatch ^http://localhost
SetHandler perl-script
PerlHandler Apache::ASP
PerlSetVar CookiePath /
PerlSetVar SessionTimeout 5
PerlSetVar RegisterIncludes 1
PerlSetVar XMLSubsMatch my:\w+
PerlSetVar XMLSubsStrict 1


Βήμα 7:
Restart στον Apache:
# /etc/init.d/apache2 restart

Τώρα μάλλον πρέπει να δουλεύει, φτιάχνουμε μια δοκιμαστική σελίδα mpe.asp
<%
my $mpe = "mpe!";
%>
<html><body><%=$mpe%>&nbsp;Hello world!</body></html>
και βλέπουμε κατι σαν…
mpe! Hello world!

αυτό το post χρειάζεται απαραιτήτως και μερικά credits!
thanx ricudis!

Ένας από τους πολλούς τρόπους να τραβήξει κάποιος screenshots είναι χρησιμοποιώντας το imagemagick:

screenshot από ένα window:
$ import foo.png

screenshot από frame διατηρώντας και τα window decorations του window:
$ import -frame foo.png

screenshot όλης της οθόνης:
$ import -window root foo.png

(φυσικά τα λέει και το documentation αλλά τα έκανα post για να τα βρίσκω πιο γρήγορα και να μην τα ξεχνάω )

2-3 εντολές για εγγραφή/αντιγραφή cd/dvd για να βρίσκονται

• Δημιουργία iso από αρχείο:
  mkisofs -R -J -o filename.iso /directoryname

• Αντιγραφή του iso σε cd ή dvd αντίστοιχα:
  cdrecord dev=/dev/cdrwdevicename -v -eject filename.iso
growisofs -Z /dev/dvdrwdevicename=filename.iso

• και σε περίπτωση που θέλουμε να δημιουργήσουμε image από cd ή dvd:
  dd if=/dev/cdromdevicename of=filename.iso

Το Ubuntu πετάχτηκε Αντικαταστάθηκε από Debian και FreeBSD!!

Αλλά τώρα μάλλον πρέπει να αλλάξω nickname και όνομα στο blog και το about μου!!