perl.beginners.cgi

perl.beginners.cgi http://www.nntp.perl.org/group/perl.beginners.cgi/ ... Copyright 1998-2008 perl.org Fri, 29 Aug 2008 19:40:12 +0000 ask@perl.org what specialized tools exist to work with a mailing list (1 message) Hi, A user of usenet uses a special program, for example gnus. It has been based on the special protocol. Mailing lists which have been based on the broadcast delivery is simple to use, but the big amount unstructed letters is difficult to read. The question-answer relationship doesn't image. I want to ask how to arise effectiveness a mailing list has been based on the broadcast delivery. Daneel Yaitskov http://www.nntp.perl.org/group/perl.beginners.cgi/2008/08/msg13238.html Mon, 25 Aug 2008 12:34:04 +0000 sessions (9 messages) How to make CGI sessions to be shared among multi-webservers? Thanks. http://www.nntp.perl.org/group/perl.beginners.cgi/2008/08/msg13232.html Sat, 23 Aug 2008 04:21:08 +0000 parsing a line (4 messages) Hello all I have the following small file that i am parsing one line at a time (each line consists of hex values) line 1: 0d line 2: 00000000 line 3: 00002000 line 4: 0064 line 5: 76d457ed462df78c7cfde9f9e33724c6 line 6: bded7a7b9f6d763e line 7: 0059010081bb300597603b6f90ef4421 line 8: 001608427754e957a0d281bb30059760 line 9: a72f731c3be600000000000000000000 For line 5, for example, i want to break it up into chunks of 8 hex charaters (ie for example 76d457ed, 462df78c etc). I tried to use the shift operator (ie << or >>) but perl gives an error. Any help with the above would be appreciated. Thanks http://www.nntp.perl.org/group/perl.beginners.cgi/2008/08/msg13228.html Tue, 19 Aug 2008 07:44:53 +0000 section 508 compliance to Perl-generated forms? (2 messages) Hello, I have a number of Perl CGI scripts that generate html forms that need to be made 'Section 508' compliant. I have combed CPAN and perldoc but haven't been able to find any way to do this, e.g. with a module. Can anyone send me in the proper direction? Thanks very much. Mike http://www.nntp.perl.org/group/perl.beginners.cgi/2008/08/msg13226.html Fri, 15 Aug 2008 17:27:42 +0000 HELPPPPPPPPPPPPPP (1 message) please help me,this is what i put ,tell me what im doin wrong Restricted Directory or URL: http://www.googlepages.com Authentication URL: http://www.googlepages.com Authentication method: POST Parameters: Attribute Value i put .. full name google454543html password google454543html ------------------------------------------------------------------------------- could it be how my webpage name is ??? www.mywebsitename.googlepages.com http://www.nntp.perl.org/group/perl.beginners.cgi/2008/07/msg13225.html Sun, 27 Jul 2008 11:30:38 +0000 Perl CGI script running as root is unable to do rm, chmod and su (3 messages) Hi! I'm trying make one script (script1) call another script (script2) and have the output from script2 returned. My initial problem was that script2 needs to be executed as root, so I've set the setuid and setgid bit on script1 (script2 unchanged): -rwsrwsrwx 1 root bin 207 Jul 16 14:19 script1 -rwxrwxr-x 1 root 1060 5648 Jul 16 14:20 script2 However, when script2 is executed rm, su and chmod fails and /var/apache/logs/error_log shows: rm: /tmp/script2.sql not removed: Permission denied chmod: WARNING: can't change /tmp/status.pl.sql su: Sorry I suspect that Perl runs in taint mode and I've readup on it but I'm still unable to get this to work. Any help would be highly appreciated. Best Regards, Jimisola The files below slightly obfuscated for privacy reason (changed name of files and some variables). script1: #!/usr/bin/perl ## print "Content-type: text/plain\n\n"; $ENV{PATH} = "/bin:/usr/bin"; print "USER: ", `whoami`; print `script2`; script2: #!/bin/perl $ENV{PATH} = "/bin:/usr/bin"; print "USER in script2: ", `whoami`; $|=1; $sql_file="/tmp/script2.sql"; $FLAG=0; $i=0; if (@ARGV !=0) { for ($j=0;$j<=$#ARGV;$j++) { &check_arg($ARGV[$j]); &usage if ((@cont > 1) || ($FLAG > 1)); } } $user="user"; $passwd="password"; $msg_query=join(" or ",@msg_query); $recip_query=join(" or ",@recip_query); $state=join(",",@state); system "/bin/rm $sql_file > /dev/null"; open (SQL,">$sql_file") || die "Could not open $sql_file\n"; print SQL "set linesize 200;\n"; print SQL "set pagesize 0;\n"; print SQL "colum recip_addr format a30;\n"; print SQL "colum status format a12;\n"; print SQL "colum msg_date format 99999999999999999999999999999999;\n"; print SQL "colum notif_time format 99999999999999999999999999999999;\n"; print SQL "select r.recip_addr , r.message_id, r.recipient_id, r.code, m.msg_date, r.notif_time, r.state, r.status \n"; print SQL "from recipient_tbl r, message_tbl m\n"; print SQL "where r.message_id=m.message_id\n"; print SQL "and state in ($state)\n" if ($state ne ""); if ($msg_query ne "") { print SQL "and ($msg_query)\n" } if ($recip_query ne "") { print SQL "and ($recip_query)\n" } print SQL "order by r.message_id;\n"; print SQL ";\n"; print SQL "exit;\n"; close(SQL); system "chmod 755 $sql_file > /dev/null"; if (@cont == 0) { &query; } else { while (1) { &query; sleep $cont[0]; } } sub query { open (OUTPUT, "su - oracle -cf 'source .profile; sqlplus $user/$passwd \@$sql_file'|") || die "Can open SQL\n"; print "Recipient Address (Recip_addr) Message_ID Recipient_ID Code Msg_Date NT State Status\n"; print "------------------------------ ---------- ------------ ------ ------------------- -- ----- ----------\n"; $count=0; while (<OUTPUT>) { chop; @col= split (/\s+/,$_); next if (!((@col == 7) || (@col == 8))); next if (($col[1] =~ /\D/) || ($col[2] =~ /\D/) || ($col[5] =~ /\D/) || ($_ eq "")); if ($col[4] == $col[5] ) { $NT="S"; } else { $NT="D"; } $m_date=$col[4]/1000; $unix_time=time(); ($sec,$min,$hr,$day,$mon,$yr,$wday,$yday,$isdst)=localtime($m_date); $year=$yr+1900; $month=$mon+1; printf ("%-30s %-10d %-12s %-6d %04d/%02d/%02d-%02d:%02d:%02d %-2s %5d %-10s\n",$col[0],$col[1],$col[2],$col[3], $year,$month,$day, $hr,$min,$sec,$NT,$col[6],$col[7]); $count++; } print "\nNo. of matching rows : $count\n"; $q_date=`date '+20%y/%m/%d-%H:%M:%S'`; print "Query Date : $q_date"; print "=====================================================================================================\n\n"; } sub check_arg { local ($arg)=@_; local (@arg,@val); &usage if ($arg !~ /\=/ ); @arg=split (/=/,$arg); &usage if (($arg[1] eq "") || !(($arg[0] eq "state") || ($arg[0] eq "msg") || ($arg[0] eq "cont") || ($arg[0] eq "recip"))); @val=split(/,/,$arg[1]); if ($arg[0] eq "msg") { foreach $x (@val) { push (@msg_query, "r.message_id like '%$x%'"); } $msg_query=join(" or ",@msg_query); $FLAG++; } if ($arg[0] eq "recip") { foreach $x (@val) { push (@recip_query, "recip_addr like '%$x%'"); } $recip_query=join(" or ",@recip_query); $FLAG++; } if ($arg[0] eq "state") { foreach $x (@val) { push (@state, "$x"); } $FLAG++; } if ($arg[0] eq "cont") { foreach $x (@val) { push (@cont, "$x"); } } &usage if ((@cont > 1) || ((@msg_query >= 1) && (@recip_query >=1))); &usage if ((@cont == 1) && ($cont[0] <= 0)); } sub usage { ... } http://www.nntp.perl.org/group/perl.beginners.cgi/2008/07/msg13221.html Wed, 16 Jul 2008 12:50:15 +0000 Determine upload file type (4 messages) I need to write a cgi program to enable our users to upload files using the web browser, but I am not sure how to figure out the type of file the user wants to upload (e.g text or binary file). Can CGI.pm accomplish this automatically? Any suggestions welcome. Mimi http://www.nntp.perl.org/group/perl.beginners.cgi/2008/06/msg13217.html Fri, 20 Jun 2008 03:43:53 +0000 Standard CGI module vs CGI::Fast/CGI::Simple (2 messages) Hi, I will be developing a database backed CGI application and now looking into CPAN modules to use. Now my idea is to find people who have experience using the modules I am considering to hear their opinion. For instance, I normally write a subroutine which prints the overall layout of all my pages, so each time I need to sent a page to the user I call the subroutine to pass some values to print the page (see example): sub print_layout { $x = @_; print # print html header here print "$x\n"; print # print html footer here } Now I read of CGI::Fast, CGI::Simple and Mason. Question, are these modules easy to understand and use? Sometimes it take too long to get a module installed and ready to use, and then comes the documentation etc. Can someone who has experience with Fast CGI, CGI::Simple or Mason comment on these? I had a quick look at CGI::Simple docs and it looks almost like the standard CGI module by Lincoln Stein, so why should this be use? CGI::Session also looks like Apache::Session. My application attract lot of traffic and should grow very fast, so I am looking to plan properly now in order to increase maintainability in the future. The web site will generate thumbnails on the fly and speed is crucial due to high traffic. Any suggestion from experienced CGI developers will be appreciated. Mimi http://www.nntp.perl.org/group/perl.beginners.cgi/2008/06/msg13215.html Tue, 17 Jun 2008 06:37:14 +0000 Module for fast CGI application (Templating) (1 message) Hi, I will be developing a database backed CGI application and now looking into CPAN modules to use. Now my idea is to find people who have experience using the modules I am considering to hear their opinion. For instance, I normally write a subroutine which prints the overall layout of all my pages, so each time I need to sent a page to the user I call the subroutine to pass some values to print the page (see example): sub print_layout { $x = @_; print # print html header here print "$x\n"; print # print html footer here } Now I read of CGI::Fast, CGI::Simple and Mason. Question, are these modules easy to understand and use? Sometimes it take too long to get a module installed and ready to use, and then comes the documentation etc. Can someone who has experience with Fast CGI, CGI::Simple or Mason comment on these? I had a quick look at CGI::Simple docs and it looks almost like the standard CGI module by Lincoln Stein, so why should this be use? CGI::Session also looks like Apache::Session. My application attract lot of traffic and should grow very fast, so I am looking to plan properly now in order to increase maintainability in the future. The web site will generate thumbnails on the fly and speed is crucial due to high traffic. Any suggestion from experienced CGI developers will be appreciated. Mimi http://www.nntp.perl.org/group/perl.beginners.cgi/2008/06/msg13214.html Tue, 17 Jun 2008 03:50:59 +0000 mod_perl compilation?!?!? (1 message) regards everybody got my perl-5.10.0 compiled with prefix /test as well as apache now, I'd think, simple mod_perl compilation, right? /test/bin/perl Makefile.pl MP_APXS=/test/sbin/apxs well, huh, works fine, no errors module lands into apache's module folders, gets dynamically loaded into apache, fine but!! when I go to myhost/perl-status I get perl-5.8.8 which is my distro's version how come? had to guess - my mistake during perl compilation? if yes - how to compile mod_perl without recompiling whole perl? is there a tool that gives info/looks into module itself? any help/suggestions greatly appreciated cheers ____________________________________________________________________________________ Any questions? Get answers on any topic at www.Answers.yahoo.com. Try it now. http://www.nntp.perl.org/group/perl.beginners.cgi/2008/06/msg13213.html Wed, 11 Jun 2008 09:06:02 +0000 Simple Question... I hope (5 messages) Ok, I'm uploading a file to a 3rd party. The file is being uploaded to an https site with a cgi extension. The 3rd party finally provided me with a snippet of their Perl code. They see the attempt coming through, but there is no data. I understand how all this works... i think there's just a dot i'm not connecting somewhere. PLEASE HELP... Thanks in advance!!! In my html file I have... File: <INPUT TYPE="file" NAME="XML_DATA" size="47"> <INPUT TYPE="submit" NAME="submitButtonName" VALUE="Submit Query"> See below: Here is the Perl snippet of what they're doing... my $query = new CGI; my (@data) = $query->param; my (%data,$key); foreach $key (@data) { $data{$key} = $query->param($key); &logXmlOrder ("key($key) data($data{$key})"); } read(STDIN,$xmlcontent,$ENV{'CONTENT_LENGTH'}); &logXmlOrder ("Content=$xmlcontent"); Here is what they're telling me is logged on their side: key(submitButtonName) data(Submit Query) Content= http://www.nntp.perl.org/group/perl.beginners.cgi/2008/06/msg13208.html Wed, 04 Jun 2008 01:40:53 +0000 Could not open testfile.txt: No such file or directory (3 messages) Still cannot see why Perl complains that Could not open file for reading. File or directory does exist. I have modified my script and now using Getopt::Long module instead of the @ARGV variable. Can someone take a look? The script is now run with command line options like this: myscript --master --compare file_name --compare another_file Here is a section of the script use strict; use warnings; #use diagnostics; use Getopt::Long; use constant DEFAULT_REPORTDIR => ".\\compare_report"; my $master_list = ""; my @compare_lists = ""; my $help = ""; Getopt::Long::Configure ("ignorecase"); GetOptions( "master=s" => \$master_list, "compare:s" => \@compare_lists, "help|?!" => \$help, ); usage() if $help; @compare_lists = split(' ',join(' ',@compare_lists)); foreach (@compare_lists){ die "File $_ does not exist or it's empty. Please check the file try again.\n" unless -s $_; } ################################ #foreach (@compare_lists){print "$_\n";} # This prints the CLI arguments correctly. ################################# my $outputdir = DEFAULT_REPORTDIR; unless (-d $outputdir){ mkdir ($outputdir) or die "could not create dir for $outputdir: $!\n"; } # Read the master list and populate our array. open (MASTERFILE, "<", $master_list) or die "Could not open $master_list for reading: $!\n"; my @master_clients = <MASTERFILE>; close MASTERFILE; ############################## #print "master list starts below:\n"; #foreach (@master_clients){print "$_\n";}exit; ###################################### my (%inputclient,$list); # Read the other files and compare the content to the master client list. foreach $list (@compare_lists){ # Output file name set of element curerently processed. # Open file to read from. open(INPUTFH, "<", $list) or die "Could not open $list for reading: $!\n"; # Could not open file for reading. File or directory does exist. while (<INPUTFH>){ chomp; $inputclient{"s_"} = $_; } close INPUTFH; #$outputfile = "NOT_IN" . "$outputfile"; my $outputfile = $list; my (@missing_clients, %outputclient); open (OUTPUTFILE, ">", $outputfile) || die "Could not open $outputfile: $!\n"; foreach my $aditem (@master_clients){ push (@missing_clients, $aditem) unless exists $inputclient{"$aditem"}; } On 29/05/2008, Mimi Cafe <mimicafe@googlemail.com> wrote: > > > I am on Windows so it should not be case-sensitive. The script and all >> required files in one folder. I pass 3 arguments to the script (script.pl >> file1 file2 file3)and I can open the first file stored in $ARGV[0] as seen >> below: >> >> my $ad_clients = shift @ARGV; >> >> open (ADFILE, "<", $ad_clients) or die "Could not open $ad_clients for >> reading: $! \n"; # This works fine! >> my @ad_clients = <ADFILE>; >> close ADFILE; >> >> my %inputclient; >> >> foreach my $supplied (@ARGV){ >> open (INPUTFILE, "<", $supplied) or die "Could not open $supplied for >> reading: $!\n # This does not works! Error: No such file or directory >> > Mimi > >> >> >> >> >> On 29/05/2008, Ken Foskey <foskey@tpg.com.au> wrote: >>> >>> On Thu, 2008-05-29 at 11:45 +0100, Mimi Cafe wrote: >>> >>> my script is in the same directory as my files, but it cannot find the file >>> ABC.txt in open() below. >>> >>> foreach my $supplied (@ARGV){ >>> # Output file name set of element currently processed. >>> >>> # Open file to read from. >>> open (INPUTFILE, "<", "$supplied") or die "Could not open $supplied: $!\n"; >>> # Error: No such file or directory. >>> } >>> >>> Any help >>> >>> Mimi >>> >>> >>> >>> for starters you might want to look at the <> operator: >>> >>> while( <> ) { >>> } >>> >>> Will read each file on the command line in sequence, saves you thinking >>> about it. >>> >>> If it is Unix it is case sensitive, is this your problem? >>> >>> Are you actually in the directory? `bin/myscript.pl bin/ABC.txt` >>> >>> >>> >> >> > http://www.nntp.perl.org/group/perl.beginners.cgi/2008/05/msg13205.html Fri, 30 May 2008 05:04:59 +0000 Using a CMS with cgi scripts (2 messages) Hello I have begun to use a CMS/web development tool named Joomla and I was wondering if you had any information on implementing perl/cgi scripts into this CMS or if there is another CMS that would be better to use if i needed to use cgi and perl. Any help would be appreciated, Justin http://www.nntp.perl.org/group/perl.beginners.cgi/2008/05/msg13203.html Thu, 29 May 2008 08:40:19 +0000 Include PHP file inside the cgi script (3 messages) Hi all, Is it possible to include php file inside the cgi script?? I need defined php variable (from php files) inside the cgi script.. how can i achieve that?? Thanks, Siva http://www.nntp.perl.org/group/perl.beginners.cgi/2008/05/msg13200.html Sun, 25 May 2008 21:18:08 +0000 a bit of apache + fcgid (1 message) egards everybody just subscribed, and as always for simple reason - a problem as in subject, php is just fine but perl script, apache does not implement suexec, apache uses fcgid_module (static) whereas below lines are fine from within shell, apache+fcgid do not want to work #! /usr/bin/perl use FCGI; my $request = FCGI::Request(); while($request->Accept() >= 0) { print "Content-type: text/html\n\n"; print "<H1>Hello World!</H1>"; } exit 0; causes following line to appear in logs: [Fri Apr 25 10:28:43 2008] [info] mod_fcgid: /opt/var/www/forum/check-perl.pl spawn score 13 >= 10, skip the spawn request [Fri Apr 25 10:28:44 2008] [info] mod_fcgid: /opt/var/www/forum/check-perl.pl spawn score 12 >= 10, skip the spawn request [Fri Apr 25 10:28:47 2008] [notice] mod_fcgid: process /opt/var/www/forum/check-perl.pl(10203) exit(server exited), terminated by calling exit(), return code: 255 and.. [Fri Apr 25 10:28:41 2008] [debug] arch/unix/fcgid_proc_unix.c(525): (111)Connection refused: mod_fcgid: can't connect unix domain socket: /opt/etc/httpd/run/mod_fcgid/10007.17 [Fri Apr 25 10:28:42 2008] [debug] arch/unix/fcgid_proc_unix.c(525): (111)Connection refused: mod_fcgid: can't connect unix domain socket: /opt/etc/httpd/run/mod_fcgid/10007.18 [Fri Apr 25 10:28:44 2008] [warn] mod_fcgid: can't apply process slot for /opt/var/www/forum/check-perl.pl I even changed parent folder's (where socket files are kept) permissions to a+rw, it was o+rwx,a-rwx, did not help please advise cheers ___________________________________________________________ Try the all-new Yahoo! Mail. "The New Version is radically easier to use" The Wall Street Journal http://uk.docs.yahoo.com/nowyoucan.html http://www.nntp.perl.org/group/perl.beginners.cgi/2008/04/msg13199.html Mon, 28 Apr 2008 03:39:36 +0000 Variable empty in try block (2 messages) Hi, Im unsure if this is 100% the correct list, but I am using Perl to form dynamic web pages (CGI afaik?) so I'll give it a shot. I have a script which implements a try-catch block. Before entering the try portion of this block, I am defining a variable and placing some content into it, which is a hash table. The problem seems to be that when I go to access this variable inside the try block, and subsequently any catch blocks, or the otherwise block, the variable seems to be empty. Here is a snip of the code I am using: my $session = new App($query, $thisModule); try { $session->{AccessControl}->checkAccess(); &$method($session); } catch App::AccessControlException with { my $e = shift; print "Content-type: text/plain\n\n"; print "An access control exception has occurred.\n\n"; print Dumper($e); } otherwise { my $e = shift; print "Content-type: text/plain\n\n"; print "An error has occurred."; print Dumper($e); } The first line creates a new instance of an object which contains some runtime variables and other content based on the request being performed. If I chuck the following line in immediately after the first line: warn(Dumper($session)); I see the following in my webserver log file: $VAR1 = bless( { 'thisModule' => 'module', 'Request' => { 'params' => [ 'b', 'c' ], 'what' => 'a' }, 'cgiQuery' => bless( { '.parameters' => [], 'use_tempfile' => 1, '.charset' => 'ISO-8859-1', '.fieldnames' => {}, 'escape' => 1 }, 'CGI' ) }, 'App' ); This is fine, its what I want to see. But if I place this Dumper line inside the try block, I only see the following: $VAR1 = bless( {}, 'App' ); So it appears that the variable has no content inside the try block. I dont see any complaints about the variable being undefined, so it obviously exists, just not its content. Can anyone think of a reason, or does anyone know the reason, why this would be occurring? Let me know if any further details are needed, or if you know of a better list to post this question. Thanks, Tom http://www.nntp.perl.org/group/perl.beginners.cgi/2008/04/msg13197.html Sun, 27 Apr 2008 07:35:13 +0000 Opening a File in its Native Application (6 messages) Hi, I would like to open a file in it's native application. It doesn't have a specified extension, however, so I would need to specify the application somehow. I saw system("start docname") but this doesn't specify the application. Thank you, Lynn ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ http://www.nntp.perl.org/group/perl.beginners.cgi/2008/04/msg13191.html Wed, 23 Apr 2008 17:34:36 +0000 Insecure dependency in eval message (2 messages) Hi, I am a Perl CGI beginner. I am trying to construct perl statements to do depending on user input, and interpret them at runtime using eval. I execute these commands by writing eval $commandString; where $commandString is constructed as per user input. if $commandString="simpleSubroutine();" my eval works well, but if $commandString="notSoSimpleSubroutine(\"$string1\", \"$string2\");" my eval bombs with the following message: Insecure dependency in eval while running with -T switch at /var/www/ CGI/process.cgi line 92. Line 92 points to the line eval $commandString; Any pointers on what is going on? I have read about unsafe characters, and tried the following: $safeCommand=uri_escape($commandString); eval $commandString; (that does not work). I have also tried substituting $string1 and $string2 with literals. I.e., I tried $commandString="notSoSimpleSubroutine(\"delta\", \"gamma\");" and that works just fine. So I gathered that the eval could be bombing because, perhaps variables ($string1 and $string2) above are not safe? However, I need the flexibility of using $string1 and $string2. Any workaround? Any help is greatly appreciated. Thanks. http://www.nntp.perl.org/group/perl.beginners.cgi/2008/04/msg13189.html Sun, 13 Apr 2008 17:53:52 +0000 Sendmail (3 messages) my $email = populateEmail("test"); print $email; open(SENDMAIL, "|/usr/lib/sendmail -oi -t -i") or print "cannot open SENDMAIL: $!"; print SENDMAIL <<"EOF"; From: <deepan\@juniper.net> To:${email} Subject: [SUSTAINING TICKET] Case Content-type: text/html testing.. EOF close(SENDMAIL); When i a using the above code it results in "No recipient address found in header" and when i replace ${email} with "dpr.17\@gmail.com" ie To : dpr.17\@gmail.com it works fine. populateEmail function's code is available below: populateEmail { if(lc($_[0]) eq "test") { return ("deepan.ignatius\@gmail.com"); } } Can anyone spot the bug? http://www.nntp.perl.org/group/perl.beginners.cgi/2008/04/msg13185.html Thu, 10 Apr 2008 02:53:49 +0000 how to refresh between different pages of the same script (5 messages) I have to modify a script to upload different data to a server, until now i did and script that ask you a question and capture the variable into a hash (see below), now, i would like to modify it and make something that allows me to ask different questions using the same script how can i do this? Thanks #! /usr/bin/perl #use strict; use CGI::Ajax; use CGI; my $q = new CGI; my $concatter = sub { my $buffer = $ENV{'QUERY_STRING'}; my @pairs = split( /&/, $buffer ); foreach my $pair (@pairs) { my ( $name, $value ) = split( /=/, $pair ); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $Variables{$name} = $value; } print "<html><head></head><body>"; foreach (%Variables) {print "$_\n"} print "</head></html>"; return ; }; my $Show_Form = sub { my $html = ""; $html = <<EOT <HTML> <HEAD><title>CGI::Ajax Multiple Return Value Example</title> </HEAD> <BODY> <input type="hidden" id="item" size="6"> <input type="hidden" id="namedItem" size="6"> <form> <input type="text" id="val1" size="6"> <button onclick='jsFunc(formDump());return false' > Submit </button> </form> </BODY> </HTML> EOT ; return $html; }; my $Show_Form2 = sub { my $html = ""; $html = <<EOT <HTML> <HEAD><title>CGI::Ajax Multiple Return Value Example</title> </HEAD> <BODY> <h1>form2</h1> </BODY> </HTML> EOT ; return $html; }; my $pjx = CGI::Ajax->new( 'jsFunc' => $concatter); $pjx->JSDEBUG(1); $pjx->DEBUG(1); print $pjx->build_html($q,$Show_Form); # this outputs the html for the page -- Pau Marc Muñoz Torres Laboratori de Biologia Computacional Institut de Biotecnologia i Biomedicina Vicent Villar Universitat Autonoma de Barcelona E-08193 Bellaterra (Barcelona) telèfon: 93 5812807 Email : paumarc.munoz@bioinf.uab.cat http://www.nntp.perl.org/group/perl.beginners.cgi/2008/04/msg13181.html Tue, 08 Apr 2008 07:59:41 +0000 Extracting TD's from a Text File (Regex Help). (4 messages) ################ TEXT FILE ################## <td class="PhorumTableRowAlt thread" style="padding-left: 0px"> <a href="http://mysite.com/link/here_goes?id=239">LINK</a> &nbsp;</td> <td class="PhorumTableRowAlt" nowrap="nowrap" width="150"> <a href="http://mysite.com/link/here_goes?id=239">LINK</a> </td> <td class="PhorumTableRowAlt PhorumSmallFont" nowrap="nowrap" width="150">06/11/2007 12:29AM </td> </tr> ############################################ The text file contains hundreds of tds structure like above. All I need is to extract the td with class "PhorumTableRowAlt thread". I have tried every possible option, but finally I am coming to you for any Regex for it? TIA. HERE IS WHAT I AM DOING: pen(TXT, "links.txt") or die "Unable to open file"; my @links = <TXT>; close (TXT); foreach my $link(@links) { if ($link =~ m|<td class="PhorumTableRow thread" style="padding-left: 0px">(.*?)</td>|gsi) { print "$1";} } But NOTHING coming up. No results. Thanks for any help. Sara. http://www.nntp.perl.org/group/perl.beginners.cgi/2008/04/msg13177.html Tue, 08 Apr 2008 05:22:25 +0000 DeletePage (2 messages) Hi all, I am having a submit button and upon clicking it i am asking the user for confimation [for this i have used javascript]. When the user selects yes i should be able to call another subroutine. But i am going wrong somewhere. Here's the code for your reference. Please help me to solve this. Thanks! #!/usr/bin/perl -w use strict; use CGI; &main(); exit(0); sub main { my $cmd = CGI::param('cmd'); &mainPage() if($cmd eq ""); &deletePage() if($cmd eq "true"); } sub mainPage { print "Content-type: text/html\n\n"; print "<title>Documents</title>\n"; print "<link href=style.css rel=stylesheet type=text/css>\n"; print <<HTML; <head> <script type='text/javascript'> function change() { var confirm_delete = confirm("sure?"); if(confirm_delete == true) window.location = window.location.protocol + '//' +window.location.host + window.location.pathname + "?cmd=" + confirm_delete; else { alert("Delete action cancelled!"); window.location.reload(); } } </script> </head> HTML print "<body>\n"; print <<HTML; <form action=files.cgi method="POST"> <input type=hidden name=cmd value=delete> <input type=hidden name=filedir value=up> <input type=hidden name=filename value=down> <input type=submit value=Delete onclick = change()> </form> HTML } sub deletePage { print "File was deleted successfully! "; } http://www.nntp.perl.org/group/perl.beginners.cgi/2008/03/msg13175.html Tue, 18 Mar 2008 01:56:18 +0000 Re: dinamic cgi with perl (2 messages) On Saturday March 15 2008 12:57 am, Pau Marc Munoz Torres wrote: > Hi everybody > > i got a program that works in a bash environment, and now, i would like to > make a cgi with it, the objective for this program is check the integrity > of the info provided by some text files and if it finds some error ask you > for some info and i would like to be able to introduce it. > > To solve it i was thinking on introduce a javascript code into my cgi, but > i don't know how to pass the variable info between perl and javascript. > > > could any of you tell me how to do it or give me any idea or give me a > solution of how do it? > > thanks > > pau > -- > Pau Marc MuÃ±oz Torres > > Laboratori de Biologia Computacional > Institut de Biotecnologia i Biomedicina Vicent > Villar > Universitat Autonoma de Barcelona > E-08193 Bellaterra (Barcelona) > > telÃ¨fon: 93 5812807 > Email : paumarc.munoz@bioinf.uab.cat you could try and use AJAX to access a perl script via the CGI then have that script return a JSON formatted string to the caller java script then evaluate that string as a javascript code sniplet. Greg http://www.nntp.perl.org/group/perl.beginners.cgi/2008/03/msg13174.html Sat, 15 Mar 2008 14:12:45 +0000 Suggestions for a simple configuration management web application (4 messages) Hey all, I am trying to find a simple, modular web based configuration application and am having a little trouble. Basically, I need something to do some simple configurations on an appliance similar to something like a laser printer. You know the little web based menu you get when you hit your local Lexmark C530dn or HP LaserJet and it allows you to change the IP address, set the printer name, and get some feedback on how many pages you've printed? That's what I want. I tried to look at webmin and possibly building my own modules, but I'm based on Debian and webmin has fallen out of favor. My next thought was to write a little something, possibly based on TemplateToolkit but that seems a little excessive. I also played around with the idea of ripping the GUI out of m0n0wall and using it to base my stuff on, but that didn't seem very clean. I would rather use and contribute to something that is pre-existing in the OSS world than to start my own project. My time is limited and I'm not that great of a programmer. :) Anyway, it's hard to believe that no-one has ever created a simple little web app that can be extended with modules. Do you know of anything that I could use as a jumping off point? Thanx! Richard http://www.nntp.perl.org/group/perl.beginners.cgi/2008/03/msg13169.html Tue, 11 Mar 2008 15:29:28 +0000 Undefined subroutine: if (param('admin') eq "y") (3 messages) I'm using the Web Developer Server Suite - Community Edition pretty much out of the box on WindowsXP. This script worked fine on a LAMP system although I am not sure what Apache modules were loaded. I am beginning to wonder if I am missing some configuration to allow: if (param('admin') eq "y") ERROR Software error: Undefined subroutine &main::param called at C:/www/vhosts/localhost/ cgi-bin/stafio.pl line 33. SCRIPT #!C:/www/perl/bin/perl.exe use CGI::Carp qw(fatalsToBrowser); # organizational In/Out board # configuration data require 'C:/www/perl/lib/datapath/stafio.ph'; # turn debugging output on and off with parameter #$debugging = (param('debug')) ? 1 : 0; #print header; # Do refresh and css in header as is proper #print start_html(-title=>"Staff In/Out for $Organization", #-style=>{'src'=>"C:/www/Apache22/manual/style/css/manual.css"}, #-head=>meta({-http_equiv=>'refresh',-content=>'60'}) #); # get user information into memory %users = &get_users(); if (param('admin') eq "y") { # admin interface. add/delete users if (param('apswd')) { # got a password. validate it if (param('apswd') eq $AdminPass) { # good password, check for add or delete if (param('userID')) { &put_a_user( param('userID'), param('pswd'), param('name'), param('extension'), param('location'), param('return'), param('email'), param('locstring'), param('aim')); %users = &get_users(); &display_inOut_board( %users ); } else { @val = param('delme'); foreach (@val) { $FILE = "$Datapath/$_.$Ext"; unlink( $FILE ); } %users = &get_users(); &display_inOut_board( %users ); } } else { # report invalid administrative password print <<"EOF" <H1>Invalid Password</H1> The password entered is incorrect. Use your browser's back function to try again. EOF } } else { # put up form to do something, including getting admin password &admin( ); } } else { if (param('userID')) { if (param('pswd')) { # we were sent a password, validate it and change status if (isValidPswd($users{param('userID')}{'pswd'},param('pswd'))) { # change status &put_a_user( param('userID'), $users{param('userID')}{'pswd'}, $users{param('userID')}{'name'}, $users{param('userID')}{'extension'}, param('location'), param('return'), $users{param('userID')}{'email'}, param('locstring'), $users{param('userID')}{'aim'} ); %users = &get_users(); &display_inOut_board( %users ); } else { # report invalid password print <<"EOF" <H1>Invalid Password</H1> The password entered is incorrect. Use your browser's back function to try again. EOF } } elsif (param('newpswd')) { if (param('newpswd2')) { # we've got new password, confirm and rewrite if (isValidPswd($users{param('userID')} {'pswd'},param('oldpswd'))) { # check new passwords match if (param('newpswd') eq param('newpswd2')) { # rewrite user record &put_a_user( param('userID'), param('newpswd'), param('name'), param('extension'), param('location'), param('return'), param('email'), param('aim') ); %users = &get_users(); &display_inOut_board( %users ); } else { # report mismatched new passwords print <<"EOF" <H1>Mismatched New Passwords</H1> The new passwords do not match. Use your browser's back function to try again. EOF } } else { # report invalid password print <<"EOF" <H1>Invalid Password</H1> The old password is incorrect. Use your browser's back function to try again. EOF } } else { # put up form to get a new password for the user &change_password( param('userID'), $users{param('userID')}{'pswd'}, $users{param('userID')}{'name'}, $users{param('userID')}{'extension'}, $users{param('userID')}{'location'}, $users{param('userID')}{'return'}, $users{param('userID')}{'email'}, $users{param('userID')}{'aim'} ); } } else { # no password, just a userID, so we need to put up a form # to let user change location and return &change_status(param('userID'), $users{param('userID')} {'email'}); } } else { &display_inOut_board( %users ); } } #end if (admin)...else print end_html; exit; ### subroutines ### sub admin # administration form, add/delete users { # my( ) = @_; ## Add a user print start_form(-method=>"post", -action=>"stafio.pl"); print <<"EOF"; <INPUT TYPE="hidden" NAME="admin" VALUE="y"> <INPUT TYPE="hidden" NAME="do" VALUE="add"> <TABLE> <TR><TH>Add a User</TH><TD>Admin Password:<INPUT TYPE="password" NAME="apswd" VALUE="" SIZE=20 MAXLENGTH=20></TD></TR> <TR><TD ALIGN=RIGHT>User ID</TD><TD><INPUT TYPE="text" NAME="userID" VALUE="$userID" SIZE=25></TD></TR> <TR><TD ALIGN=RIGHT>User Name</TD><TD><INPUT TYPE="text" NAME="name" VALUE="$name" SIZE=25></TD></TR> <TR><TD ALIGN=RIGHT>Phone Extension</TD><TD><INPUT TYPE="text" NAME="extension" VALUE="$extension" SIZE=10></TD></TR> <TR><TD ALIGN=RIGHT>AIM Address</TD><TD><INPUT TYPE="text" NAME="aim" VALUE="$aim" SIZE=25></TD></TR> <TR><TD ALIGN=RIGHT>Email Address</TD><TD><INPUT TYPE="text" NAME="email" VALUE="$email" SIZE=25></TD></TR> <TR><TD ALIGN=RIGHT>Password</TD><TD><INPUT TYPE="password" NAME="pswd" VALUE="" SIZE=20 MAXLENGTH=20></TD></TR> <TR><TD ALIGN=RIGHT>Location</TD><TD> <SELECT NAME="location"> EOF foreach( @Locations ) { print "<OPTION> $_\n"; } print <<"EOF"; </SELECT></TD></TR> <TR><TD ALIGN=RIGHT>Other Location Text</TD><TD><INPUT TYPE="text" NAME="locstring" VALUE="" SIZE=25></TD></TR> <TR><TD ALIGN=RIGHT>Return by</TD><TD><INPUT TYPE="text" NAME="return" VALUE="" SIZE=10></TD></TR> </TABLE> <INPUT TYPE="submit" NAME="submit" VALUE=" OK "> </FORM> EOF ## Delete a user print start_form(-method=>"post", -action=>"stafio.pl"); print <<"EOF"; <INPUT TYPE="hidden" NAME="admin" VALUE="y"> <INPUT TYPE="hidden" NAME="do" VALUE="del"> <TABLE> <TR><TH>Delete</TH><TD>Admin Password:<INPUT TYPE="password" NAME="apswd" VALUE="" SIZE=20 MAXLENGTH=20></TD></TR> EOF foreach $usr ( sort keys %users ) { print <<"EOF"; <tr> <TD><INPUT TYPE=CHECKBOX NAME="delme" VALUE="$usr"></TD><TD> $users{$usr}{'name'}</TD> </tr> EOF } print <<"EOF"; </TABLE> <INPUT TYPE="submit" NAME="submit" VALUE=" OK "> </FORM> EOF } # end admin sub change_password # user gets a form to change password { my ($userID, $pswd, $name, $extension, $location, $return, $email, $aim) = @_; print h1("Change Password"); print start_form(-method=>"post", -action=>"stafio.pl"); print <<"EOF"; <INPUT TYPE="hidden" NAME="userID" VALUE="$userID"> <INPUT TYPE="hidden" NAME="name" VALUE="$name"> <INPUT TYPE="hidden" NAME="extension" VALUE="$extension"> <INPUT TYPE="hidden" NAME="aim" VALUE="$aim"> <INPUT TYPE="hidden" NAME="location" VALUE="$location"> <INPUT TYPE="hidden" NAME="return" VALUE="$return"> <INPUT TYPE="hidden" NAME="email" VALUE="$email"> <TABLE> <TR><TD ALIGN=RIGHT>Old Password</TD><TD><INPUT TYPE="password" NAME="oldpswd" VALUE="" SIZE=20 MAXLENGTH=20></TD></TR> <TR><TD ALIGN=RIGHT>New Password</TD><TD><INPUT TYPE="password" NAME="newpswd" VALUE="" SIZE=20 MAXLENGTH=20></TD></TR> <TR><TD ALIGN=RIGHT>Confirm Password</TD><TD><INPUT TYPE="password" NAME="newpswd2" VALUE="" SIZE=20 MAXLENGTH=20></TD></TR> </TABLE> <INPUT TYPE="submit" NAME="submit" VALUE=" OK "> </FORM> EOF } # end change_password sub change_status # user gets form to change location and/or return time { my ($userID, $email) = @_; print h1("Change Status"); print "<a href=\"stafio.pl?userID=$userID&newpswd=1\">Change Password</a>\n"; print start_form(-method=>"post", -action=>"stafio.pl"); print <<"EOF"; <INPUT TYPE="hidden" NAME="userID" VALUE="$userID"> <INPUT TYPE="hidden" NAME="email" VALUE="$email"> <TABLE> <TR><TD ALIGN=RIGHT>User</TD><TD>$userID</TD></TR> <TR><TD ALIGN=RIGHT>Password</TD><TD><INPUT TYPE="password" NAME="pswd" VALUE="" SIZE=20 MAXLENGTH=20></TD></TR> <TR><TD ALIGN=RIGHT>Location</TD><TD> <SELECT NAME="location"> EOF foreach( @Locations ) { print "<OPTION> $_\n"; } print <<"EOF" </SELECT></TD></TR> <TR><TD ALIGN=RIGHT>Other Location Text</TD><TD><INPUT TYPE="text" NAME="locstring" VALUE="" SIZE=25></TD></TR> <TR><TD ALIGN=RIGHT>Return by</TD><TD><INPUT TYPE="text" NAME="return" VALUE="" SIZE=10></TD></TR> </TABLE> <INPUT TYPE="submit" NAME="submit" VALUE=" OK "> </FORM> EOF } # end change_status sub display_inOut_board # display table of user data { my %users = @_; # # print "<meta http-equiv=\"Refresh\" content=\60\">\n"; # print "</HEAD>\n"; # # print "<center>\n"; print h1("$Organization Staff I/O Board"); # print h1("$Organization"), # h2("In / Out Board" ); print <<"EOF"; <table width="90%"> <tr> <th>Name</th> <th width=12>Extension</th> <th>Location</th> <th>Returning</th> <th>AIM</th> </tr> EOF foreach $usr ( sort keys %users ) { print <<"EOF"; <tr> <td><a href="mailto:$users{$usr}{'email'}">$users{$usr}{'name'}</ a></td> <td align=center>$users{$usr}{'extension'}</td> <td><a href="stafio.pl?userID=$usr">$users{$usr}{'location'}</a></ td> <td align=center>$users{$usr}{'return'}</td> <td align=center>$users{$usr}{'aim'}</td> </tr> EOF } # print "</table>\n"; print " \n"; print h2("<A HREF=\"http://www.xxxxxxx/\">Staff directory</A>\n"); # print "</center>\n"; } # end display_inOut_board sub get_a_user # retrieve data for one user { my( $file ) = @_; my ($userID, $pswd, $name, $extension, $loc, $time, $email, $aim); $FILE = "$Datapath/$file"; open( IN, "<$FILE" ) || &try_later(1); foreach( <IN> ) { ($userID) = ($file =~ /(.*)\.$Ext/); ($pswd, $name, $extension, $loc, $time, $email, $aim) = split( $Delim, $_ ); } close( IN ); return( $userID, $pswd, $name, $extension, $loc, $time, $email, $aim ); } # end get_a_user sub get_users # get user data into a hash of hashes, keyed on userID { my( %u ) = (); my ( @files, $file, $userID, $pswd, $name, $extension, $loc, $time, $email, $aim ); opendir DATADIR, $Datapath || &try_later(2); @files = grep /$Ext$/, readdir DATADIR; closedir DATADIR; foreach $file (@files) { ( $userID, $pswd, $name, $extension, $loc, $time, $email, $aim ) = &get_a_user( $file ); $u{$userID}{'pswd'} = $pswd; $u{$userID}{'name'} = $name; $u{$userID}{'extension'} = $extension; $u{$userID}{'location'} = $loc; $u{$userID}{'return'} = $time; $u{$userID}{'email'} = $email; $u{$userID}{'aim'} = $aim; } return( %u ); } # end get_users sub isValidPswd # validate password against userID # return 1 (true) if password is valid { my( $u, $p ) = @_; my( $return ) = 0; if ($p eq $BossPass) { $return = 1; } else { $return = ($u eq $p) ? 1 : 0; } return( $return ); } # end isValidPswd sub put_a_user # write new data for one user { my( $userID, $pswd, $name, $extension, $loc, $return, $email, $locstr, $aim ) = @_; $locstr =~ tr/ / /s; $locstr = "unknown" unless (length( $locstr ) > 1); $loc = $locstr if ($loc eq "Other"); $return = " - " unless ($return); $FILE = "$Datapath/$userID.$Ext"; open( OUT, ">$FILE") || &try_later(3); print OUT "$pswd$Delim$name$Delim$extension$Delim$loc$Delim$return $Delim$email$Delim$aim"; close( OUT ); } # end put_a_user sub try_later # minimal error handling { local($errnum) = @_; print h2("Unable to open $FILE for reading: $!") if $errnum == 1; print h2("Unable to find data files: $!") if $errnum == 2; print h2("Unable to open $FILE for writing: $!") if $errnum == 3; print h2("Please try again later."); print end_html; exit; } # end try_later http://www.nntp.perl.org/group/perl.beginners.cgi/2008/02/msg13166.html Wed, 20 Feb 2008 03:04:15 +0000 Send a file (2 messages) Hi, I am trying to send a file in response to a request but am having trouble. Here's what I have so far. I am not certain what the headers should be. I am not getting any more info from my error_log except Premature end of script headers. my $s = (stat($file))[7]; my $filename = $user.'.csv'; seek $fh,0,0; print header(-type=>"text/tab-separated-values",-Content_length=>$s, -Content_Disposition=>"attachment;filename=$filename"); print $fh; close($fh); Can anyone offer some advice? Thanx, Dp. http://www.nntp.perl.org/group/perl.beginners.cgi/2008/02/msg13164.html Tue, 19 Feb 2008 04:15:38 +0000 Re: Process Directory and subdirectories Recursively (4 messages) On Jan 28, 2008 6:56 AM, Mimi Cafe <mimicafe@googlemail.com> wrote: > Hi, > > I am trying to process a directory and all subdirectory recursively and > generate a list as the Unix command "ls -R" will display, but this seems not > to behave as it should. > My script only goes as far as processing the directory and the 1 step below > not more. > > I have some like, but the script goes as far as 1_child and 2_child but no > further: > /parent/1_child/1_grant_child/././ > /parent/2_child/2_grant_child/././ > > The script will finally be used on Windows OS, Unix system command cannot > be used. > > Can anyone help? I would suggest trying to use a CPAN module for this type of thing. There may be others, but look at File::Find: http://search.cpan.org/search%3fmodule=File::Find > > ############################################################### > #!/usr/bin/perl -w > > > # Recursively read content of a folder and dynamically create a list on an > html page. > > use CGI qw(:standard); > #use CGI::Carp qw(warningsToBrowser fatalsToBrowser); > #use warnings; > use strict; > > > > print header(), > start_html("Documents list"); > print "<h1> Documents List</h1> \n"; > > my $source = "/depot/my_directory"; > > opendir (SOURCE, $source) or die "Cannot open the source folder for reading: > $!\n"; > > my $file; > while (defined($file = readdir(SOURCE))){ > next if $file =~ /^\.{1,2}$/; > my $full_name = "$source/$file"; > if (-d $full_name){ > #my $full_name = "$source/$file"; > print qq($file ); > process($full_name); > }else{ > print qq(<a href="$full_name>$file</a> ); > } > #next; > } > closedir (SOURCE); > > > print end_html(); > > > > # Subroutine to process subdirectory and list content. > > sub process{ > > my ($path, $file, @files, $file_full_path); > $path = shift; > opendir (SUBDIR, $path) or die "Cannot open the subfolder for reading: > $!\n"; > > @files = sort grep {!/^\.{1,2}$/} readdir(SUBDIR); > closedir (SUBDIR); > > for (@files){ > $file_full_path = "$path/$_"; > > if (-d $_){ > print qq($_ ); > process($_); > > > }else { > > print qq(<a href="$file_full_path">$_</a> ); > > } > > } > > > } > ####################################################### > http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13162.html Mon, 28 Jan 2008 06:46:02 +0000 Re: beginners-cgi Digest 23 Jan 2008 23:10:02 -0000 Issue 991 (1 message) REMOVE FROM EMAIL LIST. STOP!! ----- Original Message ----- From: <beginners-cgi-digest-help@perl.org> To: <beginners-cgi@perl.org> Sent: Wednesday, January 23, 2008 5:10 PM Subject: beginners-cgi Digest 23 Jan 2008 23:10:02 -0000 Issue 991 http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13157.html Thu, 24 Jan 2008 04:31:38 +0000 authorization -> session handling (1 message) Hi Does anyone have any cool and helpful links / URLS for Session Handling and populating a table? I would like to build a page for authorization. Kind Regards Brent Clark http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13156.html Wed, 23 Jan 2008 05:32:06 +0000 Intermittent problems accessing MySQL data (5 messages) I have inherited a site written in perl. Recently an intermittent problem has come up and when users log into the site, they end up seeing other users data. I personally can not reproduce the problem but it has happened enough that I am sure it is more than just a fluke. Does anyone know of any recent changes in perl that could cause this kind of problem? The site is pretty old, I would guess at least 5 years or more since it was written. However the problem has only happened in the last few months. I have no control over the server and am told that updates are applied automatically. BTW I haven't used perl in years so unless someone here has a pretty good idea what to look for, I will most likely be redoing it in php. -- Chris W KE5GIX "Protect your digital freedom and privacy, eliminate DRM, learn more at http://www.defectivebydesign.org/what_is_drm" Ham Radio Repeater Database. http://hrrdb.com http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13151.html Tue, 22 Jan 2008 20:11:54 +0000 Looping Dates. (7 messages) I am stuck here, I want to get list of dates in a certain range. Like: Start Date: 2007-01-03 to End Date: 2007-05-30 I am pointless here as what should I do in order to get all dates between start and end? Is there any for, foreach loop or other method? that will generate a list of dates: 2007-01-03 2007-01-04 2007-01-05 2007-01-06 2007-01-07 .............. and so on to 2007-05-30 Any ideas will be appreciated. Thanks, Sara. http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13145.html Fri, 18 Jan 2008 22:39:46 +0000 Re: uploading a file with perl--->kueri: ------------4CyrMz2ZeGIClwYfFsVdcv Content-Disposition: form-data; name="level" asda ------------4CyrMz2ZeGIClwYfFsVdcv Content-Disposition: form-data; name="major" asda ------------4CyrMz2ZeGIClwYfFsVd....[ve (3 messages) Hi, Patrik. You should probably be using CGI.pm. It will vastly simplify what you are doing. Then, you can read any of a dozen sites on doing file uploads using CGI; see search.cpan.org for the details of using CGI.pm. Sean On Jan 12, 2008 5:54 PM, Patrik Hasibuan <patrikh@penguin-teknologi.com> wrote: > Dear my friends... > > I am still new in perl. > > I am writing perl-cgi application for uploading a file. I did "chmod > 777 ../../artikel". But I get weird displayed message: > " > ueri: ------------4CyrMz2ZeGIClwYfFsVdcv Co........ > î 6êÎ]Ë k&scaron;fþxî£&circ;·¾ ðfS4M3>º {½&Dagger;<Óöù³(R)�¯3çýGèBù= &bdquo;¬È&rsaquo;øR&fnof;..... > &&fnof; ÿ&fnof;&m&Dagger;îø'-n nÊÐJ(pÇ 9çqîÎ......... > Ê ¨&sbquo;¡ÀÜ EÖ�Â z!ª&tilde;Y6�¬úÒ&bdquo;â0J¼"ñË....... > [end so on. very longg.............] > ". > > And no file copied/uploaded in '../../artikel'. But inserting the record > onto > the mysql run properly. > > Please tell me why..... > > Here I have done: > deartikel.cgi-->cgideartikel.cgi-->cgiuploadfile.cgi ('-->' means > 'calls'). > === > deartikel.cgi: > --- > #!/usr/bin/perl -w > #use strict; > use CGI qw(:standard); > use CGI::Carp qw(warningsToBrowser fatalsToBrowser); > > print "Content-type: text/html\n\n"; > print "<html>"; > print "<head>"; > print "</head>"; > print "<body>"; > print " <form method=\"post\" action=\"cgideartikel.cgi\"> "; > print "Title of file <input type=\"text\" name=\"judul\" size=60 > autocomplete=\"ON\"> "; > print "<input type=\"submit\" value=\"Submit to column 'Articles'.\"> > <input type=\"reset\" value=\"Input lagi?\"> > print " </form> "; > print "</body>"; > print "</html>"; > === > cgideartikel.cgi: > --- > #!/usr/bin/perl -w > use CGI qw(:standard); > use CGI::Carp qw(warningsToBrowser fatalsToBrowser); > use DBI; > > print "Content-type: text/html\n\n"; > print "<html>"; > print "<head>"; > print "<title>"; > print "Online Science Org - Data entry kolom karir."; > print "</title>"; > print "</head>"; > print "<body>"; > $pjg=$ENV{"CONTENT_LENGTH"}; > read(STDIN, $kueri, $pjg); > #print "kueri: $kueri "; > @arr_prm=split("&",$kueri); > foreach $myprm(@arr_prm){ > ($namavar,$nilaivar)=split("=",$myprm); > $assprm{$namavar}=$nilaivar; > } > $i=0; > foreach my $nv(keys %assprm){ > print "$nv "; > print "$assprm{$nv} "; > print "i = $i "; > $i++; > } > > $judul=$assprm{'judul'}; > print " <form method=\"post\" action=\"cgiuploadartikel.cgi\" > enctype=\"multipart/form-data\"> "; > print "Judul<input type=\"text\" name=\"judul\" size=60 > autocomplete=\"ON\" > value=\"$judul\" readonly> "; > print "File untuk di-upload"; > print " <input type=\"file\" name=\"url\" size=60 autocomplete=\"ON\"> "; > print "<input type=\"submit\" value=\"Submit to column 'Artikel'.\"> > <input type=\"reset\" value=\"Input lagi?\">"; > print " </form> "; > print "</body>"; > print "</html>"; > &simpan(judul); > > sub simpan{ > my $myjudul=shift; > my $box="localhost"; > my $basisdata="mydb"; > my $db_user_name='root'; > my $db_password='mypw'; > my $dsn="DBI:mysql:$basisdata:$box"; > > my $dbh = DBI->connect($dsn, $db_user_name, $db_password); > my $sqlstr=qq{ > insert into > artikel ( > judul, > ) > values( > '$myjudul' > ) > }; > my $sth = $dbh->prepare($sqlstr); > my $status=$sth->execute(); > if($status){ > $sth->{Commit}; > }else{ > $sth->{RollBack}; > } > $dbh->disconnect; > } > --- > cgiuploadfile.cgi: > --- > #!/usr/bin/perl -w > use CGI qw(:standard); > use CGI::Carp qw(warningsToBrowser fatalsToBrowser); > print "Content-type: text/html\n\n"; > print "<html>"; > print "<head>"; > print "<title>"; > print "Online Science Org - Data entry kolom karir."; > print "</title>"; > print "</head>"; > print "<body>"; > > $pjg=$ENV{"CONTENT_LENGTH"}; > read(STDIN, $kueri, $pjg); > print "kueri: $kueri "; > exit; > @arr_prm=split("&",$kueri); > foreach $myprm(@arr_prm){ > ($namavar,$nilaivar)=split("=",$myprm); > $assprm{$namavar}=$nilaivar; > } > $i=0; > foreach my $nv(keys %assprm){ > print "$nv "; > print "$assprm{$nv} "; > print "i = $i "; > $i++; > } > > $judul=$assprm{'judul'}; > $url=$assprm{'url'}; > print " <form method=\"post\" action=\"cgiuploadartikel.cgi\" > enctype=\"multipart/form-data\"> "; > print " <input type=\"text\" name=\"judul\" size=60 autocomplete=\"ON\" > value=\"$judul\" readonly> "; > print "File untuk di-upload"; > print " <input type=\"file\" name=\"url\" size=60 autocomplete=\"ON\" > readonly> "; > print "<input type=\"submit\" value=\"Submit to column 'Artikel'.\" > disabled> > <input type=\"reset\" value=\"Input lagi?\" disabled>"; > print " </form> "; > print "</td></tr>"; > > my $output_file = "../../artikel/$url"; > my ($bytesread, $buffer); > my $numbytes = 2000; > open (OUTFILE, ">", "$output_file") > or die "Couldn't open $output_file for writing: $!"; > while ($bytesread = read($url, $buffer, $numbytes)) { > print OUTFILE $buffer; > } > close OUTFILE; > > print "</table>"; > print "</body>"; > print "</html>"; > -- > Patrik Hasibuan > Junior Programmer > http://www.penguin-teknologi.com > > -- > To unsubscribe, e-mail: beginners-cgi-unsubscribe@perl.org > For additional commands, e-mail: beginners-cgi-help@perl.org > http://learn.perl.org/ > > > http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13142.html Sun, 13 Jan 2008 05:38:25 +0000 Re: perl for uploading file shows weird characters. (1 message) [ please do not multi-post! ] Patrik Hasibuan wrote: > I am writing perl-cgi application for uploading a file. I did "chmod > 777 ../../artikel". But I get weird displayed message: > " > ueri: ------------4CyrMz2ZeGIClwYfFsVdcv Co........ > î 6êÎ]Ë k&scaron;fþxî£&circ;·¾ ðfS4M3>º {½&Dagger;<Óöù³®�¯3çýGèBù= &bdquo;¬È&rsaquo;øR&fnof;..... > &&fnof; ÿ&fnof;&m&Dagger;îø'-n nÊÐJ(pÇ 9çqîÎ......... > Ê ¨&sbquo;¡ÀÜ EÖ�Â z!ª&tilde;Y6�¬úÒ&bdquo;â0J¼“ñË....... > [end so on. very longg.............] > ". > > And no file copied/uploaded in '../../artikel'. But inserting the record onto > the mysql run properly. > > Please tell me why..... > > Here I have done: Well, the code you posted is far too much to my taste. Please post a _small_ but complete program that illustrates the problem you are having. -- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13141.html Sat, 12 Jan 2008 15:31:22 +0000 uploading a file with perl--->kueri: ------------4CyrMz2ZeGIClwYfFsVdcv Content-Disposition: form-data; name="level" asda ------------4CyrMz2ZeGIClwYfFsVdcv Content-Disposition: form-data; name="major" asda ------------4CyrMz2ZeGIClwYfFsVd....[very long w (1 message) Dear my friends... I am still new in perl. I am writing perl-cgi application for uploading a file. I did "chmod 777 ../../artikel". But I get weird displayed message: " ueri: ------------4CyrMz2ZeGIClwYfFsVdcv Co........ Ã® 6ÃªÃ]Ã kÅ¡fÃ¾xÃ®Â£ËÂ·Â¾ Ã°fS4M3>Âº {Â½â¡<ÃÃ¶Ã¹Â³Â®ï¿½Â¯3Ã§Ã½GÃ¨BÃ¹= âÂ¬ÃâºÃ¸RÆ..... &Æ Ã¿Æ&mâ¡Ã®Ã¸'-n nÃÃJ(pÃ 9Ã§qÃ®Ã......... Ã Â¨âÂ¡ÃÃ EÃï¿½Ã z!ÂªËY6ï¿½Â¬ÃºÃâÃ¢0JÂ¼âÃ±Ã....... [end so on. very longg.............] ". And no file copied/uploaded in '../../artikel'. But inserting the record onto the mysql run properly. Please tell me why..... Here I have done: deartikel.cgi-->cgideartikel.cgi-->cgiuploadfile.cgi ('-->' means 'calls'). === deartikel.cgi: --- #!/usr/bin/perl -w #use strict; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); print "Content-type: text/html\n\n"; print "<html>"; print "<head>"; print "</head>"; print "<body>"; print " <form method=\"post\" action=\"cgideartikel.cgi\"> "; print "Title of file <input type=\"text\" name=\"judul\" size=60 autocomplete=\"ON\"> "; print "<input type=\"submit\" value=\"Submit to column 'Articles'.\"> <input type=\"reset\" value=\"Input lagi?\"> print " </form> "; print "</body>"; print "</html>"; === cgideartikel.cgi: --- #!/usr/bin/perl -w use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use DBI; print "Content-type: text/html\n\n"; print "<html>"; print "<head>"; print "<title>"; print "Online Science Org - Data entry kolom karir."; print "</title>"; print "</head>"; print "<body>"; $pjg=$ENV{"CONTENT_LENGTH"}; read(STDIN, $kueri, $pjg); #print "kueri: $kueri "; @arr_prm=split("&",$kueri); foreach $myprm(@arr_prm){ ($namavar,$nilaivar)=split("=",$myprm); $assprm{$namavar}=$nilaivar; } $i=0; foreach my $nv(keys %assprm){ print "$nv "; print "$assprm{$nv} "; print "i = $i "; $i++; } $judul=$assprm{'judul'}; print " <form method=\"post\" action=\"cgiuploadartikel.cgi\" enctype=\"multipart/form-data\"> "; print "Judul<input type=\"text\" name=\"judul\" size=60 autocomplete=\"ON\" value=\"$judul\" readonly> "; print "File untuk di-upload"; print " <input type=\"file\" name=\"url\" size=60 autocomplete=\"ON\"> "; print "<input type=\"submit\" value=\"Submit to column 'Artikel'.\"> <input type=\"reset\" value=\"Input lagi?\">"; print " </form> "; print "</body>"; print "</html>"; &simpan(judul); sub simpan{ my $myjudul=shift; my $box="localhost"; my $basisdata="mydb"; my $db_user_name='root'; my $db_password='mypw'; my $dsn="DBI:mysql:$basisdata:$box"; my $dbh = DBI->connect($dsn, $db_user_name, $db_password); my $sqlstr=qq{ insert into artikel ( judul, ) values( '$myjudul' ) }; my $sth = $dbh->prepare($sqlstr); my $status=$sth->execute(); if($status){ $sth->{Commit}; }else{ $sth->{RollBack}; } $dbh->disconnect; } --- cgiuploadfile.cgi: --- #!/usr/bin/perl -w use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); print "Content-type: text/html\n\n"; print "<html>"; print "<head>"; print "<title>"; print "Online Science Org - Data entry kolom karir."; print "</title>"; print "</head>"; print "<body>"; $pjg=$ENV{"CONTENT_LENGTH"}; read(STDIN, $kueri, $pjg); print "kueri: $kueri "; exit; @arr_prm=split("&",$kueri); foreach $myprm(@arr_prm){ ($namavar,$nilaivar)=split("=",$myprm); $assprm{$namavar}=$nilaivar; } $i=0; foreach my $nv(keys %assprm){ print "$nv "; print "$assprm{$nv} "; print "i = $i "; $i++; } $judul=$assprm{'judul'}; $url=$assprm{'url'}; print " <form method=\"post\" action=\"cgiuploadartikel.cgi\" enctype=\"multipart/form-data\"> "; print " <input type=\"text\" name=\"judul\" size=60 autocomplete=\"ON\" value=\"$judul\" readonly> "; print "File untuk di-upload"; print " <input type=\"file\" name=\"url\" size=60 autocomplete=\"ON\" readonly> "; print "<input type=\"submit\" value=\"Submit to column 'Artikel'.\" disabled> <input type=\"reset\" value=\"Input lagi?\" disabled>"; print " </form> "; print "</td></tr>"; my $output_file = "../../artikel/$url"; my ($bytesread, $buffer); my $numbytes = 2000; open (OUTFILE, ">", "$output_file") or die "Couldn't open $output_file for writing: $!"; while ($bytesread = read($url, $buffer, $numbytes)) { print OUTFILE $buffer; } close OUTFILE; print "</table>"; print "</body>"; print "</html>"; -- Patrik Hasibuan Junior Programmer http://www.penguin-teknologi.com http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13140.html Sat, 12 Jan 2008 14:55:41 +0000 How to select from a popup_menu without clicking submit? (6 messages) Hi! I wonder if there is any way in Perl CGI that you can select an item in a popup menu and execute a command WITHOUT having to click a submit button? For instance, this is what I want to do: I have a popup_menu with names of several values. print $cgi->popup_menu(-name=>'list', -id=>'list', -values=>['L1','L2','L3']); As soon as the user selects a value I want it to be automatically printed out. if ($cgi->param('list')) { print "Selected value: ".$cgi->param('list'); } This is a very basic thing if you allow a submit button, but I don't want to do that. Any ideas? Thanks in advance! Marcus http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13131.html Mon, 07 Jan 2008 00:46:56 +0000 What is the function value in perl? (6 messages) Hi all, Can any body teach me how to input the function key in perl? such as "Esc", F1, F2, F3, F4"....... I' m programming something with perl to work with IBM AS400 system, and it needs to input some key like F3, F9...... Thanks!! http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13129.html Fri, 04 Jan 2008 13:18:25 +0000 Perl 6 (1 message) I was browsing Perl.com and read a bit of Larry Wall's "State of the Onion". In it he mentions, "It has some issues, but in the long run JavaScript might actually turn out to be a decent platform for running Perl 6 on." What does that mean? -- Bill Stephenson http://www.nntp.perl.org/group/perl.beginners.cgi/2008/01/msg13128.html Fri, 04 Jan 2008 09:55:28 +0000 CGI query and FORM (2 messages) Hi All, I m creating the session in the Perl. all the functions are done in a single file. the operations are performed by the command line arguments. for managing the session i m using the CGI. but when i create a CGI object then all the Input from both POST and GET methods are parsed by it. i m not able to get the varbale values using FORM. My work is the enhancemet work so if i change all the FORM varible to CGI query then its huge task. Is there any way to get the session info from the FORM Variable... This comes first of all the lines in my cgi file. so it parse all the POST and GET methods.. i m not able to the values from FORM varible.. $query = new CGI; $sid = $query->cookie('CGISESSID') || $query->param('CGISESSID') || undef; after the abouve line if ($FORM{'lab'} eq "pager") { plz help me in getting this problem. Is there any way to get session info from the FORM variable.. Thanks, Prakash. http://www.nntp.perl.org/group/perl.beginners.cgi/2007/12/msg13126.html Thu, 13 Dec 2007 22:24:37 +0000