My Recent Pastes (124 and counting)

Pastes by Scott (124 and counting)

Pages:

Below are the 15 most recent pasties by Scott.

October 01, 2007
9:39PM EDT by Scott

View all 9 lines 

        if (isset($_REQUEST['days']) && is_numeric(str_replace(',', '', $_REQUEST['days']))) {
        
                $days = $_REQUEST['days'];
        
                $params .= "&days=$days";

October 01, 2007
5:55AM EDT by Scott

View all 19 lines 

                var_dump(mysql_fetch_array($result));

                while($result = mysql_fetch_array($result)) {                        
                        
                        $phonenum = $result[0];

October 01, 2007
5:55AM EDT by Scott

View all 21 lines 

                $query = "SELECT phone, pinAccountId FROM `orders` WHERE pinAccountId = $pinAccountId";

                $result = mysql_query($query, $switch);

                while($result = mysql_fetch_array($result)) {

October 01, 2007
5:34AM EDT by Scott

View all 23 lines 

                $query = "SELECT phone, pinAccountId FROM `orders` WHERE pinAccountId = $pinAccountId";

                print $query;

                $result = mysql_query($query, $switch);

September 19, 2007
1:33AM EDT by Scott

View all 13 lines 

sub irc_372 {
        my ($kernel,$sender) = @_[KERNEL,SENDER];

        # Get the component's object at any time by accessing the heap of
        # the SENDER

September 18, 2007
4:42AM EDT by Scott

View all 83 lines 

#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use IO::Socket;

September 18, 2007
4:38AM EDT by Scott

View all 83 lines 

#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use IO::Socket;

September 18, 2007
4:01AM EDT by Scott

View all 91 lines 

#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use IO::Socket;

September 18, 2007
3:28AM EDT by Scott

View all 54 lines 

    while (<$conn>) {
        print $conn "PONG $1\r\n" if /^PING (.*)$/;
        if ($b == 0 && /376/) {
            print $conn "JOIN $chan\r\n";
                        $b = 1;

September 18, 2007
3:08AM EDT by Scott

View all 75 lines 

#!/usr/bin/perl -w
use strict;
use IO::Socket;

        my $server = shift || 'irc.rizon.net';

September 18, 2007
2:47AM EDT by Scott

View all 81 lines 

#!/usr/bin/perl -w
use strict;
use IO::Socket;

        my $server = shift || 'irc.rizon.net';

September 18, 2007
2:46AM EDT by Scott

View all 81 lines 

#!/usr/bin/perl -w
use strict;
use IO::Socket;

        my $server = shift || 'irc.rizon.net';

September 18, 2007
2:44AM EDT by Scott

View all 79 lines 

#!/usr/bin/perl -w
use strict;
use IO::Socket;

        my $server = shift || 'irc.rizon.net';

September 17, 2007
11:12PM EDT by Scott

View all 37 lines 

#!/usr/bin/perl -w
use strict;
use IO::Socket;

        my $server = shift || 'irc.rizon.net';

September 17, 2007
11:07PM EDT by Scott

View all 28 lines 

#!/usr/bin/perl -w
use strict;
use IO::Socket;

        my $server = shift || 'irc.rizon.net';

Next page