My Recent Pastes (124 and counting)

All Pasties (over 124 and counting)

Pages: 1 3 4 5 … 9

Below are summaries of the 15 most recent pasties by Scott.

October 01, 2007
9:39PM EDT by Scott

View more (9 lines) 

1
2
3
4
5

        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 more (19 lines) 

1
2
3
4
5

                var_dump(mysql_fetch_array($result));

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

October 01, 2007
5:55AM EDT by Scott

View more (21 lines) 

1
2
3
4
5

                $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 more (23 lines) 

1
2
3
4
5

                $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 more (13 lines) 

1
2
3
4
5

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 more (83 lines) 

1
2
3
4
5

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

September 18, 2007
4:38AM EDT by Scott

View more (83 lines) 

1
2
3
4
5

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

September 18, 2007
4:01AM EDT by Scott

View more (91 lines) 

1
2
3
4
5

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

September 18, 2007
3:28AM EDT by Scott

View more (54 lines) 

1
2
3
4
5

    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 more (75 lines) 

1
2
3
4
5

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

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

September 18, 2007
2:47AM EDT by Scott

View more (81 lines) 

1
2
3
4
5

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

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

September 18, 2007
2:46AM EDT by Scott

View more (81 lines) 

1
2
3
4
5

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

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

September 18, 2007
2:44AM EDT by Scott

View more (79 lines) 

1
2
3
4
5

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

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

September 17, 2007
11:12PM EDT by Scott

View more (37 lines) 

1
2
3
4
5

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

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

September 17, 2007
11:07PM EDT by Scott

View more (28 lines) 

1
2
3
4
5

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

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

Next page