IBM kupuje společnost HashiCorp za 6,4 miliardy dolarů, tj. 35 dolarů za akcii.
Byl vydán TrueNAS SCALE 24.04 “Dragonfish”. Přehled novinek této open source storage platformy postavené na Debianu v poznámkách k vydání.
Oznámeny byly nové Raspberry Pi Compute Module 4S. Vedle původní 1 GB varianty jsou nově k dispozici také varianty s 2 GB, 4 GB a 8 GB paměti. Compute Modules 4S mají na rozdíl od Compute Module 4 tvar a velikost Compute Module 3+ a předchozích. Lze tak provést snadný upgrade.
Po roce vývoje od vydání verze 1.24.0 byla vydána nová stabilní verze 1.26.0 webového serveru a reverzní proxy nginx (Wikipedie). Nová verze přináší řadu novinek. Podrobný přehled v souboru CHANGES-1.26.
Byla vydána nová verze 6.2 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Přehled změn v příslušném seznamu. Tor Browser byl povýšen na verzi 13.0.14.
Byla vydána nová verze 30.0.0 frameworku pro vývoj multiplatformních desktopových aplikací pomocí JavaScriptu, HTML a CSS Electron (Wikipedie, GitHub). Chromium bylo aktualizováno na verzi 124.0.6367.49, V8 na verzi 12.4 a Node.js na verzi 20.11.1. Electron byl původně vyvíjen pro editor Atom pod názvem Atom Shell. Dnes je na Electronu postavena celá řada dalších aplikací.
Byla vydána nová verze 9.0.0 otevřeného emulátoru procesorů a virtualizačního nástroje QEMU (Wikipedie). Přispělo 220 vývojářů. Provedeno bylo více než 2 700 commitů. Přehled úprav a nových vlastností v seznamu změn.
Evropský parlament dnes přijal směrnici týkající se tzv. práva spotřebitele na opravu. Poslanci ji podpořili 584 hlasy (3 bylo proti a 14 se zdrželo hlasování). Směrnice ujasňuje povinnosti výrobců opravovat zboží a motivovat spotřebitele k tomu, aby si výrobky nechávali opravit a prodloužili tak jejich životnost.
Bylo oznámeno (cs) vydání Fedora Linuxu 40. Přehled novinek ve Fedora Workstation 40 a Fedora KDE 40 na stránkách Fedora Magazinu. Současně byl oznámen notebook Slimbook Fedora 2.
ČTK (Česká tisková kancelář) upozorňuje (X), že na jejím zpravodajském webu České noviny byly dnes dopoledne neznámým útočníkem umístěny dva smyšlené texty, které nepocházejí z její produkce. Jde o text s titulkem „BIS zabránila pokusu o atentát na nově zvoleného slovenského prezidenta Petra Pelligriniho“ a o údajné mimořádné prohlášení ministra Lipavského k témuž. Tyto dezinformace byly útočníky zveřejněny i s příslušnými notifikacemi v mobilní aplikaci Českých novin. ČTK ve svém zpravodajském servisu žádnou informaci v tomto znění nevydala.
Protože tady dlouho nebyl žádný pořádný linuxový blog, žádný pěkný hack, nebo zajímavý kus kódu, přináším toto vše v jednom zápisku. Ukážeme si, že napsat vlastní filesystém dnes zvládne i úplný noob, jako jsem třeba já, má to celé asi 100 řádků. A i když by se mohlo zdát, že "barcodefs" je poněkud ujetý způsob, jak generovat obrázky s barocode, nějakou skrytou poetiku to má.
Kupodivu zadání není žádným akademickým problémem, ale z reality vzešlým požadavkem. Interní generátor code93 v našem skvělém systému je rozbitý, generuje nepřečtitelné kódy. Existuje určitě mnoho způsobů, jak problém vyřešit - například si kódy nagenerovat bokem a pak je použít (a pak smazat), nebo se hrabat v interním generátoru, ale já jsem po zralé úvaze přišel k tomu, že si prostě udělám filesystém, který bude mít všechny kódy už v sobě a uživatel si je bude jenom používat, prostě aby soubor s kódem získal něčím jako:
cp /media/barcodefactory/123456.png .
...a všechny (myslitelné!) takové soubory už by tam prostě z pohledu uživatele byly.
Jako správný hacker vezmeme základní nástroj, kterým je samozřejmě perl, i když implemetace řekněmě v C by byla velmi podobná. Perl má pro FUSE knihovnu, které se překvapivě jmenuje perl-Fuse, nainstalujeme a jdeme na to.
Aby filesystém fungoval, musí umět překvapivě málo. Začneme nějakou perlovu omáčkou a jdeme rovnou na to. V našem filesystému budeme implementovat funkce getattr, open, read, release (pro close()) a ... to je vše! Jak teda na to?
#!/usr/bin/perl use strict; use warnings; use Fuse; use POSIX qw(ENOENT EISDIR EINVAL O_WRONLY); my ($tmp, $mount) = @ARGV if @ARGV; ($tmp && $mount) or die "Usage: ", $0, " temp_directory mount-point/", "\n"; my %files; Fuse::main( mountpoint => $mount, mountopts => "allow_other", getattr => \&getattr, open => \&open, read => \&read, release => \&release, threaded => 0 );
...takže jsme zadefinovali odkazy svoje funkce, zadali pár parametrů a definovali hash %files, kde budeme skladovat handlery pro naše soubory. Potřebujeme něco, co bude generovat barcode, vezmeme si GNU barcode a ghostscript, jejichž kombinace nám udělá krásný .png soubor.
sub generate { my $barcode = shift; system "barcode -n -b \"$barcode\" -e code93 -E | gs -q -dSAFER -dBATCH -dNOPAUSE -dEPSCrop -sDEVICE=pnggray -r100x30 -sOutputFile=\"$tmp/$barcode.png\" -"; }
První funkce, na kterou se podíváme, je getattr - v perlu vrací to stejné funkce stat(). Toto je volání, které musí dát nějakou smysluplnou odpověď, jinak se uživatel nedostane k souborům. Navíc musíme odpovědět i pro samotný kořenový adresář. U jednotlivých souborů odpovídáme pouze na .png soubory, nic jiného "nemáme". Trochu problém je v tom, že musíme vracet délku souboru, takže už teď si jej musíme nagenerovat, zatím trochu zbytečně.
sub getattr { my $path = shift; return (-ENOENT()) unless $path; $path =~ s#^/##; $path = '.' unless length($path); if ($path eq ".") { return (0, 0, 0040555, 1, 0, 0, 0, 0, 0, 0, 0, 4096, 0); } elsif ($path =~ /.png$/) { # Nageneruju soubor, potrebujeme znat delku. my $barcode = $path; $barcode =~ s/.png$//; generate($barcode); $barcode =~ s/.png$//; return stat("$tmp/$barcode.png"); } else { return (-ENOENT()); } }
Další funkcí je potom open. Bohužel musíme generovat soubor znovu, ale co už, trvá to jenom okolo desetiny sekundy. Zase povolíme otevřít jenom .png. Výsledný soubor už ale otevřeme a zapamatujeme si filehandle do hashe %files, ať jej neotevíráme furt dokola. Protože jedeme bez threadů, nemusíme se bát, že se něco rozbije, jinak by tady byl potenciál otevřít soubor, který zrovna někdo jiný generuje, ale takto je to OK.
sub open { my $path = shift; return (-ENOENT()) unless $path; $path =~ s#^/##; $path = '.' unless length($path); if ($path =~ /.png$/) { # Nageneruju soubor znovu - kdyby nekdo sel bez getaatr. my $barcode = $path; $barcode =~ s/.png$//; generate ($barcode); open my $fh, "<", "$tmp/$barcode.png" || print "open failed"; binmode $fh; $files{$barcode} = $fh; return 0; } else { return (-ENOENT()); } }
Takže máme otevřeno, teď bude asi uživatel chtít číst. OK, předhodíme mu v zásadě obsah nagenerovaného souboru a mapujeme to 1:1. My už máme soubor otevřený, takže jenom použijeme uloženou filehandle v hashi %files.
sub read { my ($path, $bytes, $offset) = @_; my $barcode = $path; $barcode =~ s#^/##; $barcode =~ s/.png$//; my $buffer; my $status = read ($files{$barcode}, $buffer, $bytes, $offset); if ($status > 0) { return $buffer; } return $status; }
No a nakonec - a to je fikané - nám FUSE řekne, že tento soubor už nikdo nepoužívá. Udělá to tak, že zavolá "release". Tak po sobě uklidíme.
sub release { my $path = shift; my $barcode = $path; $barcode =~ s#^/##; $barcode =~ s/.png$//; close $files{$barcode}; unlink "$tmp/$barcode.png"; return 0; }Toť vše! Barkódy můžeme z filesystému "vykopírovat", ale můžeme je taky klidně použít například jako vstup do jiného programu. Normálně takto generované soubory umístím do jasper layoutu a jasper si spokojeně chroustá a vysype PDF s čitelnými barkódy. Celý kód zde, pokud to někdo chcete použít, dávám tomu BSD licenci.
#!/usr/bin/perl use strict; use warnings; use Fuse; use POSIX qw(ENOENT EISDIR EINVAL O_WRONLY); my ($tmp, $mount) = @ARGV if @ARGV; ($tmp && $mount) or die "Usage: ", $0, " temp_directory mount-point/", "\n"; my %files; sub getattr { my $path = shift; return (-ENOENT()) unless $path; $path =~ s#^/##; $path = '.' unless length($path); if ($path eq ".") { return (0, 0, 0040555, 1, 0, 0, 0, 0, 0, 0, 0, 4096, 0); } elsif ($path =~ /.png$/) { # Nageneruju soubor, potrebujeme znat delku. my $barcode = $path; $barcode =~ s/.png$//; generate($barcode); $barcode =~ s/.png$//; return stat("$tmp/$barcode.png"); } else { return (-ENOENT()); } } sub open { my $path = shift; return (-ENOENT()) unless $path; $path =~ s#^/##; $path = '.' unless length($path); if ($path =~ /.png$/) { # Nageneruju soubor znovu - kdyby nekdo sel bez getaatr. my $barcode = $path; $barcode =~ s/.png$//; generate ($barcode); open my $fh, "<", "$tmp/$barcode.png" || print "open failed"; binmode $fh; $files{$barcode} = $fh; return 0; } else { return (-ENOENT()); } } sub read { my ($path, $bytes, $offset) = @_; my $barcode = $path; $barcode =~ s#^/##; $barcode =~ s/.png$//; my $buffer; my $status = read ($files{$barcode}, $buffer, $bytes, $offset); if ($status > 0) { return $buffer; } return $status; } sub release { my $path = shift; my $barcode = $path; $barcode =~ s#^/##; $barcode =~ s/.png$//; close $files{$barcode}; unlink "$tmp/$barcode.png"; return 0; } sub generate { my $barcode = shift; system "barcode -n -b \"$barcode\" -e code93 -E | gs -q -dSAFER -dBATCH -dNOPAUSE -dEPSCrop -sDEVICE=pnggray -r100x30 -sOutputFile=\"$tmp/$barcode.png\" -"; } fork and exit; Fuse::main( mountpoint => $mount, mountopts => "allow_other", getattr => \&getattr, open => \&open, read => \&read, release => \&release, threaded => 0 );
Tiskni Sdílej:
A ty ukázky prošly obfuskátorem?Ne, je to napsané v perlu :)
(0, 0, 0040555, 1, 0, 0, 0, 0, 0, 0, 0, 4096, 0)
To je ošetřené. V takovém případě to ten barcode obrázek vůbec nenageneruje, soubor v tempu neexistuje a getattr tudíž vrátí -ENOENT() - což je přesně to, jak se to má chovat. Popravdě jsem tam ten check měl, ale pak jsem ho vyhodil, protože nevím, co všechno si do těch kódů nacpou za znaky, takže nechávám na gnu barcode, co z toho vygeneruje a co ne.
Njn, ale stejne bych tam nejaky test radeji dal...
Ono by se to dalo tunit dál, třeba teď to generuje jenom code93, ale daly by se tam jednoduše udělat podadresáře pro code39, code39 extended, code128, dva z pěti atd.
Dobrý nápad . Nechceš založit někde repozitář?