abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

dnes 05:55 | Zajímavý projekt

Dle příspěvku na blogu zaměstnanců CZ.NIC byl spuštěn ostrý provoz služby Honeypot as a Service (HaaS). Zapojit se může kdokoli. Stačí se zaregistrovat a nainstalovat HaaS proxy, která začne příchozí komunikaci z portu 22 (běžně používaného pro SSH) přeposílat na server HaaS, kde honeypot Cowrie (GitHub) simuluje zařízení a zaznamenává provedené příkazy. Získat lze tak zajímavé informace o provedených útocích. K dispozici jsou globální statistiky.

Ladislav Hagara | Komentářů: 0
dnes 04:44 | Komunita

Před týdnem společnost Feral Interactive zabývající se vydáváním počítačových her pro operační systémy macOS a Linux oznámila, že pro macOS a Linux vydají hru Rise of the Tomb Raider. Včera společnost oznámila (YouTube), že pro macOS a Linux vydají také hru Total War Saga: Thrones of Britannia. Verze pro Windows by měla vyjít 19. dubna. Verze pro macOS a Linux krátce na to.

Ladislav Hagara | Komentářů: 0
včera 21:33 | Nová verze

Byla vydána nová major verze 7.10 svobodného systému pro řízení vztahů se zákazníky (CRM) s názvem SuiteCRM (Wikipedie). Jedná se o fork systému SugarCRM (Wikipedie). Zdrojové kódy SuiteCRM jsou k dispozici na GitHubu pod licencí AGPL.

Ladislav Hagara | Komentářů: 0
včera 16:44 | Nová verze

Byla vydána nová verze 0.30 display serveru Mir (Wikipedie) a nová verze 2.31 nástrojů snapd pro práci s balíčky ve formátu snap (Wikipedie). Z novinek Miru vývojáři zdůrazňují vylepšenou podporu Waylandu nebo možnost sestavení a spouštění Miru ve Fedoře. Nová verze snapd umí Mir spouštět jako snap.

Ladislav Hagara | Komentářů: 0
včera 14:00 | Komunita

Na Indiegogo běží kampaň na podporu Sway Hackathonu, tj. pracovního setkání klíčových vývojářů s i3 kompatibilního dlaždicového (tiling) správce oken pro Wayland Sway. Cílová částka 1 500 dolarů byla vybrána již za 9 hodin. Nový cíl 2 000 dolarů byl dosažen záhy. Vývojáři přemýšlejí nad dalšími cíli.

Ladislav Hagara | Komentářů: 1
včera 11:11 | Nasazení Linuxu

Před dvěma týdny se skupina fail0verflow (Blog, Twitter, GitHub) pochlubila, že se jim podařilo dostat Linux na herní konzoli Nintendo Switch. O víkendu bylo Twitteru zveřejněno další video. Povedlo se jim na Nintendo Switch rozchodit KDE Plasmu [reddit].

Ladislav Hagara | Komentářů: 3
včera 05:55 | Komunita

Byla vydána vývojová verze 3.2 softwaru Wine (Wikipedie), tj. softwaru, který vytváří aplikační rozhraní umožňující chod aplikací pro Microsoft Windows také pod GNU/Linuxem. Z novinek lze zdůraznit například podporu HID gamepadů. Aktuální stabilní verze Wine je 3.0, viz verzování. Nejistá je budoucnost testovací větve Wine Staging s řadou experimentálních vlastností. Současní vývojáři na ni již nemají čas. Alexandre Julliard, vedoucí projektu Wine, otevřel v diskusním listu wine-devel diskusi o její budoucnosti.

Ladislav Hagara | Komentářů: 2
18.2. 16:55 | Komunita

Do 22. března se lze přihlásit do dalšího kola programu Outreachy (Wikipedie), jehož cílem je přitáhnout do světa svobodného a otevřeného softwaru lidi ze skupin, jež jsou ve světě svobodného a otevřeného softwaru málo zastoupeny. Za 3 měsíce práce, od 14. května do 14. srpna 2018, v participujících organizacích lze vydělat 5 500 USD.

Ladislav Hagara | Komentářů: 50
17.2. 15:44 | Komunita

Nadace The Document Foundation (TDF) zastřešující vývoj svobodného kancelářského balíku LibreOffice dnes slaví 6 let od svého oficiálního vzniku. Nadace byla představena 28. září 2010. Formálně ale byla založena až 17. února 2012. Poslední lednový den byl vydán LibreOffice 6.0. Dle zveřejněných statistik byl za dva týdny stažen již cca milionkrát.

Ladislav Hagara | Komentářů: 1
17.2. 04:44 | Bezpečnostní upozornění

CSIRT.CZ upozorňuje, že byla vydána nová verze 1.2.3 svobodného routovacího démona Quagga (Wikipedie) přinášející několik bezpečnostních záplat. Při nejhorší variantě může dojít až k ovládnutí běžícího procesu, mezi dalšími možnostmi je únik informací z běžícího procesu nebo odepření služby DoS. Konkrétní zranitelnosti mají následující ID CVE-2018-5378, CVE-2018-5379, CVE-2018-5380 a CVE-2018-5381.

Ladislav Hagara | Komentářů: 0
Který webový vyhledávač používáte nejčastěji?
 (2%)
 (28%)
 (62%)
 (2%)
 (3%)
 (1%)
 (1%)
 (1%)
Celkem 384 hlasů
 Komentářů: 34, poslední 14.2. 18:44
    Rozcestník

    Dotaz: Perl - dbi a utf

    pek avatar 3.12.2009 16:29 pek | skóre: 20
    Perl - dbi a utf
    Přečteno: 583×
    Snažím se přesunout instalaci RT z MySQL na PostgreSQL pomocí perlového skriptu.
    #!/usr/bin/perl -w 
    
    use strict;
    use DBI;
    
    my $new_handle = DBI->connect("dbi:Pg:dbname=rtdb",'rtuser','****');
    
    $new_handle->{pg_enable_utf8}=1;
    $new_handle->do("SET client_encoding TO 'UTF8'");
    
    my $old_handle = DBI->connect("dbi:mysql:dbname=rtdb",'rtuser','****');
    $old_handle->do("SET NAMES 'utf8'");
    $old_handle->do("SET CHARACTER SET 'utf8'");
    
    my @tables = qw/Attachments/; 
    
    foreach my $table (@tables) {
      print "Migrating $table...\n";
      # Find all the rows in the table
      my $sth = $old_handle->prepare("SELECT * FROM $table") || die $@; 
      $sth->execute || die $@; 
      copy_table_rows($table, $sth);
    }
    
    sub copy_table_rows {
      my $table = shift;
      my $sth = shift;
    
      while (my $row = $sth->fetchrow_hashref) {
        my @keys;
        my @values;
        my @placeholders;
        foreach my $key (keys %$row) {
          push @keys, $key;
          push @values, $row->{$key};
          push @placeholders, '?';
        }   
    
        my $insert = "INSERT into $table (".join(',',@keys).") VALUES (".join(',',@placeholders).")\n";
        my $sth= $new_handle->prepare($insert) || die  $@; 
        $sth->execute(@values) || die $@  . "\n ".join(",",@values);
      }
    }
    
    $old_handle->disconnect();
    $new_handle->disconnect();
    Ten skončí s chybou:
    DBD::Pg::st execute failed: ERROR:  invalid byte sequence for encoding "UTF8": 0xed6d2c
    HINT:  This error can also happen if the byte sequence does not match the encoding expected by the server, which is controlled by "client_encoding". at ./rt3-on-mysql-to-pg.pl line 45.
    Use of uninitialized value $values[2] in join or string at ./rt3-on-mysql-to-pg.pl line 45.
    A v tabulce je jen prvních zhruba 30 záznamů.

    Podle chybové hlášky, z dokumentace a pomocí google jsem získal dojem, že problém bude ve špatném kódování vkládaných znaků do databáze Pg. Nemůžu ale přijít na způsob, jak to opravit. Nastavení client_encoding, NAMES ani CHARACTER SET nepomohlo. Co ještě můžu vyzkoušet?

    Odpovědi

    3.12.2009 21:15 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    A co zkusit encode/decode, nebo to dělá za vás DBI? UTF8 není interní reprezentace perlu a tudíž při nějaké manipulaci může stringy zmršit.
    In Ada the typical infinite loop would normally be terminated by detonation.
    pek avatar 4.12.2009 10:07 pek | skóre: 20
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    V tom to asi bude. Upravil jsem kód pro načítání dat:
    push @values, decode("utf8",$row->{$key});
    a vkládání zpět do databáze:
    $sth->execute(@values) || die $@  . "\n ".encode("utf8",join(",",@values));
    Skript zpracuje úspěšně 3500 řádků v tabulce (předtím 30). Pak ale opět skončí s chybou:
    DBD::Pg::st execute failed: ERROR:  invalid byte sequence for encoding "UTF8": 0xfd
    4.12.2009 12:09 petr_p | skóre: 59 | blog: pb
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    A není prostě problém v tom, že některá data ve zdrojové databázi prostě nejsou UTF-8. Pak totiž zcela logicky převod selže. Zjistěte si kontext chybných dat, podívejte se do zdrojové databáze jiným prostředkem, co tam opravdu máte uloženo.
    3.12.2009 21:26 Petr Šobáň | skóre: 79 | blog: soban | Olomouc
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    Co use locale; ? A nastavit na UTF8 ?
    3.12.2009 21:35 Petr Šobáň | skóre: 79 | blog: soban | Olomouc
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    Případně nepomůže Perl: problém s češtinou v regexpu
    pek avatar 4.12.2009 10:18 pek | skóre: 20
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    Přidání:
    use locale;
    binmode(STDOUT, ":encoding(UTF-8)");
    binmode(STDIN, ":encoding(UTF-8)");
    ani nastavení LANG=en_US.UTF-8 a LC_ALL=en_US.UTF-8 nepomohlo.
    pek avatar 8.12.2009 12:35 pek | skóre: 20
    Rozbalit Rozbalit vše Re: Perl - dbi a utf

    Vypadá to na problém se sloupcem Content. Když ho vyřadím z exportovaných dat, tak se import povede.

    my $sth = $old_handle->prepare("SELECT Created,id,TransactionId,Parent,MessageId,Subject,Filename,ContentType,ContentEncoding,Headers,Creator,Created FROM $table) || die $@;
    

    Sloupec Content je v MySQL typu longblob v PostgreSQL typu bytea. Takže otázka zní: Jak dostat v perlu data ze sloupce longblob do sloupce typu bytea?

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.