dams blog - Latest Comments

Re: protect a screen session with a password

Slavko Horvat — Thu, 02 May 2019 04:14:33 -0000

thx

Re: protect a screen session with a password

Morgon — Wed, 02 Nov 2016 12:16:36 -0000

Pretty easy. You hit the key combination 'CTRL-A', then the : key, which puts you into command mode. Then just type 'password'.

CTRL-A :password

Re: protect a screen session with a password

Jonathan Annett — Tue, 06 Sep 2016 19:02:06 -0000

no. in fact quite the opposite, if root did that, you would be able to access root's screen sessions using YOUR password, and root would be locked out of screen as root does not have YOUR password, only the encrypted hash of your password. the field in the .screenrc file is a non-reversible hash of whatever you typed in twice, which was hopefully a unique memorable password you have not used anywhere else.

Re: protect a screen session with a password

Asutosh Sahoo — Wed, 15 Jun 2016 08:34:03 -0000

how is one supposed to
press hit "ctrl A :password"
doesn't make any sense at all

Re: Exception::Stringy - Modern exceptions for legacy code

dams — Mon, 28 Dec 2015 16:19:31 -0000

OMG It looks like you didn't read the blog post properly :)

I'm not enforcing the use of Try::Tiny, as I give the alternative of using eval. I personally stopped using Try::Tiny 3 years ago now.

Your example actually illustrates my message : you can't assume that your exception will be an object, you have to take care of "other exception objects and strings", so it's a mess.

For instance, have a look at this code, that throws a nice Exception::Class object, with fields. It ends up as a flat string at the end, because a stupid sig handler added a timestamp. And you lost the field value

use Data::Dumper;
$SIG{__DIE__} = sub { die time() . " " . $_[0] };
use Exception::Class (
'MyException' => { fields => [ 'field1' ] },
);

eval { MyException->throw(field1 => 4, message => "plop") };
if (my $e = MyException->caught) {
say $e->field1;
} elsif ($e = Exception::Class->caught) {
print Dumper($e);
say "it's a string, I can't get the value of field1";
}

There are few other ways to get this kind of results. Exception::Stringy is a pragmatic way of making sure your exceptions don't degrade.

Re: Exception::Stringy - Modern exceptions for legacy code

Dmitry — Mon, 21 Dec 2015 17:32:25 -0000

Only blocks for MyException and AnotherException should follow in the opposite order of course.

Re: Exception::Stringy - Modern exceptions for legacy code

Dmitry — Mon, 21 Dec 2015 17:28:28 -0000

OMG, I don't want to sound very demotivating... But this does not look as a simplification of described existing solutions at all.
All this mess comes from a desire to use Try::Tiny which makes things only worse. Look how much easier everything with Exception::Class and eval.

use Exception::Class (
'MyException',
'AnotherException' => { isa => 'MyException' },
);

eval { ... };
if (my $e = MyException->caught) {
...
}
elsif ($e = AnotherException->caught) {
...
}
elsif ($e = Exception::Class->caught) {
# This last block catch all, other exception objects and strings
}

That's it, clean and simple.

Re: Exception::Stringy - Modern exceptions for legacy code

nmishin — Tue, 24 Nov 2015 04:23:22 -0000

very deep, thanks

Re: Curses Toolkit is on CPAN

Scott Godin — Tue, 17 Nov 2015 14:09:08 -0000

Curses::Toolkit no longer seems to be available on CPAN -- did you abandon the project? what happened? I see it on github, but...

Re: protect a screen session with a password

llearch n'n'daCorna — Tue, 06 Oct 2015 17:57:26 -0000

note that restart isn't totally needed - you can run "^a :password $encrypted_pw" to enable it in flight, as it were.

Re: protect a screen session with a password

LH — Thu, 02 Apr 2015 21:08:34 -0000

I think the root can put the encrypted password in his .screenrc and connect to your screen session. :-)

Re: Migrating to Jekyll

bandarherbal — Tue, 17 Mar 2015 12:27:43 -0000

kunaon atuh kidu migrating to jekill kang?
Obat jantung koroner tradisional and Obat infeksi saluran kemih

Re: Perl Moderne, a new Perl book

Mona Ali — Sun, 15 Jun 2014 23:49:42 -0000

شركة نقل اثاث بالرياض

شركة كشف تسربات المياه
بالرياض

شركة عزل مائى بالرياض

شركات مكافحة حشرات بجدة

عزل خزانات
بالرياض

شركات العزل الحراري بالرياض

عزل مائي في
الرياض

دكتور عماد
جراح تصغير المعدة بالمنصورة

بالون المعدة

تدبيس المعدة

شركة القمة
لابادة الحشرات بالرياض

شركة مكافحة
البق بالرياض

شركة مكافحة
النمل الابيض بالرياض

شركات نقل اثاث الرياض

شركة كشف تسربات بالرياض

نقل اثاث

نقل اثاث بالمدينة

شركة رش مبيدات بالمدينة المنورة

مكافحة حشرات بالمدينة المنورة

نقل اثاث بجدة

كشف تسربات المياة بجدة

شركة تنظيف خزانات بجدة

تنظيف فلل بالدمام

شركة تنظيف بالدمام

شركة تنظيف شقق بالدمام

نقل عفش بالرياض

شركة كشف تسربات بالرياض

تنظيف فلل بالرياض

شركه عزل خزانات بالمدينه المنوره

شركة تنظيف بالقطيف

شركة تنظيف بيارات بالأحساء

nile7seo

nile7

Re: DateTime duration in seconds

dams — Tue, 20 May 2014 17:53:55 -0000

as its name suggests, delta_ms returns a duration expressed in minutes and seconds. Which is useless if you want duration in seconds, as you can't convert minutes (that can be 60, 61 or 62 secs long) in seconds. Read the doc again...

Re: DateTime duration in seconds

Flimm — Tue, 20 May 2014 05:08:43 -0000

What's the difference between this and $dt2->delta_ms?

Re: protect a screen session with a password

thong — Mon, 19 May 2014 12:55:40 -0000

Thanks a bunch for this one. Been looking all over the place for some more specific way to password protect my screen. bookmarking this page!

quần áo xinh

Re: protect a screen session with a password

dams — Fri, 17 Jan 2014 04:12:08 -0000

Well, read the disclaimer in the post. In any case even with the encrypted string, all root can do is brute-force it, to find *a* password that matches, not necessarily *your* password.

Re: protect a screen session with a password

MasterX — Thu, 16 Jan 2014 23:10:24 -0000

and what if roor@host did something like: cat $user/.screenrc ?

it would show:
root@host:~# cat $user/.screenrc
# add this line, with your encrypted password
password VGdGzMopF
root@host:~#

Re: Perl Redis Mailing List

Steven Haryanto — Tue, 12 Nov 2013 21:41:33 -0000

TIL there's a .cat TLD. Cool.

Re: p5-mop

Olivier Mengué (dolmen) — Wed, 18 Sep 2013 09:59:06 -0000

« use Exporter 'import'; » is possible since Exporter 5.57 which is in perl core since perl 5.8.3.

It is a bad practices to 1) still inherit from Exporter 2) use "base.pm" for that task.

I wrote Perl::Critic policies for those (see https://rt.cpan.org/Ticket/..., but Perl::Critic maintainers are really too conservative to merge them.

Re: p5-mop

dams — Tue, 17 Sep 2013 15:07:59 -0000

Hm, there were a typo in the article. I meant to say, "most Perl developers (I think) implement *function exporting* by inheriting from Exporter". So they'll do "use base qw(Exporter) instead of doing "use Exporter qw(import);". Which won't work.

Re: p5-mop

Arthur Axel fREW Schmidt — Tue, 17 Sep 2013 13:54:50 -0000

"... most Perl developers (I think)
implement classes by inheriting from Exporter (that’s also what the
documentation of Exporter recommends)."

Not really. Some modules do it (CGI.pm springs to mind) but it's hardly typical. If you could point out some modern examples that might be helpful.

Re: p5-mop

dams — Tue, 17 Sep 2013 08:08:54 -0000

Yes, good point, but I wanted to git instructions that would work with older versions. cpanm is really awesome. New features from the last development version are really great

Re: p5-mop

oylenshpeegul — Tue, 17 Sep 2013 07:59:53 -0000

Recent versions of cpanm can install from github, so steps 3 and 4 can also be written as

cpanm git://github.com/stevan/p5-...

Re: p5-mop

dams — Tue, 17 Sep 2013 06:12:19 -0000

This post is also on blogs.perl.org, with more comments. See http://blogs.perl.org/users...