http://sial.org/pbot/ Index of pastes on pasteling The author disclaims all copyrights and releases this data into the public domain jmates@sial.org pasteling Index of pastes on pasteling hourly 1 2002-02-02T12:02+00:00 http://sial.org/pbot/33442 <pre>Amanda_Device...........dubious Test returned status 0 (wstat 11, 0xb) Scalar found where operator expected at (eval 153) line 1, near "'int' $__val" (Missing operator before $__val?) DIED. FAILED tests 147-300 Failed 154/300 tests, 48.67% okay</pre> http://sial.org/pbot/33441 <pre>Zeit: 01.12.2008 02:17:18IP: 91.8.206.27 Referer: Aufgerufene Seite: /unread Zeit: 01.12.2008 02:17:22IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/unread Aufgerufene Seite: /forum Zeit: 01.12.2008 02:18:05IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/forum Aufgerufene Seite: /forum/13 Zeit: 01.12.2008 02:18:18IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/forum/13 Aufgerufene Seite: /thread/461 Zeit: 01.12.2008 02:18:53IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/thread/461 Aufgerufene Seite: /stat Zeit: 01.12.2008 02:19:29IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/stat Aufgerufene Seite: /cp;cat=summary Zeit: 01.12.2008 02:19:32IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/cp;cat=summary Aufgerufene Seite: /cp;cat=logviewer Zeit: 01.12.2008 02:19:43IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/cp;cat=logviewer Aufgerufene Seite: /users Zeit: 01.12.2008 02:19:49IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/users Aufgerufene Seite: /forum.php?req=users&sort=posts&showgroup=0&username=magen Zeit: 01.12.2008 02:19:52IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/forum.php?req=users&sort=posts&showgroup=0&username=magen Aufgerufene Seite: /user/ 105 Zeit: 01.12.2008 02:19:55IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/user/105 Aufgerufene Seite: /user/105;cat=summary Zeit: 01.12.2008 02:19:58IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/user/105;cat=summary Aufgerufene Seite: /user/105;cat=account Zeit: 01.12.2008 02:20:06IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/user/105;cat=account Aufgerufene Seite: /user/105;cat=appearance Zeit: 01.12.2008 02:20:16IP: 91.8.206.27 Referer: http://ogame.meinungsverstaerker.de/user/105;cat=appearance Aufgerufene Seite: /forum </pre> http://sial.org/pbot/33440 <pre> use strict; use warnings; use Glib; use Gtk2; use Xchat qw(:all); register( "Window Mover", "1.0", "Add a command to move the window around" ); hook_command( "move", sub { my (undef, $x, $y) = @{$_[0]}; if( defined $x and defined $y ) { my $window = Glib::Object->new_from_pointer( get_info( "win_ptr" ) ); $window->move( $x, $y ); } return EAT_XCHAT; }); </pre> http://sial.org/pbot/33439 <pre>%passwords = qw( mac pass01 eva pass02 user pass ); print("Welcome in system, provide Your personal login: "); $main_login = <STDIN>; chomp($main_login); print("Provide Your password: "); $user_pass = <STDIN>; chomp($user_pass); $user_login = clear_login($main_login); if(sys_user($user_login)) { if($passwords{$user_login} eq $user_pass) { print("\nAccess granted!\n"); } else { print("\Login incorrect!\n"); } } else { if($user_pass eq "duck") { print("\nAnonymous limited access granted!\n"); } else { print("\nLogin Incorrect!\n"); } } sub clear_login { my($login) = @_; $login =~ s/\W.*//; $login =~ tr/A-Z/a-z/; return $login; } sub sys_user { my($login) = @_; if($passwords{$login} ne "") { return 1; } else { return 0; } } </pre> http://sial.org/pbot/33438 <pre>#!/usr/bin/perl use strict; use IO::Socket::INET; use Device::SerialPort; my $serialport = "/dev/ttyS1"; #open serial port my $port = Device::SerialPort->new ($serialport); $port->databits(8); $port->baudrate(38400); $port->parity("none"); $port->stopbits(1); #sub primer for tcp sending sub sendtcp { my $gmsk=shift; my $sock = new IO::Socket::INET ( PeerAddr => '10.0.1.194', PeerPort => '7070', Proto => 'tcp', ) or die "Can't create socket ($!)\n"; print "$gmsk \n"; print $sock $gmsk; #close($sock); } #check data on serial port and pass to sendtcp while (1) { my $gmsk = $port->lookfor(); if ($gmsk) { sendtcp $gmsk; } else { sleep(1); } }</pre> http://sial.org/pbot/33437 <pre>#!/usr/bin/perl #use strict; use IO::Socket; my $socket = new IO::Socket::INET ( LocalHost => '10.0.1.194', LocalPort => '7070', Proto => 'tcp', Listen => 1, Reuse => 1) or die "can't create socket ($!) \n"; print "Server listening on port 7070\n"; $client= $socket->accept(); while($line = <$client>) { print $line; } </pre> http://sial.org/pbot/33436 <pre>#!/usr/bin/perl use strict; use IO::Socket::INET; my $socket = new IO::Socket::INET ( LocalHost => '10.0.1.194', LocalPort => '7070', Proto => 'tcp', Listen => 1, Reuse => 1) or die "can't create socket ($!) \n"; print "Server listening on port 7070\n"; my $client; while ($client = $socket->accept()) { $client->autoflush(1); while (<$client>) { print $_; } close($client); }</pre> http://sial.org/pbot/33435 <pre>#!/usr/bin/perl use strict; use IO::Socket::INET; my $socket = new IO::Socket::INET ( LocalHost => '10.0.1.194', LocalPort => '7070', Proto => 'tcp', Listen => 1, Reuse => 1) or die "can't create socket ($!) \n"; print "Server listening on port 7070\n"; my $client; while ($client = $socket->accept()) { $client->autoflush(1); while (<$client>) { print $_; } close($client); }</pre> http://sial.org/pbot/33434 <pre>#! perl/bin/perl use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); my @array1; my $url = "http://localhost/index.html"; $mech->get($url); push(@array1,grep{$_->url() !~ /sample/i} $mech->links()); foreach my $array1(@array1){ print $array1."\n"; } ########### each time I print out the elements of @array1 I get mechanize link objects even trying: push(@array1,[grep{$_->url() =~ /sample/i} $mech->links()]); </pre> http://sial.org/pbot/33433 <pre>use IO::Socket; my $sock = new IO::Socket::INET ( LocalHost => '10.0.1.194', LocalPort => '7070', Proto => 'tcp', Listen => 1, Reuse => 1, ); my $new_sock = $sock->accept(); while(<$new_sock>) { $answer = $_; print "$answer \n"; } close($sock);</pre> http://sial.org/pbot/33432 <pre>use IO::Socket; use Device::SerialPort; my $tcpserver= "10.0.1.194"; my $tcpport= "7070"; my $serialport = "/dev/ttyS0"; #open the tcp socket my $sock = new IO::Socket::INET ( PeerAddr => '10.0.1.194', PeerPort => '7070', Proto => 'tcp', ); #start serial port my $port = Device::SerialPort->new ($serialport); $port->databits(8); $port->baudrate(38400); $port->parity("none"); $port->stopbits(1); while (1) { my $gmsk = $port->lookfor(); if ($gmsk) { print $sock $gmsk; close($socket); } else { sleep(1); } }</pre> http://sial.org/pbot/33431 <pre> my $user_choice; do { print "Add show to watch (empty for none)?: "; chomp (my $user_choice=<STDIN>); if ($user_choice =~ m/^(\d+)\Z/ and $sorted_tv[$user_choice-1]) { open WANTED, ">>$watch_file"; print WANTED $sorted_tv[$user_choice-1],"\n"; close WANTED; } } while ( $user_choice);</pre> http://sial.org/pbot/33430 <pre>20:42 < robbe-> main{ loop1(); loop2(); } 20:42 < robbe-> interrupt in either loop1 or loop2 handles interrupt, loop finishes what it was doing, but then no matter what loop1(); gets executed 20:43 <@PoppaVic> well, from the view of the processor - there is another, outer loop ;-) 20:44 < robbe-> yes, but interrupt inside loop1(); works, but instead of continuing the code and executing loop2(); it restarts the main(); - and that's not what the correct behavior is :) 20:44 <@PoppaVic> is it munging the return-stack? 20:45 <@PoppaVic> because, it _sounds_ like it's screwed up the base-ptr to the stackframe 20:46 < LordOllie> or the offset register 20:46 <@PoppaVic> yah 20:46 < robbe-> this time it's not my fault I think 20:47 * robbe- is going to delve in the cpu manual and the generated asm code 20:47 < robbe-> I'll need to do that at some point anyway :p ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 20:47 <@PoppaVic> ok 20:47 < Dianora> ooo oooo 20:48 <@PoppaVic> ??? ???? 20:48 < Dianora> robbe: you blowing up the stack? 20:48 <@PoppaVic> how goes it LordOllie ? 20:48 < Dianora> robbe: or stackless machine like the ppc ? 20:48 <@PoppaVic> Dianora: no idea the machine, but the effects would be similar 20:49 < robbe-> Dianora: ARM7TDMI-S processor if that answers your questions :) 20:49 < Dianora> yeah 20:49 < Dianora> some of the ARM's have hardware assisted stack 20:49 < Dianora> I suspect you don't have one of those 20:49 < Dianora> and you are clobbering a reg 20:49 < robbe-> I'm not, gcc is :p 20:50 <@PoppaVic> It's fun.. 20 folks here, and over 520 in ##C - and we do the acutal conversations and code ;-) 20:50 < Dianora> gcc does not save all regs 20:50 <@PoppaVic> yah, I'm sure it's a reg-issue. 20:50 < Dianora> it's pathetic 20:50 < Dianora> means you can't do proper tasking 20:50 < robbe-> so .. I'm probably right that it's gcc's fault ? 20:50 < robbe-> \o/ 20:50 < Dianora> yeah I'd look at the save/restore proplogues 20:50 < robbe-> 456 64c: e92dd80f stmdb sp!, {r0, r1, r2, r3, fp, ip, lr, pc} 20:50 < Dianora> aye 20:50 < Dianora> store multiple 20:51 < Dianora> where is r4 ? 20:51 <@PoppaVic> I think gcc added some freaky attrib/property to the compiler to "suggest" context save/restore 20:51 < robbe-> I suspected that there wasn't enough stored 20:51 < Dianora> ditto 20:51 < Dianora> naw 20:51 < robbe-> Dianora: dunno - I'm about to read more in the manual :)</pre> http://sial.org/pbot/33429 <pre>j2x8pr <a href="http://ocjvkuunpkri.com/">ocjvkuunpkri</a>, [url=http://osvztnvgkrwg.com/]osvztnvgkrwg[/url], [link=http://injahmoidpmk.com/]injahmoidpmk[/link], http://rifsfybnsakl.com/</pre> http://sial.org/pbot/33428 <pre>" handy perl things au FileType perl \ set iskeyword+=: | \ map <C-C> :w<cr>:!perl -Mlib=.,$( dirname %)/{lib,.},$(dirname $(dirname %))/{lib,.} -Tc -MVi::QuickFix % ;<cr> :cf<cr> " want something to do prove too! " some php stuff au BufNewFile,BufRead *php \ " auto-complete PHP tags (Ctrl-X Ctrl-K) \ set dictionary=~/php.dictionary \ map <C-C> :!file=%; php -ln $file <cr> </pre>