[17801] in Perl-Users-Digest
Perl-Users Digest, Issue: 5221 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 4 13:36:13 2001
Date: Thu, 4 Jan 2001 10:35:41 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <978633341-v9-i5221@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 4 Jan 2001 Volume: 9 Number: 5221
Today's topics:
/\/Password Redirect Script Nightmare/\/\ abme75@my-deja.com
Re: /\/Password Redirect Script Nightmare/\/\ (David H. Adler)
Re: /\/Password Redirect Script Nightmare/\/\ abme75@my-deja.com
Re: /\/Password Redirect Script Nightmare/\/\ <uri@sysarch.com>
Re: /\/Password Redirect Script Nightmare/\/\ abme75@my-deja.com
Re: /\/Password Redirect Script Nightmare/\/\ <uri@sysarch.com>
Re: /\/Password Redirect Script Nightmare/\/\ (Helgi Briem)
Re: /\/Password Redirect Script Nightmare/\/\ (Tad McClellan)
2>/dev/null Ludicrous attitudes, 1> a question remains <nospam@nospam.com>
Re: 2>/dev/null Ludicrous attitudes, 1> a question rema (Garry Williams)
Re: 2>/dev/null Ludicrous attitudes, 1> a question rema <nospam@nospam.com>
Re: 2>/dev/null Ludicrous attitudes, 1> a question rema <adam.walton@btconnect.com>
Re: 2>/dev/null Ludicrous attitudes, 1> a question rema (Tad McClellan)
Re: 2>/dev/null Ludicrous attitudes, 1> a question rema <joe+usenet@sunstarsys.com>
Re: 2>/dev/null Ludicrous attitudes, 1> a question rema (Abigail)
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 03 Jan 2001 22:23:22 GMT
From: abme75@my-deja.com
Subject: /\/Password Redirect Script Nightmare/\/\
Message-Id: <9308of$svo$1@nnrp1.deja.com>
I have played with this free script for 2 weeks and got it to at least
login admin and users. But now after the user logs in it will not
redirect find the URL to the file and I have set up everything right.
Is this script just to old? If you have a better script for free tell
me please.
There are 8 files to this program.
login.html - main page calls the form.html (frame set optional)
form.html - the login form for your users.
setup.pl - the setup file for the scripts
login.pl - form processing of the login.htm and redirection to new
address
adduser.pl - adds new users
removeuser.pl - adds new users
password.log - stores usernames, passwords, and addresses
main.log - Logs username and time/date when they loged in in "csv"
format
I think the problem is in this script. Just a guess because all the
others work fine and login.pl is the file that redirects.
The operating system is: UNIX Perl Version 5.00503
SERVER_SOFTWARE Apache/1.3.14 (Unix) PHP/4.0.0
GATEWAY_INTERFACE CGI/1.1
SERVER_PROTOCOL HTTP/1.1
REQUEST_METHOD GET
login.pl - form processing of the login.htm and redirection to new
address.
#!/usr/local/bin/perl
###########################################################
# User Password Redirect Script #
# Script name - login.cgi #
# Written by Ranson Johnson - Email ranson@infoave.net #
# Version 1.2 #
# Copyrite 1997 Ranson Johnson all right s reserved #
###########################################################
### *** chmod this file to 755 *** ###
### *** You may need to enter the path for the setup.pl below *** ###
BEGIN {
eval {
# Get the configuration file location for: UNIX /
($0 =~ m,(.*)/[/]+,) && unshift (@INC, "$1");
# Get the configuration file location for: Windows \
($0 =~ m,(.*)\\[\\]+,) && unshift (@INC, "$1");
# If you have problems with the path to the ez2-config.pl
# (configuration file) - put the complete path to the file
# in the require statement below.
require "setup.pl";
};
if ($@) {
print "Content-type: text/plain\n\n";
if ($! =~ /No such file/i) {
print "Error Finding Configuration File: \n\n";
print "$@\n";
print "Make sure the configuration file is in this
directory.\n";
print "You may need to set the path in the require
statement.";
}else{
print "Error in Configuration File:\n\n";
print "System Error: \n$@ \n";
print "Common Errors are:\n";
print "Missing a semicolon at the end of a line ( ; )
\n";
print "Missing a quote surrounding a value for a
variable.\n";
print "Could be a single quote ( ' ) or double quote(
\" )\n\n";
print "An \@ in an email address needs to be
\"escaped\"\n";
print "If double quotes are used for an email
address\n";
print "you will need to \"escape\" the \@ -
ray\\\@ray.com\n\n";
print "The same is true if you want to print any
special \n";
print "charactor, you will need to \"escape\" the
special \n";
print "charactor, with a \\ backslash\n";
}
exit;
}
}
### *** BEGIN PROGRAM CODE *** ###
### *** DON'T CHANGE ANYTHING BELOW *** ###
print "Content-type: text/html\n\n";
### *** :) *** ###
&Get_the_Date;
&parse;
&form_error("You must enter a user name") unless $FORM
{'username'};
&form_error("You must enter a password") unless $FORM
{'password'};
# Lets open the password file and read in all the usernames and
passwords
open (PASSWORD, "$passwordFile") || &open_error("$passwordFile");
@lines = <PASSWORD>;
close (PASSWORD);
foreach $line (@lines)
{
#chop $line;
($username, $realpassword, $Server, $Page) = split(/\+/,$line);
$pwordlist{$username}=$realpassword;
$Serverlist{$username}=$Server;
$Pagelist{$username}=$Page;
}
# If we can't find the username in the file, deny access to the user
if (!$pwordlist{$FORM{'username'}}){ &form_error("We did not find your
user name in our database.<BR>Please check your user name."); }
# If the user name and password does not match, deny access to the user
elsif ($FORM{'password'} ne $pwordlist{$FORM{'username'}} ) {&form_error
("The password you entered does not match the user name in our
database.<BR>Please check your password."); }
# Now the user is now cleared to proceed
else{
open (MAINLOG, ">>$mainlog_path") || &open_error("$mainlog_path");
print MAINLOG "\"$FORM{username}\",\"$date $time\"\n";
close (MAINLOG);
$server = "$Serverlist{$FORM{'username'}}";
$document = "/$Pagelist{$FORM{'username'}}";
&GetWebPage();
} # End of cleared to proceed
$My_javascript = qq(<script language="JavaScript">
<!--//
// This Script Disables View Source
var nav4 = window.Event ? true : false;
function msg(){alert('An Error Has Occured');}
function processClicks(e){
if (nav4) {
if (e.which == 3) {
msg();
return false; }
}else{
if (event.button ==2) {
msg();
return false; }
}
}
if (document.captureEvents)
document.captureEvents(Event.MOUSEDOWN);
document.onmousedown = processClicks;
//-->
</script>);
### *** :) *** ###
print "<! Password Redirect by Ranson's Scripts
http://www.rlaj.com/scripts >\n\n";
print "\n" x 30;
print "<! Password Redirect by Ranson's Scripts
http://www.rlaj.com/scripts >\n\n";
print "\n" x 160;
foreach $returned_line (@returned) {
$returned_line =~ s/HTTP.*<HTML>/<HTML>/i;
$returned_line =~ s/~R~/\n/g;
$returned_line =~ s/<HEAD>/<HEAD>\n$My_javascript\n/i;
print "$returned_line";
}
### *** :) *** ###
sub open_error {
local ($errorname) = @_;
$system_error = $!;
print <<"Close~//~Print";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<title>Open Error</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
</HEAD>
<BODY BGCOLOR="FFFFFF">
<P>
<H1>Oops!</H1>
<P>
<FONT SIZE=5><B>$errorname</B>.</FONT>
<P>
<HR>
<P>
<B><FONT COLOR=FF0000>WebMaster</FONT></B>
<BR>
Please check the path in the configuration section.
<BR>
On Unix Systems: Please check the file/directory permissions
<P>
<B>System Error is: $system_error</B>
</BODY>
</HEAD>
Close~//~Print
exit;
} # End sub open_error
### *** :) *** ###
sub form_error {
local ($errorname) = @_;
print <<"Close~//~Print";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<title>Form Error</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<BR>
<TABLE BORDER=0 CELLPADDING=5 CELLSPACING=0 Width="100%">
<TR>
<TD BGCOLOR="#D0D8EA">
<B><FONT SIZE="+3">Form Error</FONT></B>
</TD>
</TR>
</TABLE>
<P>
<CENTER>
<FONT COLOR=FF0000 SIZE="+1">$errorname</FONT>
<P>
<FORM>
<TABLE BORDER=1 BGCOLOR=#FF0000 cellpadding=3 cellspacing=0>
<TR><TD>
<input type="button" value="BACK" onClick=history.back()></TD>
</TR></TABLE>
</FORM>
</CENTER>
<P>
<P>
</BODY>
</HTML>
Close~//~Print
exit;
}
### *** :) *** ###
sub Get_the_Date {
### *** Date Time Formats *** ###
# $sec, prints - 1 to 60
# $min, prints - 1 to 60
# $hour, prints - 0 to 23
# $SECOND prints - 01 to 60
# $MINUTE prints - 01 to 60
# $HOUR prints - 01 to 24
# $mday, prints - 1 to 30/31
# $mon, prints - 0 to 11
# $Mon_No, prints - 1 to 12
# $year, prints - 97
# $wday, prints - 0 to 6
# $Wday, prints - 1 to 7
# $yday, prints - day number 0 to 364
# $weekday, prints - 01 to 07
# $month, prints - 01 to 12
# $monthday, prints - 01 to 30/31
# $days[$wday] prints - Sunday to Saturday
# $months[$mon] prints - January to December
# $smonths[$mon] prints - Jan to Dec
# $time prints - 12:09:13
# $date prints - Friday October. 05, 1997
# $sdate prints - Fri Oct 05, 97
# $localtime prints - Fri Oct 3 12:21:03 1997
@smonths =
("Jan","Feb","Mar","Apr","May","June","July","Aug","Sept","Oct","Nov","D
ec");
@months =
("January","Febuary","March","April","May","June","July","August","Septe
mber","October","November","December");
@days =
("Sunday","Monday","Tuesday","Wedsday","Thursday","Friday","Saturday");
@sdays = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$day_lite_savings) =
localtime(time);
if ($wday =~ /\d\d/) {$weekday = $wday}else{$weekday = ("0$wday")}
if ($mon =~ /\d\d/) {$month = $mon}else{$month = ("0$mon")}
if ($mday =~ /\d\d/) {$monthday = $mday}else{$monthday = ("0$mday")}
if ($sec =~ /\d\d/) {$SECOND = $sec}else{$SECOND = ("0$sec")}
if ($min =~ /\d\d/) {$MINUTE = $min}else{$MINUTE = ("0$min")}
if ($hour =~ /\d\d/) {$HOUR = $mday}else{$HOUR = ("0$mday")}
$year = $year + 1900;
$Mon_No = $mon+1;
$Wday = $wday+1;
$time = "$hour:$min:$sec";
$date = "$days[$wday] $months[$mon] $weekday, $year";
$sdate = "$sdays[$wday] $smonths[$mon] $weekday, $year";
$localtime = localtime(time);
}
### *** :) *** ###
sub parse {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
if ($allow_html != 1) { $value =~ s/<([^>]|\n)*>//g; }
$FORM{$name} = $value;
}
}
### *** :) *** ###
sub GetWebPage {
$success=0;
sub TCP { join("", getprotobyname('tcp')); }
sub SOCK_STREAM { 1; }
sub AF_INET { 2; }
sub PF_INET { &AF_INET; }
$port = 80;
@Headers = ("User-Agent", "http-get/0.1");
if ($server =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
@addrs = pack('C4', split(/\./,$server));
} else {
($dummy,$dummy,$dummy,$dummy, @addrs) = gethostbyname($server);
}
$remote = pack("S n a4 x8", &AF_INET, $port, $addrs[0]);
socket(S, &PF_INET, &SOCK_STREAM, &TCP) || die "socket: $!";
$cdb = localtime($^T);
connect(S, $remote) || die "connect fail at $cdb: $!";
select(S); $| = 1;
select(STDOUT); $| = 1;
$request = "GET $document HTTP/1.0\r\n";
while ($#Headers > 0) {
$request = $request . "$Headers[0]: $Headers[1]\r\n";
shift(@Headers);
}
$request = $request . "\r\n";
print(S $request);
$big = 1024*1024;
while ($len = sysread(S, $data, $big)) {
$data =~ s/\cM/ /g;
$data =~ s/\n/~R~/g;
push (@returned, "$data");
}
close(S) || die "close: $!";
}
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 3 Jan 2001 23:54:21 GMT
From: dha@panix2.panix.com (David H. Adler)
Subject: Re: /\/Password Redirect Script Nightmare/\/\
Message-Id: <slrn957etd.9fq.dha@panix2.panix.com>
On Wed, 03 Jan 2001 22:23:22 GMT, abme75@my-deja.com
<abme75@my-deja.com> wrote:
>I have played with this free script for 2 weeks and got it to at least
Two points:
1) re: usenet - you posted this question to (at least) 2 newsgroups,
but did not cross-post. Please don't do that.
2) re: your problem - did you voice your concerns to the author of the
script? If not, that might be the place to begin.
Good luck,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"Que?" - Manuel
------------------------------
Date: Thu, 04 Jan 2001 01:33:50 GMT
From: abme75@my-deja.com
Subject: Re: /\/Password Redirect Script Nightmare/\/\
Message-Id: <930jtu$6mm$1@nnrp1.deja.com>
Three Points DAVID:
1) People hate it when you cross-post.
2) Emailing the author of the script was the first thing I did.
3) I already found a easier better solutions to the problem no thanks
to you.
In article <slrn957etd.9fq.dha@panix2.panix.com>,
dha@panix2.panix.com (David H. Adler) wrote:
> On Wed, 03 Jan 2001 22:23:22 GMT, abme75@my-deja.com
> <abme75@my-deja.com> wrote:
>
> >I have played with this free script for 2 weeks and got it to at
least
>
> Two points:
>
> 1) re: usenet - you posted this question to (at least) 2 newsgroups,
> but did not cross-post. Please don't do that.
>
> 2) re: your problem - did you voice your concerns to the author of the
> script? If not, that might be the place to begin.
>
> Good luck,
>
> dha
>
> --
> David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
> "Que?" - Manuel
>
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 04 Jan 2001 04:53:56 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: /\/Password Redirect Script Nightmare/\/\
Message-Id: <x7hf3f9au3.fsf@home.sysarch.com>
>>>>> "a" == abme75 <abme75@my-deja.com> writes:
a> 1) People hate it when you cross-post.
that is very wrong. if they hate it then they don't know how to use
usenet. proper crossposting means you won't see duplicate posts in the
different groups if you use a decent newsreader. you obviously don't
since you use deja.
a> 2) Emailing the author of the script was the first thing I did.
then the next step is to hire someone to fix it. fixing broken free
software is not in the charter of this group.
a> 3) I already found a easier better solutions to the problem no thanks
a> to you.
so WTF did you post here? to show off you incredible laziness or was it
demonstrating your massive stupidity? you get one chance to pick the
right answer.
<snip of full jeopardy quote including sig>
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Thu, 04 Jan 2001 07:32:19 GMT
From: abme75@my-deja.com
Subject: Re: /\/Password Redirect Script Nightmare/\/\
Message-Id: <9318u3$mo9$1@nnrp1.deja.com>
In article <x7hf3f9au3.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
> a> 2) Emailing the author of the script was the first thing I did.
>
> then the next step is to hire someone to fix it. fixing broken free
> software is not in the charter of this group.
Thank you Uri Guttman for telling us what the charter of this ng is. I
forgot that you are the owner of this NG and will delegate what is and
in not posted. Let me make it easier for you to censor me by submitting
my post to you directly for review prior to posting OK.
> so WTF did you post here? to show off you incredible laziness or was
If it makes you feel better about your pathetic life to insult people
then go ahead. Never argue with stupid people like Uri Guttman, they
beat you down and win with experience.
<snip Software Engineer with no social skill, HGF where you work and
what you know>
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 04 Jan 2001 07:55:49 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: /\/Password Redirect Script Nightmare/\/\
Message-Id: <x7d7e392ey.fsf@home.sysarch.com>
>>>>> "a" == abme75 <abme75@my-deja.com> writes:
a> In article <x7hf3f9au3.fsf@home.sysarch.com>,
a> Uri Guttman <uri@sysarch.com> wrote:
a> 2) Emailing the author of the script was the first thing I did.
>>
>> then the next step is to hire someone to fix it. fixing broken free
>> software is not in the charter of this group.
a> Thank you Uri Guttman for telling us what the charter of this ng is.
you're welcome. it is so nice to see such a polite response here.
a> <snip Software Engineer with no social skill, HGF where you work and
a> what you know>
i don't get paid for my social skills. i give them away for free (as in
beer AND speech).
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Thu, 04 Jan 2001 11:37:14 GMT
From: helgi@NOSPAMdecode.is (Helgi Briem)
Subject: Re: /\/Password Redirect Script Nightmare/\/\
Message-Id: <3a545fa0.2420767169@news.itn.is>
On Thu, 04 Jan 2001 07:32:19 GMT, abme75@my-deja.com wrote:
>In article <x7hf3f9au3.fsf@home.sysarch.com>,
> Uri Guttman <uri@sysarch.com> wrote:
>> a> 2) Emailing the author of the script was the first thing I did.
>>
>> then the next step is to hire someone to fix it. fixing broken free
>> software is not in the charter of this group.
>
>Thank you Uri Guttman for telling us what the charter of this ng is. I
>forgot that you are the owner of this NG and will delegate what is and
>in not posted. Let me make it easier for you to censor me by submitting
>my post to you directly for review prior to posting OK.
>
>> so WTF did you post here? to show off you incredible laziness or was
>
>If it makes you feel better about your pathetic life to insult people
>then go ahead. Never argue with stupid people like Uri Guttman, they
>beat you down and win with experience.
Uri is a valued and respected longtime contributor to this
newsgroup who has come up with many useful tips and
solutions for those who frequent it. You are not and
have not. Now I wonder who I'll side with in this? Hmm...
Regards,
Helgi Briem
------------------------------
Date: Thu, 4 Jan 2001 09:26:21 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: /\/Password Redirect Script Nightmare/\/\
Message-Id: <slrn95920d.mil.tadmc@magna.metronet.com>
Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "a" == abme75 <abme75@my-deja.com> writes:
>
> a> Thank you Uri Guttman for telling us what the charter of this ng is.
Thank you Uri Guttman for bird-dogging out a config file entry
that will lessen my clpmisc-reading burden.
(although the Subject and From of the original post had already
lessened the chances of me spending time on it.
)
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 31 Dec 2000 21:46:33 GMT
From: The WebDragon <nospam@nospam.com>
Subject: 2>/dev/null Ludicrous attitudes, 1> a question remains unanswered (was : Re: bitwise operation to find the inversion of a color :)
Message-Id: <92o9fp$3uu$0@216.155.33.14>
In article <slrn94u5r4.e2g.abigail@tsathoggua.rlyeh.net>,
abigail@foad.org wrote:
| The WebDragon (nospam@nospam.com) wrote on MMDCLXXIX September MCMXCIII
| in <URL:news:92mf66$rq1$0@216.155.32.188>:
| || In article <slrn94t8vk.e2g.abigail@tsathoggua.rlyeh.net>,
| || abigail@foad.org wrote:
| ||
| || | `' | Note also that this doesn't give anything related to
| || | contrasting colours. `' | 0x808080 is some form of gray.
| || | Inverting
| || | the bits yields 0x7f7f7f, which `' | is almost as close to
| || | 0x808080
| || | as you can get. `' `' I'm guessing that you know a better way to
| || | produce complementary colors `' for arbitrary R G B values??
| || |
| || | The question was about *contrasting* colours, not complementary
| || | colours.
| || |
| || | Please learn to read before writing.
| ||
| || HE is interested in CONTRASTING colors.
| ||
| || *I* am interested in COMPLEMENTARY colors.
| ||
| || please learn to tell the difference between someone making a choice
| || of
| || his own, using his own very real intelligence, and one that couldn't
| || shoot his way out of a paper sack with a blowtorch.
|
| Yeah, sure. Then please tell me what you are referring to when you are
| asking for a _better way_. Better than what?
A. *having read all the other followups in this thread so far before
responding to this*
B. *restraining myself from replying in a like short, snide, deprecating
manner, as I *am* an intelligent, thoughtful, knowledge-seeking person
who doesn't really give a rat's ass whether Abigail or *anyone else* has
their knickers twisted by what they choose to read into my questions.
*I* am learning my ass off and having fun doing it. 'nuff said.
-=-
In answer to your question,
to wit: "better than anything I could come up with on my own if it meant
I'd be re-inventing the wheel, if such a 'color wheel' or some other
such module may or may not exist that could help me solve this query by
downloading it and reading the pod/HTML/greek documentation myself."
-=-
I didn't ask you personally to personally write a program for me, I
simply asked if you or frankly *anyone* (this is a public forum after
all) knew of anything, which I fully intended to go look at on my own
and THEN ask questions if I got stuck.
If you don't have such helpful information, then _fine_, but don't veil
your childish attitude under the guise of intelligence and
self-importance, no matter *how long* you've been here or *how many
newbie posts you've seen.* _If_ you choose to respond, do so
thoughtfully; or honestly, don't waste your oh-so-precious time with an
insulting response. Let someone else field the question, or not, as they
choose.
I spend a *very great deal of my time* answering newbie questions on
irc.gameslink.net as an admin, and while the sheer stupidity of some
people continues to astound me, it hasn't put me off my feed so
drastically as I've witnessed here, in this thread, in response to my
question.
I don't care if you have an attitude problem.
It's not *_my_* problem :)
Rant and rave all you like, it matters not a whit to me ultimately. I'm
from New York City originally and I can say utterly without rancor or
personal attack that if you don't want to answer, then #### ### #### ##!
... erm, DON'T. :)
if *I* can censor^H^H^H^H^H^Hcontrol myself, certainly you can, if you
are as intelligent as everyone seems to think you are. And don't tell me
you're from hot-blooded gene stock, because that lame excuse is right up
there in the class with "the dog ate my homework", ala "my ancestors
made me do it", and frankly deserves no more respect than that dog. :P
If you find this insulting, then don't waste *MY* time, that could be
better served with my helping or being helped BY others, with a response
of similar ilk.
<philosophical segue>This stupid back-arsewards planet has enough
bitterness in it without adding to it. How the fuck I wound up here is
utterly beyond me: Must've fell off the sweet chariot at the wrong stop
or something... (: </*>
But, Have a happy new year anyway, Abigail.
-=--=-
So, would anyone else care to respond or should I just let this
percolate in the back of my mind until I stumble across something that
leads me to an answer of some sort?
Cordially,
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Sun, 31 Dec 2000 22:30:56 GMT
From: garry@zvolve.com (Garry Williams)
Subject: Re: 2>/dev/null Ludicrous attitudes, 1> a question remains unanswered (was : Re: bitwise operation to find the inversion of a color :)
Message-Id: <AsO36.171$Dm5.8914@eagle.america.net>
On 31 Dec 2000 21:46:33 GMT, The WebDragon <nospam@nospam.com> wrote:
>So, would anyone else care to respond or should I just let this
>percolate in the back of my mind until I stumble across something that
>leads me to an answer of some sort?
I don't suppose anyone is still allowing this thread to be loaded in
their news readers, but I thought I'd just point out that I found
several references to computing contrasting colors in RGB in about a
five minute search of google. I guess that would be what I would do,
if I wanted to solve this problem.
I wonder why you spend so much misdirected energy when it's *you* who
wants the solution?
*plonk*
--
Garry Williams
------------------------------
Date: 31 Dec 2000 22:45:13 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: 2>/dev/null Ludicrous attitudes, 1> a question remains unanswered (was : Re: bitwise operation to find the inversion of a color :)
Message-Id: <92octp$7rs$2@216.155.33.14>
In article <AsO36.171$Dm5.8914@eagle.america.net>, garry@zvolve.com
(Garry Williams) wrote:
| On 31 Dec 2000 21:46:33 GMT, The WebDragon <nospam@nospam.com> wrote:
|
| >So, would anyone else care to respond or should I just let this
| >percolate in the back of my mind until I stumble across something that
| >leads me to an answer of some sort?
|
| I don't suppose anyone is still allowing this thread to be loaded in
| their news readers, but I thought I'd just point out that I found
| several references to computing contrasting colors in RGB in about a
| five minute search of google. I guess that would be what I would do,
| if I wanted to solve this problem.
|
| I wonder why you spend so much misdirected energy when it's *you* who
| wants the solution?
|
| *plonk*
it isn't a solution, it's curiosity. I'm attempting to LEARN. I'm
*exploring*. this is FUN. (or is supposed to be)
people's attitudes sometimes certainly don't make that easy. (or fun)
plonk yourself ;p
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Mon, 1 Jan 2001 00:57:41 -0000
From: "Adam T Walton" <adam.walton@btconnect.com>
Subject: Re: 2>/dev/null Ludicrous attitudes, 1> a question remains unanswered (was : Re: bitwise operation to find the inversion of a color :)
Message-Id: <8AQ36.5762$nu5.46577@NewsReader>
I got the answer (or at least a pointer to it) a zillion threads ago... as I
indicated... still, it's nice to know that other people can see the wood for
the trees :)
Although a 'lurker' (C) Tad Mclellan :) I still love this newsgroup...
perhaps we are looking at the nascent beginnings of
comp.lang.newbie.perl.misc... ergo the end of the language as we know it...
if you don't let the stupid people in, then the world will end up bowing
down to php, asp etc etc... and we ALL know that perl, Perl, PERL (or
whatever the f**k you want to call it) deserves better than that...
Don't underestimate me, or anyone else who posts to this group... one day,
we might have imformation that you all wish to share :)
Adam
------------------------------
Date: Sun, 31 Dec 2000 18:24:46 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: 2>/dev/null Ludicrous attitudes, 1> a question remains unanswered (was : Re: bitwise operation to find the inversion of a color :)
Message-Id: <slrn94vg1u.b0b.tadmc@magna.metronet.com>
Adam T Walton <adam.walton@btconnect.com> wrote:
>Although a 'lurker' (C) Tad Mclellan
Do not attribute origin of common 'net terms to me.
I just use them, I don't coin them (but I tried with
"P40CoS" (precious 40 characters of Subject:), but it
didn't seem to catch on).
http://www.tuxedo.org/~esr/jargon/html/entry/lurker.html
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 31 Dec 2000 21:27:43 -0500
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: 2>/dev/null Ludicrous attitudes, 1> a question remains unanswered (was : Re: bitwise operation to find the inversion of a color :)
Message-Id: <m3k88g57mo.fsf@mumonkan.sunstarsys.com>
tadmc@metronet.com (Tad McClellan) writes:
> Adam T Walton <adam.walton@btconnect.com> wrote:
>
> >Although a 'lurker' (C) Tad Mclellan
>
> Do not attribute origin of common 'net terms to me.
> I just use them, I don't coin them (but I tried with
> "P40CoS" (precious 40 characters of Subject:), but it
> didn't seem to catch on).
Of course that would never work here-
http://www.dictionary.com/cgi-bin/dict.pl?term=PHOCUS
( it's not even related to Hocus Pocus by Focus :)
Ha-ppy New Year!
--
Joe Schaefer
------------------------------
Date: 2 Jan 2001 01:02:33 GMT
From: abigail@foad.org (Abigail)
Subject: Re: 2>/dev/null Ludicrous attitudes, 1> a question remains unanswered (was : Re: bitwise operation to find the inversion of a color :)
Message-Id: <slrn952a59.e2g.abigail@tsathoggua.rlyeh.net>
The WebDragon (nospam@nospam.com) wrote on MMDCLXXIX September MCMXCIII
in <URL:news:92o9fp$3uu$0@216.155.33.14>:
?? In article <slrn94u5r4.e2g.abigail@tsathoggua.rlyeh.net>,
?? abigail@foad.org wrote:
??
?? | Yeah, sure. Then please tell me what you are referring to when you are
?? | asking for a _better way_. Better than what?
??
?? to wit: "better than anything I could come up with on my own if it meant
?? I'd be re-inventing the wheel, if such a 'color wheel' or some other
?? such module may or may not exist that could help me solve this query by
?? downloading it and reading the pod/HTML/greek documentation myself."
So, you are asking me, in respond to a question dealing with a different
problem to come up with a method to solve some problem which is better
than a method of which I have no way of knowing what it is? And it's
even phrased in a strange way starting with "I'm guessing that...".
Did you really expect a useful answer?
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: Sun, 31 Dec 2000 11:21:47 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage978261846.27621@news.teleport.com>
Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 29 Apr 2000
[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last _major_ update of the Perl FAQ was in Summer
of 1998; of course, ongoing updates are made as needed. ]
For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).
http://www.cpan.org/doc/FAQs/
Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.
For an alternative way to get answers, check out the Perlfaq website.
http://www.perlfaq.com/
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.
perldoc perlfaq
man perlfaq
If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.
If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.
http://www.cpan.org/
http://www.perl.com/CPAN/
http://www.cpan.org/doc/FAQs/FAQ/html/
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/
You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)
California ftp://ftp.cdrom.com/pub/perl/CPAN/
Texas ftp://ftp.metronet.com/pub/perl/
South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
Australia ftp://cpan.topend.com.au/pub/CPAN/
Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 5221
**************************************
