Re: scheduling

2002-01-08 Thread Kevin Meltzer

man cron

Cheers,
Kevin

On Tue, Jan 08, 2002 at 08:07:04AM -0600, Camilo Gonzalez 
([EMAIL PROTECTED]) said something similar to:
 Unix IRIX
 
 -Original Message-
 From: Matthew Keen [mailto:[EMAIL PROTECTED]]
 Sent: Monday, January 07, 2002 7:28 PM
 To: 'Camilo Gonzalez'; [EMAIL PROTECTED]
 Cc: [EMAIL PROTECTED]
 Subject: RE: scheduling
 
 
 Camilo,
 
 What operating System are you ftp'ing from ???
 
 -Original Message-
 From: Camilo Gonzalez [mailto:[EMAIL PROTECTED]]
 Sent: Tuesday, 8 January 2002 9:46 AM
 To: '[EMAIL PROTECTED]'; Camilo Gonzalez
 Cc: [EMAIL PROTECTED]
 Subject: RE: scheduling
 
 
 How can I find out about cron?
 
 -Original Message-
 From: fliptop [mailto:[EMAIL PROTECTED]]
 Sent: Monday, January 07, 2002 4:30 PM
 To: Camilo Gonzalez
 Cc: [EMAIL PROTECTED]
 Subject: Re: scheduling
 
 
 Camilo Gonzalez wrote:
 
  Anyone know of a module or method that will run a Perl script on a given
  time each day? I need to FTP a file from one site to another daily and I
 was
  hoping to automate it.
 
 
 can you write a cron job to do it?
 
 -- 
 To unsubscribe, e-mail: [EMAIL PROTECTED]
 For additional commands, e-mail: [EMAIL PROTECTED]
 
 
 IMPORTANT NOTICE:
 This e-mail and any attachment to it is intended only to be read or used by
 the named addressee.  It is confidential and may contain legally privileged
 information.  No confidentiality or privilege is waived or lost by any
 mistaken transmission to you.  If you receive this e-mail in error, please
 immediately delete it from your system and notify the sender.  You must not
 disclose, copy or use any part of this e-mail if you are not the intended
 recipient.  The RTA is not responsible for any unauthorised alterations to
 this e-mail or attachment to it.  
 
 
 IMPORTANT NOTICE:
 This e-mail and any attachment to it is intended only to be read or used by
 the named addressee.  It is confidential and may contain legally privileged
 information.  No confidentiality or privilege is waived or lost by any
 mistaken transmission to you.  If you receive this e-mail in error, please
 immediately delete it from your system and notify the sender.  You must not
 disclose, copy or use any part of this e-mail if you are not the intended
 recipient.  The RTA is not responsible for any unauthorised alterations to
 this e-mail or attachment to it.  
 
 -- 
 To unsubscribe, e-mail: [EMAIL PROTECTED]
 For additional commands, e-mail: [EMAIL PROTECTED]

-- 
[Writing CGI Applications with Perl - http://perlcgi-book.com]
I mean, there needs to be a wholesale effort against racial profiling, which
is illiterate children.
-- G.W. Bush, 2nd Presidential Debate 10/11/2000

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




Re: 2 Q's, Google and Me - can you spell it out?

2002-01-08 Thread Henk van Ess

Dear Poec or others,

I followed the instructions, but the *.cgi fails to generate an output. What
did I do wrong?

Try www.voelspriet.nl/spriet.cgi to see the error. This is the content of
the script:


#!/usr/bin/perl -wT
use strict;
use CGI qw/:standard/;
use URI::Escape;

# if we came from the form, grab the values and create the URL
if ( param )
{
# get the form data
# see perldoc CGI
my $_prefix = param( 'prefix' ) || '';
my $_search = param( 'search' ) || '';

# untaint it
# see perldoc perlsec
my ( $prefix ) = ( $_prefix =~ /^([a-zA-Z\d\s_:]+)$/ ); #create
appropriate regex
my ( $search ) = ( $_search =~ /^([a-zA-Z\d\s_:]+)$/ ); #create
appropriate regex

# escape characters with special meaning in URIs
# see perldoc URI::Escape
$prefix = uri_escape( $prefix );
$search = uri_escape( $search );
print redirect(
http://www.google.com/search?q=$prefix%20$search; );
}
# otherwise, print the Web page
else
{
print header;
print END_HTML;
!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN

http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd;

html
head
titleTest page/title
/head
body
form action=spriet.cgi method=get
input type=checkbox name=prefix value=allintitle: /
All in titlebr /
input type=text name=search /
input type=submit   name=Submit /
/form
/body
/html
END_HTML
}



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




RE: DBI

2002-01-08 Thread Yegneshwar Virupakshan

Robert,
I tried doing exactly what you told and got the following error:

LoadLibrary(C:\Perl\site\lib\auto\dbd\oracle\oracle.dll) failed.  
GetLastError returns 0x0485

What does it mean?

Thanks,
Yegi

--- Robert Howard [EMAIL PROTECTED] wrote:
 The .dll file may need to be re-registered. Try doing the
 following, and
 adapt for your particular flavor of Windows:
 
 Win9x/NT:
 1) Go to Start, Find, Files or Folders.
 2) In the Named field, type: regsvr32.exe, Oracle.dll.
 3) In the Look In field, make sure it is set to root C:
 4) Click Find Now.
 5) 2 files should be found (more than one regsvr32 may be found,
 but we will
 be interested in the one in the Windows\System Directory.
 6) Drag the Oracle.dll icon on top of the regsvr32.exe icon. You
 should get
 a message saying that the register succeeded.
 7) To ensure that everything is loaded properly, reboot the
 computer, and
 then see if you still get the same error message again.
 
 Let me know if that helps,
 
 R.A. Howard
 
 
 -Original Message-
 From: Yegneshwar Virupakshan [mailto:[EMAIL PROTECTED]]
 Sent: Tuesday, January 08, 2002 12:14 PM
 To: [EMAIL PROTECTED]
 Subject: DBI
 
 
 Hi Guys,
 I have problem in connecting to Oracle using the DBD::Oracle
 module.
 
 I have installed the following components in my PC.
 1. Oracle 8i client
 2. ActivePerl 5.6.1.630
 3. DBI using ppm3
 4. DBD-Oracle using ppm3
 
 I can do tnsping to the Oracle Server and also connect to it using
 sqlplus session.
 
 But when I connect to Oracle Server using a small perl program, it
 gives the following error.
 
 --
 install_driver(Oracle) failed: Can't load
 'C:/Perl/site/lib/auto/DBD/Oracle/Orac
 le.dll' for module DBD::Oracle: load_file:One of the library files
 needed to run
  this application cannot be found at C:/Perl/lib/DynaLoader.pm line
 206.
  at (eval 1) line 3
 Compilation failed in require at (eval 1) line 3.
 Perhaps a required shared library or dll isn't installed where
 expected
  at a1.pl line 5
 --
 
 The Oracle.dll which the error mentions is present in the required
 directory.
 
 Any help would be appreciated.
 
 Thanks,
 Yegi
 
 __
 Do You Yahoo!?
 Send FREE video emails in Yahoo! Mail!
 http://promo.yahoo.com/videomail/
 
 --
 To unsubscribe, e-mail: [EMAIL PROTECTED]
 For additional commands, e-mail: [EMAIL PROTECTED]
 
 
 
 


__
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




Re: I just wanna dump a file to the browser as plain text

2002-01-08 Thread Curtis Poe

--- Jeremy Vinding [EMAIL PROTECTED] wrote:
 I fell incredibly stupid that I can't get such a simple thing to work.
 I'm trying to display the source of XML files without allowing IE to parse
 them, but it still is parsing it:(

Jeremy,

Welcome to the wonderful world Violating Standards!  Microsoft, in their 
less-than-infinite
wisdom, decided that their browsers will ignore the Content-type header and instead 
examine the
beginning of the document sent over to determine the type.  There is nothing you can 
do about
this.

However, you can cheat.  

Translate the characters that might cause HTML trouble (e.g., all of the tags in XML 
:) and use an
HTML document.  Here's one way (untested, but it should put you on the right path):

#!/usr/bin/perl -wT
use strict;
use CGI qw/:standard/;
use HTML::Entities;

my $xml;
open XML,  somedoc.xml or die $!;
{
local $/;
$xml = XML;
}
close XML;

$xml = encode_entities( $xml );
print 
header,
start_html( -title = An XML Document ),
pre( tt( $xml ) ),
end_html;

Cheers,
Curtis Ovid Poe

=
Ovid on http://www.perlmonks.org/
Someone asked me how to count to 10 in Perl:
push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @A

__
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]