| |
| |
| |
|
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
Comments:
<0> eval: return join " :: ", @{$self->{plugins}};
<1> dec: Return: HASH(0x90a64f8) :: HASH(0x90ab29c) :: HASH(0x90ab3ec) :: HASH(0x90ab6a4) :: HASH(0x90ab83c) :: HASH(0x90ab98c) :: HASH(0x90abda0) :: HASH(0x90ac010) :: HASH(0x90ac100) :: HASH(0x90b7ae8)
<0> doh
<0> eval: ref shift @{$self->{plugins}};
<1> dec: Return: HASH
<2> eval: use YAML; print Dump {foo=>[0..5]}
<1> cfedde: Error: Can't locate YAML.pm in @INC (@INC contains:) at (eval 134) line 1. BEGIN failed--compilation aborted at (eval 134) line 1.
<2> eval: use Data::Dumper; print Dumper {foo=>[0..5]}
<1> cfedde: $VAR1 = { 'foo' => [ 0, 1, 2, 3, 4, 5 ] };
<3> eval: +{foo=>[0..5]}
<1> revdiablo: Return: $VAR1 = {'foo' => [0,1,2,3,4,5]};
<0> eval: join ":", keys %{ $self->[plugins][0] };
<1> dec: Error: Not an ARRAY reference at (eval 134) line 1.
<3> dec: [plugins] eh?
<0> hehehe
<0> its 2am :(
<0> eval: join ":", keys %{ $self->{plugins}[0] };
<1> dec: Return: file:syntax:code
<0> (and i've had a few beers :P)
<2> eval: use Data::Dumper; Dumper $self->[plugins][0]
<1> cfedde: Error: Not an ARRAY reference at (eval 134) line 1.
<0> and cfedde copied my mistake ;)
<2> eval: use Data::Dumper; Dumper @{$self->{plugins}}
<1> cfedde: Return: $VAR1 = { 'file' => 'define.pm', 'syntax' => qr/(?-xism:!define (\w+))/, 'code' => sub { "DUMMY" } }; $VAR2 = { 'file' => 'deparse.pm',
<0> define: poop
<0> !define poop
<1> poop 2 ( P ) Pronunciation Key (p p) tr.v. Slang pooped, pooping, poops To cause to become fatigued; tire: Many people stop here, pooped by the short, steep climb (Sierra Club Guides to the National Parks). Phrasal Verb: poop out Slang To quit because of exhaustion: poop out of a race.
<1> ..To decide not to participate, especially at the last moment. [ Origin unknown .] poop 1 ( P ) Pronunciation Key (p p) n. An enclosed superstru
<0> teehee
<0> he said poop
<2> you kids! get off my lawn!
<4> eval: \stat "/"
<1> Roderick: Return: $VAR1 = \8;
<4> eval: [stat "/"]
<1> Roderick: Return: $VAR1 = [770,8831124,16877,3,1002,1002,0,'4096',1141993697,1134170584,1138230628,4096,8];
<5> win 24
<5> blah
<4> eval: "$< | $> | $( | $)"
<1> Roderick:
<2> eval: join " ", ($<, $>, $(, $> )
<1> cfedde:
<2> eval: join " ", ( $<+0, $>+0, $(+0, $)+0 )
<1> cfedde:
<4> It's doing the setuid before the setgid, so the setgid must be failing. It's also doing the $< after the $> so the $< I'd think the $< would be failing too.
<4> But it'd choke if $< wasn't right, so I can't explain that.
<2> eval: join " ", ( $i++, $i++, $i++ )
<1> cfedde: Return: 0 1 2
<6> eval: $n = "m"; $t = "r"; $h = " "; $y = "-"; $p = "f"; $a = "*"; $z = join $t, $n, $h, $y, $t, $p, $a; print $z;
<1> Cctoide: mr r-rrrfr*Return: 1
<6> eval: $n = "m"; $t = "r"; $h = " "; $y = "-"; $p = "f"; $a = "*"; $z = join $t, $n, $h, $y, $t, $p, $h, $a; print $z;
<1> Cctoide: mr r-rrrfr r*Return: 1
<4> eval: $old = getrlimit RLIMIT_CPU; setrlimit RLIMIT_CPU, 23, 42; $new = setrlimit RLIMIT_CPU; "$old $new"
<1> Roderick: Error: Can't locate object method "getrlimit" via package "RLIMIT_CPU" (perhaps you forgot to load "RLIMIT_CPU"?) at (eval 134) line 1.
<7> when I have script that expects STDIN to end.. how do I end it when I am running it from the terminal?
<4> eval: use BSD::Resource; $old = getrlimit RLIMIT_CPU; setrlimit RLIMIT_CPU, 23, 42; $new = setrlimit RLIMIT_CPU; "$old $new"
<1> Roderick: Error: Not enough arguments for BSD::Resource::setrlimit at (eval 134) line 1, at EOF
<4> daMaestro: Type control-D on an empty line.
<7> thanks
<7> awesome
<4> What's wrong with that setrlimit() call?
<4> Oh, oops
<4> eval: use BSD::Resource; $old = getrlimit RLIMIT_CPU; setrlimit RLIMIT_CPU, 23, 42; $new = getrlimit RLIMIT_CPU; "$old $new"
<1> Roderick: Error: Can't locate auto/BSD/Resource/getrlimit.al in @INC (@INC contains:) at (eval 134) line 1
<4> eval: use BSD::Resource; setrlimit RLIMIT_CPU, 23, 42
<1> Roderick: Return:
<4> Okay, I'll stop messing around now. But if I were running this bot on my machine, I'd be concerned.
<8> Roderick: you can mess around in buubot iirc
<8> #buubot that is
<4> Right, thanks
<8> i would say that if you find any problems, just report them to buu
<0> No, don't!
<0> exploit them!
<4> Aye
<8> dec: well... report them after exploiting them of course... i thought that was implied :]
<0> =)
<9> GumbyBRAIN, exploit
<10> uber_spaced: To be sure, are led with a rather enlightening chat once with extent and novelty of beauty, as to render the exploit off channel.
<11> Nevermind.
<5> GumbyBRAIN: beloved ferrets
<10> BinGOs: I am going to interpret everything i have to do, is allow users to enter at once that, in hop-frog (this was the ferrets.
<12> GumbyBRAIN: huh?
<10> thinkinginbinary: cpan huh ?
<13> any FastCGI users ?
<13> How to make FastCGI app reload automatically on source change ?
<14> kill it
<14> The server should restart it next requext
<14> If you want to be nice about it, install a SIGINT handler that just sets a flag, that the main request loop checks
<14> This would ensure that if it was processing a request at the time, it'll finish that off, then exit.
<13> do you recomment mod_fastcgi or mod_fcgid for apache2 ?
<13> thanks a lot for responding
<14> Heh.. I don't know apache; I don't use it... can't comment.
<13> well
<13> how do I send SIGINT to it ?
<14> pkill -INT nameofprocess
<14> kill -INT pid
<14> (if you know the pid)
<13> yeah, how to get the pid
<4> Are you asking how to have the program automatically restart if it detects a change has been made, or how to restart the program yourself after you make a change?
<14> pgrep
<13> you mean send sigint to fastcgi server right ?
<13> FastCgiConfig -autoUpdate should do the job
<13> according to docs
<15> hi all
<15> I am quite new in perl ! I've installed it under IIS and test it with a simple example! I would Like to know how could I launch from PHP or from IIS a file with pl extension ? Perl script ?
<13> LeoNerd: any doc/example on proper installing such handler
<13> ?
<14> $SIG{INT} = sub { $caught_sig_int = 1 };
<14> Then just test that in your main loop
<13> at the end of main loop right ?
<13> before last }
<14> while( !$caught_sig_int ) { my $newrequest = wait_on_request(); process( $newrequest ); ... }
<14> Something like that
<15> Wbere should I ask how and if pl Perl files could be used or launched under IIS ? I've found http://www.kevlindev.com/utilities/ SVG into PDF ! I have a php site which create SVG's dynamically and I would like to convert them into PDF ! How to use that pl file which I found it please ?
<13> thanks, should be it
<16> hai
<13> LeoNerd: imagine server awaiting for connections.. it is waiting in wait_on_request ..
<13> how do I restart it ?
<14> Well, syscalls get interrupted on signals
<13> well, the signal will set $caught_sig_int
<14> E.g. if you called accept(), then it returns undef with $! = EINTR
<14> You can then check the value of $caught_sig_int at that point
<13> so I put $SIG{INT} = sub { $caught_sig_int = 1 }; before while()
<17> "chaosboss" at 200.217.63.151 pasted "RegEx problem" (17 lines, 398B) at http://sial.org/pbot/16246
<13> and first statement in while will check $caught_sig_int
<13> right ?
<13> I have while ( !$caught_sig_int && FCGI::accept() >= 0 ) {
<14> Oh, that'll likely do it on its own actually
<5> GumbyBRAIN: coins ?
<14> If accept gets interrupted with SIGINT, it might return something below 0
<14> Check docs
<16> I love you guys, but I better get to cl***
<11> Wednesday, the Grizzlies announced their 2006 offering: "Baseball's Best Burger." It's topped with sharp cheddar cheese and bacon and served on ... wait for it ... a Krispy Kreme glazed donut.
<18> hi. is this the correct regex for multiple lines comment? [/\*] .* [\*/]
<15> what is a syntax to use an external pl file please ?
<5> perldoc -f require
<19> The perldoc for require - is at http://perldoc.perl.org/functions/require.html
<15> thx BinGOs
<11> BinGOs: ENABLER!
<11> ace_me: What BinGOs neglected to mention is that require is not common.
<15> any HTML page as example for REQUIRE ?
<10> Gumbybrain is a gumbybrain ?
<20> what happens when one performs a require Yaakov; ...?
<11> ace_me: Because most people don't "use an external pl file", rather they use a module or some other mechanism--depending on the goal.
<5> one should use Yaakov not require.
<11> abuse BinGOs;
<5> that would be an ecumenical matter!
<15> did you look at thet pl file on http://www.kevlindev.com/utilities/ Yaakov ?
<15> http://www.kevlindev.com/utilities/svg_into_pdf/svg_into_pdf.zip
<11> Why do I want to look at that?
Return to
#perl
or
Go to some related
logs:
#asm
#math
nvidia-vedio driver
install rhes on dell 2850
#ubuntu
#perl
what is xen diamon
bofh-bash
#centos
mathxl crack
|
|