beta testing

robin

unread,

Mar 6, 2005, 12:42:41 AM3/6/05

to

if anyone is interested in beta testing this,
www.infusedlight.net/cgi-bin/bbs.pl - please report bugs with the link
at the bottom of the bulletin board. Later,
-Robin

A. Sinan Unur

unread,

Mar 6, 2005, 5:29:18 PM3/6/05

to

"robin" <ro...@infusedlight.net> wrote in news:1110087761.522984.103340
@f14g2000cwb.googlegroups.com:

> if anyone is interested in beta testing this,

Robin, you could try to learn Perl in your free time, rather than coming
up with crap like this.

> www.infusedlight.net/cgi-bin/bbs.pl - please report bugs

Well, the whole script is one colossal bug.

I especially found:

$key = "$userparam$string$about$string$nick$string$aim$string$icq$string
$hobbies$string$favoritethings$string$webtitle$string${websiteaddress}
private\n" if $privateparam;

No wonder you have spelling errors sprinkled at various points in the
scripts. Who has the ocular dexterity to decipher this?

Sinan.

A. Sinan Unur

unread,

Mar 6, 2005, 5:44:42 PM3/6/05

to

"A. Sinan Unur" <1u...@llenroc.ude.invalid> wrote in
news:Xns9611B1E838F1...@127.0.0.1:

> "robin" <ro...@infusedlight.net> wrote in
news:1110087761.522984.103340
> @f14g2000cwb.googlegroups.com:

...

> Well, the whole script is one colossal bug.
>
> I especially found:
>
> $key =

...

I am sorry, I did a partial paste. Here is the interesting bit from
bbs.pl:

if ($psplit2[0] eq $userparam)
{
$key = "$userparam$string$about$string$nick$string$aim$string$icq
$string$hobbies$string$favoritethings$string$webtitle$string

${websiteaddress}private\n" if $privateparam;
$key="$userparam$string$about$string$nick$string$aim$string$icq
$string$hobbies$string$favoritethings$string$webtitle$string

${websiteaddress}\n" if ! $privateparam;
}

Please do not attempt to explain this as the explanation might be even
more painful than looking at the actual code.

No wonder you have spelling errors sprinkled at various points in the
scripts. Who has the ocular dexterity to decipher this?

A couple of recommendations:

* Look into the CGI::Application module (or any of its descendants).

* For my elementary needs, I have found CGI::Application coupled with
CGI::Application::Session, Class::DBI (w/ sqlite) and HTML::Template to
be a wonderful combination.

* And, I cannot stress this enough, please do consider thinking before
programming.

* Do read the documentation for the modules you are using.

* Your code is sprinkled with crap like this:

my $hobbies = param ('fivehobbies');
$hobbies =~ s/>/&gt;/gm;
$hobbies =~ s/</&lt;/gm;
$hobbies =~ s/>/>/mg;
$hobbies =~ s/</</mg;

WTF? Use the HTML::Entities module:

#! /usr/bin/perl

use CGI;
use HTML::Entities;

my $cgi = CGI->new;

if(defined (my $value = $cgi->param('value'))) {
print $cgi->header, encode_entities($value);
} else {
print $cgi->header, <<HTML
<html>
<body>
<form>
<input type="text" size="20" name="value">
<input type="submit">
</form>
</body>
</html>
HTML
;
}
__END__

Sinan.

robin

unread,

Mar 9, 2005, 6:51:02 PM3/9/05

to

please do not hack my script. thanks.
-robin

robin

unread,

Mar 9, 2005, 6:53:49 PM3/9/05

to

more precisely, where did you get this code?

Martin Kissner

unread,

Mar 9, 2005, 7:36:56 PM3/9/05

to

robin wrote :

> more precisely, where did you get this code?

other question:
where did you shred your brain?

--
perl -e '$|=1;&p(7.74.117.115.116.32);&s();&p(97.110.111);&p(116.104.101
.114);&s;&p(32.112.101.114.108);&s();&p(32.104.97.99.107.101.114.10);sub
s{sleep 1};sub p(){print "@_"}'

Fabian Pilkowski

unread,

Mar 9, 2005, 7:47:55 PM3/9/05

to

* robin wrote:
>
> more precisely, where did you get this code?

Eh, everyone could download it. Or why you placed a download link on
your website?

http://www.infusedlight.net/

regards,
fabian

A. Sinan Unur

unread,

Mar 9, 2005, 8:37:50 PM3/9/05

to

"robin" <ro...@infusedlight.net> wrote in news:1110412262.716548.178960
@l41g2000cwc.googlegroups.com:

> please do not hack my script. thanks.
> -robin

It is not everyday that I meet someone with IQ lower than the room
temperature.

If you don't want people to see your code (perfectly understandable given
the way you code), then you should not place a public link to download the
source code.

If you don't want people to evaluate your code, then you shouldn't ask
people to test it.

Sinan.

robin

unread,

Mar 11, 2005, 4:19:24 PM3/11/05

to

sorry, I forgot about the download link...hehehe... I'm an idiot.-robin

Sherm Pendley

unread,

Mar 11, 2005, 5:30:33 PM3/11/05

to

robin wrote:

> I'm an idiot.-robin

Congrats - you've finally said something we can all agree with.

sherm--

--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org

robin

unread,

Mar 12, 2005, 4:53:22 AM3/12/05

to

yeah?

Jeff

unread,

Mar 12, 2005, 11:05:45 AM3/12/05

to

robin wrote:
> yeah?

Robin, do you ever worry some potential 'client' of yours may search
Usenet for postings form you to learn more about you before hiring you?

Maybe you should.

David H. Adler

unread,

Mar 12, 2005, 4:01:40 PM3/12/05

to

On 2005-03-11, Sherm Pendley <spam...@dot-app.org> wrote:
> robin wrote:
>
>> I'm an idiot.-robin
>
> Congrats - you've finally said something we can all agree with.

I knew if I restrained myself, someone would pick up the slack... :-)

dha

--
David H. Adler - <d...@panix.com> - http://www.panix.com/~dha/
Jackdaws love my big sphinx of quartz.
Phillip Newton's replacement for The quick brown fox jumps over
the lazy dog.