[22859] in Perl-Users-Digest
Perl-Users Digest, Issue: 5080 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 5 18:06:04 2003
Date: Thu, 5 Jun 2003 15:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 5 Jun 2003 Volume: 10 Number: 5080
Today's topics:
Re: and if I killed this programmer *I'd* go to jail.. <karabot@canada.com>
Re: and if I killed this programmer *I'd* go to jail.. <goedicke@goedsole.com>
Changing form output (Steve)
Re: Changing form output <noreply@gunnar.cc>
free GUI win32? <daniel_newhouse@earthlink.net>
Re: free GUI win32? <zebuwin@yahoo.fr>
Re: free GUI win32? <goedicke@goedsole.com>
How to add multiple lines to the clipboard... <shaldar@singnet.com.sg>
Re: How to add multiple lines to the clipboard... <noreply@gunnar.cc>
Re: How to add multiple lines to the clipboard... <drew4jones@yahoo.ca>
Re: How to add multiple lines to the clipboard... <erutiurf@web.de>
Re: Module to decode MS Word documents? (Sherman Willden)
Re: only replace the NUMBERth match of the regexp (Tad McClellan)
open2 under windows (Alan)
Passthru and UNC path (RayGun)
redirect location prints to screen (Harvey Siegelman)
Re: redirect location prints to screen <mbudash@sonic.net>
Re: Replacing Unsafe HTML Characters (Brad Walton)
Re: Replacing users password input with asterisks <zentara@highstream.net>
Re: Time limit Zvezdoshka@nowhere.ru
Re: UK script writer wanted (Sam Holden)
Upload without cgi.pm or cgi-lib <ghostnr1@telia.com>
Re: Upload without cgi.pm or cgi-lib ctcgag@hotmail.com
Re: Upload without cgi.pm or cgi-lib <gmiller@NOTforSPAM.gregmiller.net>
Re: Yabb woes. (Sara)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 5 Jun 2003 14:28:27 -0400
From: "George Karabotsos" <karabot@canada.com>
Subject: Re: and if I killed this programmer *I'd* go to jail..
Message-Id: <hZLDa.14252$HG5.635587@news20.bellglobal.com>
I only hope you get paid well!!
"Sara" <genericax@hotmail.com> wrote in message
news:776e0325.0306050958.319bfc19@posting.google.com...
> This is one of the less ugly examples what I've inherited from my
> "ancestral" programmers here. I think he must have had a C-to-Perl
> script he ran to produce his Perl Code..
>
> 805: for($i=0;$i<=$#g_INFO;$i++){
> 806: if($g_INFO[$i][$x_ID] ne $id){ next; }
> 807: @tmp1 = split(/;/,$g_INFO[$i][$_TEXT]);
> 808: for($j=0;$j<=$#tmp1;$j++){
> 809: $tmp1[$j] =~ s/^(\s)*//g;
> 810: @tmp2 = split(/,/,$tmp1[$j]);
> 811: if($tmp2[0] == $level){ return "$tmp2[1]"; }
>
> I'll be in rehab before this project is though.. ACK....
>
> Gx
------------------------------
Date: Thu, 05 Jun 2003 19:04:25 GMT
From: William Goedicke <goedicke@goedsole.com>
Subject: Re: and if I killed this programmer *I'd* go to jail..
Message-Id: <m37k80wdlc.fsf@mail.goedsole.com>
Dear Sara -
genericax@hotmail.com (Sara) writes:
> This is one of the less ugly examples what I've inherited from my
> "ancestral" programmers here. I think he must have had a C-to-Perl
> script he ran to produce his Perl Code..
Can't this be characterized as "terrorism", allowing us to kill them
legally?
Yours - Billy
============================================================
William Goedicke goedicke@goedsole.com
http://www.goedsole.com:8080
============================================================
Lest we forget:
You want to know about religion? I can tell you everything you need
to know about religion in one sentence. You die; worms eat you.
- Pauline Goedicke
------------------------------
Date: 5 Jun 2003 11:15:44 -0700
From: techadmin@shaw.ca (Steve)
Subject: Changing form output
Message-Id: <2e27f51a.0306051015.7f8fd44e@posting.google.com>
I am using BigNoseBird version 4 CGI script to process form
information.
Is there a way for the received e-mail to be presented in a different
format, right now we receive the data like this,
Client= ABC enterprises
Address=123 Anywhere
Canada
Instructions=jdhjfhadsf
dshfahhhasdjhf
sdkakjasdjfj
is there a way to present it in the following format,
Client ABC Enterprises
Address 123 Anywhere,
Canada
Instructions akjhdfajhfkajhflkjhasdjfh
asdfjsdfkjasdfkja;skjfkasjd
adfajsdfkjaskdjfakjsdflkja
I understand that changes need to be made to the code beloew but all
the books I have read do not give me the know how to make the
appropriate changes. Please comment all changes and additions, thanks.
I am using STMP maail,
###################################################################
###################################################################
sub sendmail {
# error codes below for those who bother to check result codes <gr>
# 1 success
# -1 $smtphost unknown
# -2 socket() failed
# -3 connect() failed
# -4 service not available
# -5 unspecified communication error
# -6 local user $to unknown on host $smtp
# -7 transmission of message failed
# -8 argument $to empty
#
# Sample call:
#
# &sendmail($from, $reply, $to, $smtp, $subject, $message );
#
# Note that there are several commands for cleaning up possible bad
inputs - if you
# are hard coding things from a library file, so of those are
unnecesssary
#
my ($fromaddr, $replyaddr, $to, $smtp, $subject, $message) = @_;
$to =~ s/[ \t]+/, /g; # pack spaces and add comma
$fromaddr =~ s/.*<([^\s]*?)>/$1/; # get from email address
$replyaddr =~ s/.*<([^\s]*?)>/$1/; # get reply email address
$replyaddr =~ s/^([^\s]+).*/$1/; # use first address
$message =~ s/^\./\.\./gm; # handle . as first character
$message =~ s/\r\n/\n/g; # handle line ending
$message =~ s/\n/\r\n/g;
$smtp =~ s/^\s+//g; # remove spaces around $smtp
$smtp =~ s/\s+$//g;
if (!$to)
{
return(-8);
}
if ($SMTP_SERVER ne "")
{
my($proto) = (getprotobyname('tcp'))[2];
my($port) = (getservbyname('smtp', 'tcp'))[2];
my($smtpaddr) = ($smtp =~
/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
? pack('C4',$1,$2,$3,$4)
: (gethostbyname($smtp))[4];
if (!defined($smtpaddr))
{
return(-1);
}
if (!socket(MAIL, AF_INET, SOCK_STREAM, $proto))
{
return(-2);
}
if (!connect(MAIL, pack('Sna4x8', AF_INET, $port, $smtpaddr)))
{
return(-3);
}
my($oldfh) = select(MAIL);
$| = 1;
select($oldfh);
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-4);
}
print MAIL "helo $SMTP_SERVER\r\n";
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-5);
}
print MAIL "mail from: <$fromaddr>\r\n";
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-5);
}
foreach (split(/, /, $to))
{
print MAIL "rcpt to: <$_>\r\n";
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-6);
}
}
print MAIL "data\r\n";
$_ = <MAIL>;
if (/^[45]/)
{
close MAIL;
return(-5);
}
}
if ($SEND_MAIL ne "")
{
open (MAIL,"| $SEND_MAIL");
}
print MAIL "To: $to\n";
print MAIL "From: $fromaddr\n";
print MAIL "Reply-to: $replyaddr\n" if $replyaddr;
print MAIL "X-Mailer: Perl Powered Socket Mailer\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$message";
print MAIL "\n.\n";
if ($SMTP_SERVER ne "")
{
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-7);
}
print MAIL "quit\r\n";
$_ = <MAIL>;
}
close(MAIL);
return(1);
}
sub sys_date
{
%mn = ('Jan','01', 'Feb','02', 'Mar','03', 'Apr','04',
'May','05', 'Jun','06', 'Jul','07', 'Aug','08',
'Sep','09', 'Oct','10', 'Nov','11', 'Dec','12' );
$sydate=localtime(time);
($day, $month, $num, $time, $year) = split(/\s+/,$sydate);
$zl=length($num);
if ($zl == 1)
{ $num = "0$num";}
$yyyymmdd="$year\-$mn{$month}\-$num";
return $yyyymmdd;
}
sub sys_time
{
$sydate=localtime(time);
($day, $month, $num, $time, $year) = split(/\s+/,$sydate);
return $time;
}
------------------------------
Date: Thu, 05 Jun 2003 20:46:21 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Changing form output
Message-Id: <bbo369$bmeae$1@ID-184292.news.dfncis.de>
Steve wrote:
> I am using BigNoseBird version 4 CGI script to process form
> information.
<snip>
> is there a way to present it in the following format,
>
> Client ABC Enterprises
> Address 123 Anywhere,
> Canada
> Instructions akjhdfajhfkajhflkjhasdjfh
> asdfjsdfkjasdfkja;skjfkasjd
> adfajsdfkjaskdjfakjsdflkja
Yes.
> I understand that changes need to be made to the code beloew
Remarkable insight!
> but all the books I have read do not give me the know how to make
> the appropriate changes.
Oh. Neither of them? Which books were they?
Ever considered to make some own effort?
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 05 Jun 2003 18:39:35 GMT
From: "Daniel L Newhouse" <daniel_newhouse@earthlink.net>
Subject: free GUI win32?
Message-Id: <H7MDa.32286$rO.2983581@newsread1.prod.itd.earthlink.net>
I have been told that there is a free GUI that can be downloaded for Perl on
Windows. I have already installed the free ActiveState ActivePerl 5.8 msi
package.
------------------------------
Date: 5 Jun 2003 20:58:49 +0200
From: Francois Wisard <zebuwin@yahoo.fr>
Subject: Re: free GUI win32?
Message-Id: <Xns9391D552C2386zebuwinyahoofr@195.186.4.29>
"Daniel L Newhouse" <daniel_newhouse@earthlink.net> wrote in
news:H7MDa.32286$rO.2983581@newsread1.prod.itd.earthlink.net:
> I have been told that there is a free GUI that can be downloaded for
> Perl on Windows. I have already installed the free ActiveState
> ActivePerl 5.8 msi package.
I guess you mean an IDE, not a GUI... look here:
http://sourceforge.net/projects/open-perl-ide/
--
Buy drugs on http://stoned.at/zebuwin/ !
------------------------------
Date: Thu, 05 Jun 2003 19:02:46 GMT
From: William Goedicke <goedicke@goedsole.com>
Subject: Re: free GUI win32?
Message-Id: <m3brxcwdo5.fsf@mail.goedsole.com>
Dear Daniel -
"Daniel L Newhouse" <daniel_newhouse@earthlink.net> writes:
> I have been told that there is a free GUI that can be downloaded for
> Perl on Windows. I have already installed the free ActiveState
> ActivePerl 5.8 msi package.
I'm not sure what a "GUI for perl" means, but I use XEmacs
(http://www.xemacs.org). It's free and provides all the functionality
of a typical windows based IDE (i.e. multiple windows, mouse support,
pop-up menus, version control integration, built-in debugger...).
It's extremely powerful, so expect a steep learning curve. If you're
looking for a drag-and-drool thing like Visual Basic, XEmacs isn't
that.
Yours - Billy
============================================================
William Goedicke goedicke@goedsole.com
http://www.goedsole.com:8080
============================================================
Lest we forget:
Good software development involves analyzing and automating the input
and output of the required business functionality.
- William Goedicke
------------------------------
Date: Fri, 6 Jun 2003 02:38:52 +0800
From: "Shyamsunder Haldar " <shaldar@singnet.com.sg>
Subject: How to add multiple lines to the clipboard...
Message-Id: <bbo20h$n9e$1@mawar.singnet.com.sg>
Hi,
How do I add text (multiple lines)to the Windows Clipboard..
I have the following program...
#!perl
use Win32::Clipboard;
my $String = "Hello World\nHow are You?\n";
print "$String";
Win32::Clipboard::Set($String);
Whe I run this script:
The output generated on the screen...
Hello World
How are You?
But the data that is present in the clipboard is "Hello WorldHow are You?"
This I get in the Windows Notepad, but in the MS Word I get two lines.
Would appreciate if anyone could point out how to add a DOS NewLine in the
Clipboard - maybe we need to add one more char other than "\n"
Thanks in advance.
Shyam.
------------------------------
Date: Thu, 05 Jun 2003 21:00:13 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: How to add multiple lines to the clipboard...
Message-Id: <bbo408$bf7v0$1@ID-184292.news.dfncis.de>
Shyamsunder Haldar wrote:
> How do I add text (multiple lines)to the Windows Clipboard.. I have
> the following program...
>
> #!perl
>
> use Win32::Clipboard;
>
> my $String = "Hello World\nHow are You?\n";
> print "$String";
> Win32::Clipboard::Set($String);
>
>
> Whe I run this script:
> The output generated on the screen...
>
> Hello World
> How are You?
>
> But the data that is present in the clipboard is "Hello WorldHow
> are You?" This I get in the Windows Notepad, but in the MS Word I
> get two lines.
>
> Would appreciate if anyone could point out how to add a DOS NewLine
> in the Clipboard - maybe we need to add one more char other than
> "\n"
Try "\r\n".
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 05 Jun 2003 19:14:57 GMT
From: Drew Jones <drew4jones@yahoo.ca>
Subject: Re: How to add multiple lines to the clipboard...
Message-Id: <87a85bf62646f318d871ff906a9b57a8@free.teranews.com>
On Fri, 6 Jun 2003 02:38:52 +0800, "Shyamsunder Haldar "
<shaldar@singnet.com.sg> wrote:
>Would appreciate if anyone could point out how to add a DOS NewLine in the
>Clipboard - maybe we need to add one more char other than "\n"
Try
$your_string = "line 1 \r\nline2\r\n";
------------------------------
Date: Thu, 05 Jun 2003 21:49:23 +0200
From: Richard Voss <erutiurf@web.de>
Subject: Re: How to add multiple lines to the clipboard...
Message-Id: <bbo74k$nag$05$1@news.t-online.com>
Shyamsunder Haldar wrote:
> Hi,
>
> How do I add text (multiple lines)to the Windows Clipboard..
> I have the following program...
>
> #!perl
>
> use Win32::Clipboard;
>
> my $String = "Hello World\nHow are You?\n";
> print "$String";
> Win32::Clipboard::Set($String);
>
>
> Whe I run this script:
> The output generated on the screen...
>
> Hello World
> How are You?
>
> But the data that is present in the clipboard is "Hello WorldHow are You?"
> This I get in the Windows Notepad, but in the MS Word I get two lines.
>
> Would appreciate if anyone could point out how to add a DOS NewLine in the
> Clipboard - maybe we need to add one more char other than "\n"
exactly. As perlport points out, "\n" i becomes a CRLF on windows when it's
leaving via some IO-Stream, which happens when you print to the terminal but not
when you set the windows clipboard.
So rather be explicit:
my $string = "Hello World\015\012How are You?\015\012";
print $string;
Win32::Clipboard::Set($string);
note: using "\r\n" is no quite right, as it will become CRCRLF when printed to
the terminal.
See perldoc perlport
--
sub{use strict;local$@=sub{select($,,$,,$,,pop)};unshift@_,(45)x 24,split q=8==>
55.52.56.49.49.55.56.49.49.53;do{print map(chr,@_[0..(@_/2-1)]),"\r";$@->(1/6)=>
push@_=>shift}for@_,++$|}->(map{$_+=$_%2?-1:1}map ord,split//,'u!`onuids!Qdsm!'.
'i`bjds') #my email-address is reversed! <http://fruiture.de>
------------------------------
Date: 5 Jun 2003 12:28:19 -0700
From: sherman.willden@hp.com (Sherman Willden)
Subject: Re: Module to decode MS Word documents?
Message-Id: <3a80d8d6.0306051128.19d75a5c@posting.google.com>
Thanks. I read this documentation that came with
C:\Perl\lib\Spreadsheet\WriteExcel\doc but I just didn't get it.
http://www-106.ibm.com/developerworks/linux/library/l-pexcel/ helped.
I now understand most of the C:\Perl\lib\Spreadsheet\WriteExcel\doc
documentation.
Again, thanks;
Sherman
------------------------------
Date: Thu, 5 Jun 2003 14:13:18 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: only replace the NUMBERth match of the regexp
Message-Id: <slrnbdv5ie.p6r.tadmc@magna.augustmail.com>
Dan Jacobson <jidanni@jidanni.org> wrote:
> In sed: s///flags:
> `NUMBER'
> Only replace the NUMBERth match of the REGEXP.
> $ s2p s/X/Y/7
> My question is is the ease of writing simply s/X/Y/7 of sed not
> available in perl,
The answer to your questions is: Yes, that is not available in Perl.
> and one must make a big deal of it,
I don't think it required big-dealness.
> or is s2p just
> making its usual big deal about everything?
It _is_ pretty hard-to-follow code.
I'd write it so that I could understand it[1]:
{ my $n;
s/(X)/ ++$n == 7 ? 'Y' : $1 /ge; # s/X/Y/7 in sed
}
[1] The bar is set much lower for me than for a p5p member...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 5 Jun 2003 13:22:11 -0700
From: alan_grow@hotmail.com (Alan)
Subject: open2 under windows
Message-Id: <e8791f31.0306051222.6ee0ebb8@posting.google.com>
Hello and tia:
I am trying to get a bidirectional pipe working under both Unix and
Activestate 5.6.1 build 635. I thought my best bet would be
IPC::Open2, but so far it just hangs under Win2k. Here's the code.
# ipctest.pl
use strict;
use IPC::Open2;
my $pid;
my ($r, $w);
$pid = open2($r, $w, 'perl echo.pl');
print $w "Hello World\n";
close($w);
print STDOUT <$r>;
# echo.pl
use strict;
print while (<>) ;
Thanks for the help.
-Alan
------------------------------
Date: 5 Jun 2003 12:50:56 -0700
From: rkngun@sfu.ca (RayGun)
Subject: Passthru and UNC path
Message-Id: <1b11bf5f.0306051150.119233e6@posting.google.com>
I am trying to use passthru and a UNC path. It complains that it
cannot find the directory.
i.e. passthru("perl //somewhere/somedir/test.pl 2>&1");
Any ideas?
Thanks in advance,
------------------------------
Date: 5 Jun 2003 13:28:59 -0700
From: hsiegelman@mchsi.com (Harvey Siegelman)
Subject: redirect location prints to screen
Message-Id: <888b276e.0306051228.3cb3f05e@posting.google.com>
I have written a cgi that uses an environment variable (remote_user)
on a password protected page to redirect the user to one of several
folders, each named after on of the likely users. The purpose is to
have a link to a client access area where each client can 'sign in'
and be directed to their own private page.
The problem: when the cgi executes it generates a hyperlink printed at
the the top of an otherwise blank page. When clicked, the hyperlink
will take the user to the correct page, but that is not the effect
that I wish to achieve. I had hoped to have the redirect print to the
location bar and not the page. The cgi is being executed from a shtml
page. What am I doing wrong? Here is the cgi code:
#!/usr/bin/perl
$baseurl = 'http://www.economicsgroup.com/clients/';
$user = $ENV{'REMOTE_USER'};
$fullurl = $baseurl.lc($user);
print "Location: $fullurl/\n\n";
Thanks for any help.
------------------------------
Date: Thu, 05 Jun 2003 21:33:08 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: redirect location prints to screen
Message-Id: <mbudash-0BBE5A.14330705062003@typhoon.sonic.net>
In article <888b276e.0306051228.3cb3f05e@posting.google.com>,
hsiegelman@mchsi.com (Harvey Siegelman) wrote:
> I have written a cgi that uses an environment variable (remote_user)
> on a password protected page to redirect the user to one of several
> folders, each named after on of the likely users. The purpose is to
> have a link to a client access area where each client can 'sign in'
> and be directed to their own private page.
>
> The problem: when the cgi executes it generates a hyperlink printed at
> the the top of an otherwise blank page. When clicked, the hyperlink
> will take the user to the correct page, but that is not the effect
> that I wish to achieve. I had hoped to have the redirect print to the
> location bar and not the page. The cgi is being executed from a shtml
> page. What am I doing wrong? Here is the cgi code:
>
> #!/usr/bin/perl
> $baseurl = 'http://www.economicsgroup.com/clients/';
> $user = $ENV{'REMOTE_USER'};
> $fullurl = $baseurl.lc($user);
> print "Location: $fullurl/\n\n";
>
> Thanks for any help.
you can't do that from an ssi - by the time it's executed, the http
headers have already been completed - hence the link appearing on the
page... you'll have to use a perl script, or php, or...
--
Michael Budash
------------------------------
Date: 5 Jun 2003 11:05:59 -0700
From: joseph.walton@sbc.com (Brad Walton)
Subject: Re: Replacing Unsafe HTML Characters
Message-Id: <c8a70bb7.0306051005.5bcbbcef@posting.google.com>
> If you don't mind me asking, are you using an older version of
> ActivePerl? When I checked my own installation of ActivePerl 5.8,
> HTML::Entities was already installed by default.
I am using 5.8, but it was not part of the installation. Regardless,
there are other, more key modules (looking ahead) which will not
install. HTML::Entities is a good module, but I think I have solved
that problem for my script (for now anyway).
Thanks,
Brad
------------------------------
Date: Thu, 05 Jun 2003 16:27:16 -0400
From: zentara <zentara@highstream.net>
Subject: Re: Replacing users password input with asterisks
Message-Id: <1l9vdvc2d0o93s14dtv2ihgqi1o26080l0@4ax.com>
On Wed, 04 Jun 2003 17:23:21 -0400, zentara <zentara@highstream.net>
wrote:
>Well I took your idea, and made it work. :-) Here you go.
Well the previous code I posted had a drawback
on linux.....it allowed the control keys, like pageup,
arrowkeys,etc, to send multiple keys. These had to
be filtered out somehow. My "new and improved"
version is below. It refuses to allow control keys
to enter anything. I had to use a sub to detect
a control key(ord=27), then another sub to clear out the
extraneous keys.
#####################################################
#!/usr/bin/perl
use strict;
use Term::ReadKey;
my $pwd = mask_pwd();
print "\n$pwd\n";
sub mask_pwd{
ReadMode(3);
my $password = '';
print "Enter Password\n";
while(1){
my $ord = getord();
if ($ord == 10){last} # "Enter"
if ($ord == 127) { # ie "Backspace"
chop($password);
print chr(8),' ',chr(8);
next;
}
if($ord == 27){clearstream();$ord="\0"}
if($ord != "\0"){
$password .= chr($ord);
print '*';
}
}
ReadMode(0);
return $password;
}
sub getord{
ReadMode('cbreak');
my $char;
if (defined ($char = ReadKey(0))){
# input was waiting and it was $char
}
ReadMode('normal'); # restore normal tty settings
return ord($char);
}
sub clearstream{
while(1){
ReadMode('cbreak');
my $char;
#passing ReadKey() an argument of -1 to indicate not to block:
if (defined ($char = ReadKey(-1)) ) {
#$char=''; # input was waiting and it was $char
} else {
# no input was waiting
return;
}
ReadMode('normal'); # restore normal tty settings
}
return ;
}
__END__
------------------------------
Date: Thu, 05 Jun 2003 22:17:21 +0400
From: Zvezdoshka@nowhere.ru
Subject: Re: Time limit
Message-Id: <s52vdvc6touv6oo3dgdp7hr462psaq4mc9@4ax.com>
On Thu, 05 Jun 2003 17:21:08 GMT, Michael Budash <mbudash@sonic.net>
wrote:
>think i'd store the presentation timestamp server-side. then when the
>answer is received, compare current time with the timestamp to determine
>how long the user took. upside: no cookies needed, no hacking possible.
>downside: more programming necessary to link the stored timestamp with
>the user's question, probably via a unique key.
Yes, that's the way we are going... And as you say, it should avoid
hacking... As the quizz will involve money and direct credits, that IS
an important point !
Thank you !
ZZ
------------------------------
Date: 5 Jun 2003 18:13:58 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: UK script writer wanted
Message-Id: <slrnbdv236.m99.sholden@flexal.cs.usyd.edu.au>
On Thu, 5 Jun 2003 18:52:45 +0100,
Cannabis Coffee Shops <nntp@cannabiscoffeeshops.co.uk.INVALID> wrote:
> Sort of off topic as its not a perl question - but as somebody on here
> will earn money from doing it I reckon its ok .
In fact that makes it more off topic. There are newsgroups for this
stuff, they usually have 'jobs' in the name somewhere.
[ snip job ad ]
--
Sam Holden
------------------------------
Date: Thu, 05 Jun 2003 19:15:45 GMT
From: "GhostNr1" <ghostnr1@telia.com>
Subject: Upload without cgi.pm or cgi-lib
Message-Id: <BFMDa.13445$dP1.26157@newsc.telia.net>
I have a mysql database and then I have a text file that should be uploaded.
Ether it should be uploaded to the database or uploaded to a directory and
it should be done a link to it via sql. I just can't find any upload that is
not useing cgi.pm becouse I don't use that and I don't whant to use it.
thx GhostNr1
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.487 / Virus Database: 286 - Release Date: 6/1/2003
------------------------------
Date: 05 Jun 2003 21:09:06 GMT
From: ctcgag@hotmail.com
Subject: Re: Upload without cgi.pm or cgi-lib
Message-Id: <20030605170906.414$Gy@newsreader.com>
"GhostNr1" <ghostnr1@telia.com> wrote:
> I have a mysql database and then I have a text file that should be
> uploaded. Ether it should be uploaded to the database or uploaded to a
> directory and it should be done a link to it via sql. I just can't find
> any upload that is not useing cgi.pm becouse I don't use that and I don't
> whant to use it. thx GhostNr1
Did you have a question?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service New Rate! $9.95/Month 50GB
------------------------------
Date: Thu, 05 Jun 2003 21:44:06 GMT
From: Greg Miller <gmiller@NOTforSPAM.gregmiller.net>
Subject: Re: Upload without cgi.pm or cgi-lib
Message-Id: <acevdvg9tjqra8b7udptgrgkat7n0flkmh@4ax.com>
On Thu, 05 Jun 2003 19:15:45 GMT, "GhostNr1" <ghostnr1@telia.com>
wrote:
>I have a mysql database and then I have a text file that should be uploaded.
>Ether it should be uploaded to the database or uploaded to a directory and
>it should be done a link to it via sql. I just can't find any upload that is
>not useing cgi.pm becouse I don't use that and I don't whant to use it.
This will probably do what you need:
http://cgi-lib.berkeley.edu/
Greg Miller (gmiller at gregmiller dot net)
http://www.gregmiller.net
http://www.net-chess.com
------------------------------
Date: 5 Jun 2003 13:19:08 -0700
From: genericax@hotmail.com (Sara)
Subject: Re: Yabb woes.
Message-Id: <776e0325.0306051219.5c782c26@posting.google.com>
"john smith" <someone@microsoft.com> wrote in message news:<bbn24u$j2a$1@bob.news.rcn.net>...
> Nevermind. I fixed it.
John:
You may want to be more specific with your posts. This like posting
"my car won't start what should I do?" on a Buick message board.. Not
much to go on!
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.
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 V10 Issue 5080
***************************************
