how to get these basic modules

236

100+

Hi Guys,

The information and websites are cool. Thanks! Btw, any sites to get cool and reliable programmers?

Cheers...
Andrew

Nov 13 '08 #4

KevinADC

4,059

Expert 2GB

Hi Guys,

The information and websites are cool. Thanks! Btw, any sites to get cool and reliable programmers?

Cheers...
Andrew

Andrew,

Did you look at my post? There are two links at the end. I have no idea if the programmers a "cool" but you check feedback to determine if they are competent and reliable.

Nov 13 '08 #5

236

100+

Hi Kevin,

a) Thanks! I was so excited to see the samples scripts that I did not see your elance.com and the other .com. The information is enough. Sorry I did not see clearly.

b) Btw, will perl cookbook help to provide us some simple sample examples like user registrations ??

c) And I want to want to create html accept user particulars and then to excute perl script to process them and then when user particulars are not correct will link back to original html page with relevant user particular's field error. Is it possible to include a statement(which perl function or module can do that?) in perl script which does that? And what is the reference website if possible?

Kindly advise.

Cheers...

Thanks and Best Rgds,
Andrew

example :

1) keyed in user registration of username in html page page and submit html to perl script
================================================== ========
html example
Username : XXXXX

2) perl script processed and find the username duplicate and can redirect with error in orirginal html
=========================================

perl script example

XXXXXXXXXXXXX
XXXXXXXXXXXXX
YYYYYYYYYY

3) html with user particulars registration error printed.
======================================

Username : ___________ (*invalid username, please key in and submit again)

Nov 15 '08 #6

KevinADC

4,059

Expert 2GB

I don't know if the perl cookbook has a"recipe" that will help you.

Nov 15 '08 #7

236

100+

Hi Kevin,

Thanks again. I managed to find the redirect command in perl. Below is the code. I couldnt explain well enough.

Cheers...
Andrew

Expand|Select|Wrap|Line Numbers

  
#Newly added 14th nov 08

if ($agree_field == Annonymous)

{

     my $url = "http://localhost/amform.html";
 
  #my $req = HTTP::Request->new($url);

  #my $res = LWP::UserAgent->new->request($req);

  #print $res->is_success ? $res->content : "failed";
 
   #print $query->header(), 

      #$query->start_html($url),

      print $query->redirect($url); 

      #$query->p('Please kindly agree to the terms and condition below!'), 

      #$query->p("You Agree? : $agree_field:"),

      #$query->end_html;
 
}

elsif ($agree_field != Annonymous)

{

     $query->start_html(-title=>'annonymous'), 

      $query->p('Please kindly agree to the terms and condition below!'), 

      $query->p("You Agree? : $agree_field:"),

      $query->end_html;

}

Nov 16 '08 #8

236

100+

Hi Kevin / All,

How to I redirect and at the same time printed out that the comment in particular redirected html field that it is keyed in wrongly? Thanks in advance..

The html(item a) and perl code(item b) is below

Thanks in advance,

Best Rgds,
Andrew

a) html
=====

Expand|Select|Wrap|Line Numbers

 <!DOCTYPE HTML PUBLIC "-//SoftQuad//DTD HTML 3.2 + extensions for HoTMetaL PRO 3.0(U) 19961211//EN"

 "hmpro3.dtd">

<HTML>

<HEAD>

<TITLE></TITLE></HEAD>

<BODY>

<FORM ACTION="/cgi-bin/acctman2-if2.pl" METHOD="POST">

<CENTER>

<TABLE BORDER="0" WIDTH="400">

<TR>

<TD ALIGN="CENTER">

<TABLE BORDER="0" CELLPADDING="5" BGCOLOR="#FF8000">

<TR>

<TD><INPUT TYPE="CHECKBOX" NAME="agree" VALUE="agree"></TD>

<TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>I agree to the Terms 

and Conditions above.</B></FONT></TD></TR></TABLE><BR></TD></TR>

<TR>

<TD>

<HR SIZE="2" NOSHADE="NOSHADE"></TD></TR>

<TR>

<TD ALIGN="CENTER">

<TABLE BORDER="0" WIDTH="350" NOWRAP="NOWRAP">

<TR>

<TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Customer Information</B></FONT><BR><FONT

SIZE="-2" FACE="verdana, arial, helvetica" COLOR="#FF0000"><B>Fields marked 

with an asterisk<BR>are required input fields.</B></FONT><BR><BR></TD></TR>

<TR>

<TD><INPUT TYPE="TEXT" NAME="fname">

<FONT SIZE="-1" FACE="verdana, arial, helvetica">First Name *</FONT></TD></TR>

<TR>

<TD><INPUT TYPE="TEXT" NAME="lname">

<FONT SIZE="-1" FACE="verdana, arial, helvetica">Last Name *</FONT></TD></TR>

<TR>

<TD><INPUT TYPE="TEXT" NAME="email">

<FONT SIZE="-1" FACE="verdana, arial, helvetica">E-Mail Address *</FONT></TD></TR></TABLE>

<TABLE BORDER="0" WIDTH="350" NOWRAP="NOWRAP">

<TR>

<TD><BR><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Choose a User 

Name</B></FONT><BR><INPUT TYPE="TEXT" NAME="username"> 

<FONT SIZE="-1" FACE="verdana, arial, helvetica">User Name</FONT>  

<FONT SIZE="-1" FACE="arial, helvetica"><BR><BR><B>Choose a Password</B></FONT><BR>
 
<INPUT TYPE="password" NAME="pwd">     

<FONT SIZE="-1" FACE="verdana, arial, helvetica">Password</FONT><BR><INPUT

TYPE="password" NAME="pwd2"> <FONT SIZE="-1" FACE="verdana, arial, helvetica">Verify

  Password</FONT></TD></TR></TABLE><BR><BR><INPUT

TYPE="SUBMIT" NAME="process" VALUE="Submit My Order"><INPUT

TYPE="RESET" NAME=""></TD></TR>

<TR>

<TD>

<HR SIZE="2" NOSHADE="NOSHADE"></TD></TR></TABLE></CENTER></FORM></BODY></HTML>

b) perl(see redirect below)
===================

Expand|Select|Wrap|Line Numbers

 
#!c:\perl\bin\perl.exe 

#!/usr/bin/perl 

############################################ 

##                                        ## 

##     Account Manager LITE User Signup   ## 

##          by SiteInteractive.com        ## 

##    http://siteinteractive.com/contact  ## 

##                                        ## 

##             version:  1.09             ## 

##       last modified:  07/24/2002       ## 

##        copyright (c) 1998 - 2002       ## 

##                                        ## 

##    latest version is available from    ## 

##        http://SiteInteractive.com      ## 

##                                        ## 

############################################ 

# 

# Copyright 1998 Elite Host.  All Rights Reserved. 

# 

# TERMS OF USE  

# 1. Account Manager is for licensed customers 

# only. Customer may use Account Manager as many 

# times as customer wishes, as long as customer owns or runs the web 

# site that Account Manager is installed on.  Account 

# Manager may not under any circumstances be sold 

# or redistributed without the written consent of CGI Script Center and 

# its owner Diran Alemshah. 

# 

# 2. CGI Script Center, at its own discresion, will decide if any terms  

# of the this agreement have been violated by customer. Upon written e- 

# mailed notification to Customer of Terms of Use violations, CGI 

# Script Center may revoke customer's license to use Account Manager. 

# In that event, Customer agrees to any and all of the following: 

# 

# a) Customers found in violation of this agreement, found reselling or 

# redistributing Account Manager, or making  

# Customers Members Area ID and password public to anyone in any  
 
# manner will forfeit their Members area password and all rights to  

# future versions of Account Manager. 

#  

# b). Customer will no longer be licensed to run any version of  

# Account Manager.  

# 

# Indemnification 

# 1. Customer agrees that it shall defend, indemnify, save and hold 

# CGI Script Center, Elite Web Design and marketing, and any 

# persons affiliated with either company, harmless from any and all 

# demands, liabilities, losses, costs and claims, including reasonable 

# attorney's fees asserted against CGI Script Center, its agents, its 

# customers, officers and employees, that may arise or result from any 

# service provided or performed or agreed to be performed or any product 

# sold by customer, its agents, employees or assigns. Customer agrees to 

# defend, indemnify and hold harmless CGI Script Center, its agents, 

# its cusomters, officers, and employes,against 

# liabilities arising out of; a) any injury to person or property caused 

# by an products sold or  otherwise distributed in connection with CGI 

# Script Center products; (b) any material supplied by customer 

# infringing or allegedly infringing on the proprietary rights of a 

# third party; c) copyright infringement and (d) any defective products 

# sold to customer from CGI Script Center products. 

# 

# This program may not be distributed in whole or part, freely, for pay,  

# or any other form of compensation. 

# 

##################################################  ############### 

# This version designed for Win32 systems (NT).  If you require 

# a Unix version, please contact cgi@elitehost.com 

##################################################  ############### 
 
##################################################  ############ 

# EDIT USER CONFIGURATIONS BELOW 

##################################################  ############ 
 
# apache is in d DRIVE!!! not C
 
#require "d:/program files/apache software foundation/apache2.2/cgi-bin/config.pl"; 
 
# This completes this portion of your Account Manager setup 

##################################################  ############ 

# DO NOT EDIT BELOW THIS LINE 

##################################################  ############ 
 
use CGI; 

use CGI::Carp qw(fatalsToBrowser); 

use DBD::mysql;

use DBI;

use Email::Valid;
 
require LWP::UserAgent;
 
my $query = CGI->new; 
 
unless ($CGI::VERSION >= 2.47) {  

   error('Your version of CGI.pm is too old. You must have verison 2.47 or higher to use this script.') 

} 
 
#SECTION B

#=========================================

#Database initialization and initial query

my ($dbh, $data_source);  

my $mysql_server_name   = 'localhost';  

my $mysql_database_name = 'test';  

my $mysql_user_name     = 'root';  

my $mysql_password      = 'mysql1';  
 
my $data_source = 'DBI:mysql:' . $mysql_database_name . ':' . $mysql_server_name;  

my $dbh = DBI->connect( $data_source, $mysql_user_name, $mysql_password, {RaiseError=>1}) ||  die "$DBI::errstr";   
 
#important line to pass email address from html to perl

my $agree_field = $query->param("agree") || 'Annonymous'; 

my $first_name = $query->param("fname") || 'Annonymous'; 

my $last_name = $query->param("lname") || 'Annonymous'; 

my $email_address = $query->param("email") || 'Annonymous'; 

my $user_name = $query->param("username") || 'Annonymous'; 

my $password = $query->param("pwd") || 'Annonymous'; 
 
#Newly added 14th nov 08

if ($agree_field == Annonymous)

{

     my $url = "http://localhost/amform.html";
 
  #my $req = HTTP::Request->new($url);

  #my $res = LWP::UserAgent->new->request($req);

  #print $res->is_success ? $res->content : "failed";
 
   #print $query->header(), 

      #$query->start_html($url),

      print $query->redirect($url); 

      #$query->p('Please kindly agree to the terms and condition below!'), 

      #$query->p("You Agree? : $agree_field:"),

      #$query->end_html;
 
}

elsif ($agree_field != Annonymous)

{

     $query->start_html(-title=>'annonymous'), 

      $query->p('Please kindly agree to the terms and condition below!'), 

      $query->p("You Agree? : $agree_field:"),

      $query->end_html;

}
 
# End of Database initial Query

#==========================================
 
print $query->header(), 

      $query->start_html(-title=>'Input Successful'), 

      $query->p('Thanks for registrating your particulars with us!'), 

      $query->p("You Agree? : $agree_field:"),

      $query->p("Your First Name : $first_name"),

      $query->p("Your last Name : $last_name"), 

      $query->p("Your email address: $email_address"), 

      $query->p("Your username : $user_name"), 

      $query->p("Your Password : $password"), 

      $query->end_html; 
 
sub error { 

   print $query->header(), 

         $query->start_html(-title=>'Error'), 

         shift, 

         $query->end_html; 

   exit(0); 

} 
 
my $sql = $dbh->prepare(qq{SELECT * FROM user_reg}); 

   $sql->execute(); 
 
while (my @data = $sql->fetchrow_array()) { 
 
      # Print the date from the first two columns in the table 

      #print $data[0], "\t", $data[1], "<br>"; 

       print $data[0], "\t", $data[1], "\t", $data[2], "\t", $data[3], "\t", $data[4], "\t", $data[5], "<br>";  

} 
 
1;
 
 $sql = $dbh->prepare(qq{insert into user_reg(agree_field, first_name, last_name, email_address, user_name, password) values ( "$agree_field", "$first_name", "$last_name", "$email_address", "$user_name", "$password") } );  

   $sql->execute() or die "$dbh->errstr\n";;  
 
$sql = $dbh->prepare(qq{SELECT * FROM user_reg});  

 $sql->execute(); 
 
while (my @data = $sql->fetchrow_array()){  
 
      # Print the date from the first four columns in the table  

      print $data[0], "\t", $data[1], "\t", $data[2], "\t", $data[3], "\t", $data[4], "\t", $data[5], "<br>";  
 
}

1;
 
#Let's see if the email_address conforms to the RFC822 specification

print (Email::Valid->address($email_address) ? 'yes' : 'no');

Nov 16 '08 #9

236

100+

Hi All,

Can I modified the redirect to pass parameter to print besides the registration html form?

It is line 127 to 136 above(see below for the partial cut and paste code)

Kindly advise.

Cheers...
Andrew

Expand|Select|Wrap|Line Numbers

  
     my $url = "http://localhost/amform.html"; 
 
     print $query->redirect($url);

Nov 16 '08 #10

236

100+

You may not post new threads
You may not post replies
You may not post attachments
You may edit your posts

Hi Guys,

a) I got the above and could not post... Kindly assist...

b) can anyone recommend me good websites to create blogs with perl?

c) can anyone recommend me good website to create search engine with perl?

d) heard joomla does not support perl, only php, any advise on this as I wanted to use it to create a website of blog and search engine and create web graphics and present the website visually and asthetically beautiful and neat...
As understand that Joomla is extremely powerful in terms of webpage creation? Any equivalent for perl webpage creation if Joomla does not support perl but php?

Thanks in advance...
Andrew

Dec 28 '08 #11

3,509

Expert Mod 2GB

Not sure about your permissions issue. Where are you seeing it? Which forum?

As for Joomla, it is a CMS (Content Management System). You actually create the template and then fill the content. The equivelant Perl based CMS is called Catalyst. While I have the book for it, I haven't yet played with it. I have heard though that Catalyst is not really all that user friendly and takes a bit of dedication if you really want to use it. Personally, I am playing with Drupal at the moment instead of either of the above (PHP based).

Regards,

Jeff

Dec 28 '08 #12

236

100+

Hi thanks...

I saw drupal, seemed comprehensive, is it good for blog and search engine?

Thanks and Best Rgds,
Andrew

Dec 29 '08 #13

3,509

Expert Mod 2GB

@happyse27
Again, they are content management systems. It is still up to you to produce the code that you are speaking of for behind the scenes work.

Dec 29 '08 #14

236

100+

hi Sir,

Thanks. I search in drupal for the blog module, but could not find it... any clue?

Best Rgds,
Andrew

Dec 29 '08 #15

3,509

Expert Mod 2GB

@happyse27
Did you happen to go to the drupal modules page and search for "blog"?

I hope that you are not under the misconception that if you install drupal and the blog module (which is probably a theme), that you will magically have a blog that works. You have to have some software behind the scenes that is specifically for blogging. (ie: wordpress).

I still get the feeling that you think drupal is some magical software that has modules to do it all for you. There are modules for many things, but drupal itself is again, a CMS. You might need to look up the definition of a CMS. I don't want there to be any confusion on your part.

Regards,

Jeff

(of course, if you find out that I am mistaken on the capabilities of Drupal, do let me know). :-)

Dec 29 '08 #16

236

100+

ok thanks... appreciated Sir...

for the download blog it is in unix format, any thing in windows format?

Thanks...
Andrew

Dec 30 '08 #17

3,509

Expert Mod 2GB

@happyse27
If by "unix format" you mean that the files are .tar.gz, that is just an archive and compression scheme that even winzip can undo. If you look at the drupal documentation for System Requirements, you will see that both Apache and IIS are supported. Since you don't run IIS on Unix, I would truly assume that Windows is supported, you just have to unzip and unpack the tarballs with winzip (or the like) and then use the files inside as prescribed by the documentation.

Regards,

Jeff

Dec 30 '08 #18

236

100+

Thanks Sir... Btw, does most of the hosting supports perl on windows? Including the blog and forum?

Jan 2 '09 #19

236

100+

Hi All,

Thanks in advance....

I got this again(cant post)... for my user account, please kindly assist.

Expand|Select|Wrap|Line Numbers

  
Posting Rules 

You may not post new threads

You may not post replies

You may not post attachments

You may edit your posts
 [COLOR=#105cb6]BB code[/COLOR] is On
 [COLOR=#105cb6]Smilies[/COLOR] are On
 [COLOR=#105cb6][img][/COLOR] code is On

HTML code is Off

Thanks,
Andrew

Jan 9 '09 #20

3,509

Expert Mod 2GB

happyse27(Andrew),

You need to PLEASE read your private messages as soon as possible!!

Regards,

Jeff

Jan 19 '09 #21

Similar topics

Basic 'import' problem

by: Frantisek Fuka | last post by:

This thing keeps bugging me. It's probably some basic misunderstanding on my part but I am stumped. Let's say I have two Python files: file.py and file2.py. Their contents is as follows: ...

HTTP - basic authentication example.

by: Michael Foord | last post by:

#!/usr/bin/python -u # 15-09-04 # v1.0.0 # auth_example.py # A simple script manually demonstrating basic authentication. # Copyright Michael Foord # Free to use, modify and relicense. #...

Basic questions about packages/modules.

by: Negroup | last post by:

Hi, first of all sorry for boring you with a such simple request. I'm using Python since few days, and I like it even if I'm not yet in confidence. I'd like to organize my programs in hierarchical...

External Source Control of Basic Modules in MS-Access?

by: Randy Yates | last post by:

I would like to, at a minimum, be able to export and import MS-Access basic modules so that I can edit them using my own editor. Additionally I'd like to move the routines into a source control...

Microsoft Access / VBA

Polymorphism in C (very basic)

by: Jason Curl | last post by:

Greetings, I have an array of 32 values. This makes it extremely fast to access elements in this array based on an index provided by a separate enum. This array is defined of type "unsigned long...

C / C++

Visual Basic Hang

by: Ricardo Furtado | last post by:

I've been developing an application in visual basic .net 2005 from the beginning. I allways looked at the IDE as being slow, but i only had, 8 forms, some classes and 2 modules. Recently i imported...

Visual Basic .NET

Module does not appear in a Visual Basic 2005 project

by: ankit.saxena | last post by:

Hi, I have a COM DLL (created using VC++ 6) that has a a few modules declared under its type library. When I add a reference to this DLL in my Visual Basic 2005 project, all classes and enums...

Visual Basic .NET

Converting from an ancient BASIC to new database

by: Randy Reimers | last post by:

(Hope I'm posting this correctly, otherwise - sorry!, don't know what else to do) I wrote a set of programs "many" years ago, running in a type of basic, called "Thoroughbred Basic", a type of...

Visual Basic .NET

Visual Basic 2005 newb in need of some XML write to file help

by: jgibbens | last post by:

First, thank you for even looking at my question. I am using VB 2005 and I have a question about XML. what I want to do is: 1. keep adding to this file with out over writing it 2. be able...

.NET Framework

Basic importing question

by: Hussein B | last post by:

Hey, Suppose I have a Python application consists of many modules (lets say it is a Django application). If all the modules files are importing sys module, how many times the sys module will be...