WinWeb
Microsoft = Windows Hosting,=20 ASP, ASP.NET, Multiple Domain Name=20 Plans

home &nbs= p;| about=20 us | contact=20 us

Hosting web sites since=20 1997

WEB HOSTING

ECOMMERCE

DOMAIN NAMES

SUPPORT

REFERRAL PARTNERS

ORDER

LOGIN

								For = Phone Support=20 Call: 1.212.753.1520

TOOLS

ASP=20 Scripts

asp.NET=20 Scripts

HTML=20 Scripts

JAVA=20 Scripts

PERL=20 Scripts

PHP=20 Scripts

WML=20 Scripts

Support Tools=20 PERL Scripts
.

Array /=20 Associative=20 / Compare Lists = Values / Condition /=20 <= FONT=20 color=3D#993300>Control /=20 Crypt /=20 Date And Time / Dateday week / Disk Space Linux / Email Validation / File delete=20 / <= FONT=20 color=3D#993300>File dir /=20 File Exist=20 / File get time = stamp / = File lock /=20 File multi=20 / = File read /=20 File rename=20 / File select=20 / File set time = stamp / Getenv /=20 Gen first = element / Get OS /=20 <= FONT=20 color=3D#993300>Replace tabs / Set setenv=20 / Get url /=20 Get user info / Get username / Google Search / Hash delete=20 / = Hash merg /=20 = Hash sort /=20 = Hash test /=20 Hash traversing / INC add local = paths / Io /=20 Io arg /=20 Io keyboard=20 / Io keyboard = ready / Io pipe /=20 List /=20 Login Verify / look up domain / = Mail send /=20 Merging Hashes / MySQL Create Table = If / Numb itint=20 / = Num comma /=20 <= FONT=20 color=3D#993300>Num long /=20 Num random=20 / Package Template / print html=20 / Regular = expressions / Remove line end / <= FONT=20 color=3D#993300>replace /=20 RxIP Address / Sample Web SendMail = Unix / Sample Web SendMail=20 Windows / = Save Form Result In = File / Save In File / Scalar /=20 Script Path=20 / Sendmail = attachment / Session = GenerateID / Session ReadID / Simple /=20 String common / String count / String join=20 / Stringle ad=20 / Stringle adtrail / String para=20 / String repeat / String trail / String uppercase / Sub /=20 Un-Web ify=20 / <= FONT=20 color=3D#993300>User env /=20 = Web clean /=20 Web encode=20 / <= FONT=20 color=3D#993300>Post URL /=20 Post URL Basic = Auth / Clear screen / FTP Backup=20 / Dir Recursive = Windows

..
Array

Arrays
Intro to Array
    An array is a named list.
    Array variable which is a list of scalars (ie numbers and strings).
    As with lists, its space is dynamically allocated and removed
    Array variables have the same format as scalar variables except that =
they are prefixed by an @ symbol.
    It is 0-indexed, and shares all the operators, and some new =
accessors

@ (at sign)=20
       Refers to the entire array or slice of an array (when used in =
conjuction with [ ]).  =20

$ (dollar sign)=20
       Refers to one element of the array, used in conjunction with [ ]

Some Array functions =09
push(@ARRAY,LIST) 	=09
		# add LIST to the end of @ARRAY=20

pop(@ARRAY) 		=09
		# remove and return the last element of @ARRAY

unshift(@ARRAY,LIST) =09
		# add LIST to the front of @ARRAY

shift(@ARRAY) 	=09
		# remove and return the first element of @ARRAY

scalar(@ARRAY) 	=09
		# return the number of elements in the array

@menu  =3D ("salad", "toast", "soup");  =20
Assigns a three element list to the array variable @menu  =20

@country =3D ("japan", "Argentina");  =20
Assigns a two element list to the array variable @country

@menu     =3D ("salad", "toast", "soup");

The array is accessed by using indices starting from 0, and square =
brackets are used to specify the index.
The expression $menu[2] returns soup.
Notice that the @ has changed to a $ because soup is a scalar.

The follwoing two statements are the same.  =20
@moremenu1 =3D ("salad", "toast", "soup", "icecream", "bread");
@moremenu2 =3D ( @menu,"icecream","bread");

But there is a better way of adding element to the array. See the =
folowing  =20
push(@menu, "bread", "icecream");
push(@menu, ("bread", "icecream"));

back=20 to top
..

..
Associative

=20
Associative Arrays / Hashes
=20
Associative arrays, are also called "hashes".
They are arrays that are indexed not on ordered integers, but on =
arbitrary string values.
generally, elements of an associative array are refered to as "key" and =
"value" pairs.
The "key" is used to find the element of the array that has the "value".

Basic operators are:  =20

% (percent sign)=20
This refers to the entire array  =20

{ } (braces) =20
This denotes the key  =20

$ (Dollar)=20
When this is used with { }, this is the value of the array element =
indexed on the key.  =20
	$school{"leader"}     =3D "Tim Grant";
	$school{"scout"}      =3D "Jack Hassel";
	$school{"president"}  =3D "Mike Shawn";
	@schoolposts          =3D keys(%school)
	@schoolnames          =3D values(%school)=20

Some Associative Array functions 	 =20

Keys(%ARRAY)	=09
	# Return a list of all the keys in %ARRAY. The list is "unordered" - it =
depends on the hash function used internally.=20

Values(%ARRAY)
	# Return a list of all the values in %ARRAY=20

Each(%ARRAY)
		# Each time this is called on an %ARRAY, it will return a 2 element =
list consisting of the next key/value pair in the array.=20

Delete($ARRAY{KEY})
	# remove the pair associated with KEY from ARRAY.

back=20 to top
..

..
CompareListsValues

back=20 to top
..

..
Condition

back=20 to top
..

..
Control

=20
Control Structures in Perl
=20
foreach
Perl uses the foreach structure to go through each line of an array or =
other list-like structure  =20
foreach $item (@music)
{
	print "$item\n";
}

for
First it initializes the value of $i. Then it executes the statements in =
the block while the condition is true.   =20
for ($i =3D 0; $i=20
{
	print "$i\n";
}

while
It stays in the block till the condition is satisfied
#!/usr/local/bin/perl
print "Password? ";		# Ask for input
$a =3D ;				# Get input
chop $a;			# Remove the newline at end
while ($a ne "xanadu")		# While input is wrong...
{
print "Sorry. Wrong password. try Again? ";
$a =3D ;			# Get input again
chop $a;			# Chop off newline again
}

To test the opposite use until=20
Another way of doing the same
Another useful technique is putting the while or until check at the end =
of the statement block
rather than at the beginning.
This will require the presence of the do operator to mark the beginning =
of the block and the test at the end.  =20

#!/usr/local/bin/perl
do
{
	"Enter Password : ";	# Ask for input
	$a =3D ;			# Get input
	chop $a;			# Chop off newline
}
while ($a ne "xanadu")		# Redo while wrong input

if else=20
if ($x)
{
	print "variable x is not empty\n";
}
else
{
	print "variable x is empty\n";
}

It is also possible to include more alternatives in a conditional =
statement:  =20
if (!$x)			# The ! is the not operator
{
	print "variable x is empty\n";
}
elsif (length($x) =3D=3D 1)=09
{
	print "variable x has one character\n";
}
elsif (length($x) =3D=3D 2)
{
	print "variable x has two characters\n";
}
else
{
	print "variable x has lots of characters\n";
}

back=20 to top
..

..
Crypt

back=20 to top
..

..
DateAndTime

back=20 to top
..

..
Datedayweek

back=20 to top
..

..
DiskSpaceLinux

back=20 to top
..

..
EmailValidation

back=20 to top
..

..
Filedelete

back=20 to top
..

..
Filedir

back=20 to top
..

..
FileExist

back=20 to top
..

..
Filegettimestamp

back=20 to top
..

..
Filelock

back=20 to top
..

..
Filemulti

back=20 to top
..

..
Fileread

back=20 to top
..

..
Filerename

back=20 to top
..

..
Fileselect

back=20 to top
..

..
Filesettimestamp

back=20 to top
..

..
Getenv

back=20 to top
..

..
Genfirstelement

back=20 to top
..

..
Getos

back=20 to top
..

..
Replacetabs

back=20 to top
..

..
Setsetenv

back=20 to top
..

..
Geturl

back=20 to top
..

..
Getuserinfo

back=20 to top
..

..
Getusername

back=20 to top
..

..
GoogleSearch

back=20 to top
..

..
Hashdelete

back=20 to top
..

..
Hashmerg

back=20 to top
..

..
Hashsort

back=20 to top
..

..
Hashtest

back=20 to top
..

..
Hashtraversing

back=20 to top
..

..
INCaddlocalpaths

back=20 to top
..

..
Io

IO
How to Check if input is ready on the keyboard ?
How to read from a PIPE
How to take command line arguments
How to read input from the keyboard ?

How to check if input is ready on the keyboard ?
A simple way to do it would be to use the Term::ReadKey
module from CPAN
Passing it an argument of -1 to indicate not to block:=20

use Term::ReadKey;
ReadMode('cbreak');
if (defined ($char =3D ReadKey(-1)) ) {
# input was waiting and it was $char
} else {
# no input was waiting
}
ReadMode('normal');     # restore normal tty settings

How to read from a PIPE?
The value of date is passed to the PIPE=20

open(DATE, "date|");
$theDate =3D ;
close(DATE);

How to take command line arguments ?
$totArgs =3D $#ARGV + 1;
print "I received the following $totArgs command-line arguments.\n";
foreach $myarg (0 .. $#ARGV) {
print "$ARGV[$myarg]\n";
}

$totAtgs : contains the total number of arguments passed
$ARGV[$myarg] : would contain the value of the argument

How to read   input from keyboard ?
This is a simple program to read input from the keyboard=20

#!/usr/local/bin/perl
$line =3D ;
print STDOUT $line;

A little modificaton to the above to make it more useful=20
Prompt the user for input by using a print statement
followed immediately by a read

#!/usr/local/bin/perl

print "What is your name ?";
$line =3D <>; # To read a line from the keyboard.
chop $line; # To Get rid of the Return character.
print "You are $line .\n";
exit;

back=20 to top
..

..
Ioarg

back=20 to top
..

..
Iokeyboard

back=20 to top
..

..
Iokeyboardready

back=20 to top
..

..
Iopipe

back=20 to top
..

..
List

back=20 to top
..

..
LoginVerify

back=20 to top
..

..
lookupdomain

back=20 to top
..

..
Mailsend

back=20 to top
..

..
MergingHashes

back=20 to top
..

..
MySQLCreateTableIf

#!/usr/bin/perl

use DBI;
use Getopt::Long;

$VER =3D "1.5";

$opt_db =3D "test";
$opt_table =3D "mails";
$opt_max_mail_size =3D 65536;
$opt_db_engine =3D "mysql";
$opt_host =3D "localhost";
$opt_user =3D $opt_password =3D "";
$opt_help =3D $opt_version =3D 0;

$dbh =3D =
DBI->connect("DBI:$opt_db_engine:$opt_db:$opt_host",$opt_user,
		    $opt_password,{ PrintError =3D> 0}) || die $DBI::errstr;

create_table_if_needed($dbh);

sub create_table_if_needed
{
  my ($dbh)=3D@_;
  my ($sth,$create);
 =20
  $sth =3D $dbh->prepare("select count(*) from $opt_table") or die =
$dbh->errstr;
  if (!$sth->execute)
  {
    $create =3D "CREATE TABLE $opt_table (msg_nro mediumint unsigned not =
null ";
    $create .=3D "auto_increment, date DATETIME NOT NULL, time_zone =
CHAR(6) ";
    $create .=3D "NOT NULL, mail_from char(120) not null, reply =
char(120), ";
    $create .=3D "mail_to TEXT, cc TEXT, sbj char(200), txt MEDIUMTEXT =
NOT ";
    $create .=3D "NULL, file char(32) noT NULL, hash INT NOT NULL, key =
";
    $create .=3D "(msg_nro), primary key (mail_from, date, time_zone, =
hash))";
    $sth =3D $dbh->prepare($create) or die $dbh->errstr;
    $sth->execute() or die $dbh->errstr;
  } =20
}

back=20 to top
..

..
Numbitint

back=20 to top
..

..
Numcomma

back=20 to top
..

..
Numlong

back=20 to top
..

..
Numrandom

back=20 to top
..

..
PakageTemplate

back=20 to top
..

..
printhtml

back=20 to top
..

..
Regularexpressions=20

=20
Regular Expressions in Perl
Some Basics before you begin

There are three main uses for regular expressions in Perl
    Matching
    Substitution
    Translation.

Perl's Regular Expression Operators=20

m/PATTERN/=20
# This operator returns true if  PATTERN is found in $_. =20
s/PATTERN/REPLACEMENT/=20
# This operator replaces the sub- string matched by PATTERN  with =
REPLACEMENT. =20
tr/CHARACTERS/REPLACEMENTS/=20
# This operator replaces characters specified by CHARACTERS with the =
characters in REPLACEMENTS.

=20

Did you know, it could be done more neatly ?
Every regular expression operator allows the use of alternative pattern =
delimiters.
A delimiter marks the beginning and end of a given pattern.
Like for example in the following ,

m//;
   The standard delimiters are the slashes (//). But not necessarily. =
You could use any.
This is particularly useful when the string you are matching too has a =
'/' and it could make it look difficult to decipher.
   m/\/home\/jack\/myfile.txt/
   This becomes hard to read coz' of all the slashes. ANother way would =
be to use.
   m!/home/jack/myfile.txt!
   OR
   m{/home/jack/myfile.txt}

=20
Points to remember While using the Regular Expressions
# Always  comment what are doing
# How you are approaching the issue. remeber there are usually multiple =
ways of doing something.
# proper Commneting always helps you and others

Some quick references=20
[] match a class of single characters
[^ ] not in list
{} allow precise specification of repeated fields.

[0123456789] match any single digit
[0-9] match any single digit
[0-9]+ match any sequence of one or more digits
[a-z]+ matches any lowercase word
[A-Z]+ matches any uppercase word
[ab n]* matches the null string "", "b", any number of blanks , " nab a =
banana"
[^0-9] matches any non-digit charactor
[0-9] {5} matches any sequence of 5 digits
[0-9] {5,9} matches any sequence of 6 to 10 digits.

The patterns can occur anywhere in an input unless anchored.
^ (outside of []) matches at the beginning
$ matches at the end
/at/ matches at attention flat
/^at/ matches at attention but not flat
/at$/ matches at flat but not attention
/^at$/ matches at and that is all
/^at$/i matches at At aT

/^[ \t]*$ matches a "Blank line", or any combination of blanks and tabs

\ is the escape charactor, it allows metachar to be used as literals

Some special escape sequences
\t tabs
\n newline
\r carriage return
\f form feed
\d is the same as [0-9]
\s white space [\t\n\r\f]

The Binding Operators (=3D~ and !~) =20
The match, substitute and translation operations work on the $_ variable =
by default.
But if the string in context is in another variable, then the binding =
operators come in very handy
They let you bind the regular expression operators to a variable other =
than $_.=20
There are two forms of the binding operator: the regular  =3D~ and its =
complement !~. =20

The Usage of the =3D~ operator:
$mystring     =3D "Have a good day";
$match        =3D $mystring =3D~ m/good/;
$substitution =3D $mystring =3D~ s/good/great/;
$translate    =3D $mystring =3D~ tr/d/D/;

print("\$match        =3D $match\n");
print("\$substitution =3D $substitution\n");
print("\$translate    =3D $translate\n");
print("\$mystring     =3D $mystring\n");=20

This program displays the following:
$match        =3D 1
$substitution =3D 1
$translate    =3D 2
$mystring     =3D Have a great Day

In the above example we get the return values too. Now using all the =
three, if we do not need the return values then use the following=20

$mystring =3D "have a good day";
print("have a good day\n") if $mystring =3D~ m/good/;
$mystring =3D~ s/good/great/;
$mystring =3D~ tr/d/D/;
print("\$mystring =3D $mystring\n");=20
The output now would be as following

String has root.=20
$mystring =3D have a great Day

HTML-codified characters (the % codes) into their ASCII equivalents =20
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

The above could further be modified to by using the curley braces =
character quantifier {2} and the case insensitivity switch i.=20

s/%([a-f0-9]{2})/pack("C", hex($1))/egi;

The {2} performs the same function as the + and *,
but instead of specifying "one or more" or "any number," it specifies =
"exactly two."
You can also specify ranges. For example: "one or two" is represented as =
{1,2} and "five to ten" as {5,10}.

Another beauty of perl :=20
The key to the good stuff of Perl's regular expressions is the =
parenthesis used for subexpressions, the ([a-f0-9]{2}) in above example.
What matches the subexpression is held in a automatic temporary =
variable, $1, here.
If there were more than one subexpression, they would be held in $2, $3, =
and so on.
(By the way, the entire matched expression is held in $0.)

back=20 to top
..

..
Removelineend

back=20 to top
..

..
Replace

#!/usr/bin/perl
#
# perl script to recursively replace multiple strings in multiple files.
#
# written by Rainer Hillebrand
# (rainer.hillebrand@muenster.de, http://www.muenster.de/~hillebra/)
#
# It is being placed in the public domain. It may be
# used for commercial use only by prior arrangement with
# the author. It may not in any circumstances be resold to
# another party. You are free to make non-commercial use of
# the ideas and algorithms that this code represents as long
# as you do not merely re-phrase it or port it to another
# language. If you use any of the code from this program in
# another program, that resulting program must be placed
# under the GNU Copyleft or similar agreement and source code
# from that program must be made available to all who want it.
#
#
# Version 0.82, 14/03/2003
# minor bug
#
# Version 0.81, 12/03/2003
# lines in the pattern file without the pattern separator #%# are =
ignored
#
# Version 0.8, 07/03/2003
# some minor changes for efficiency,
# overwrites the files only if changes have been made
#
# Version 0.7, 27/02/2003
# some documentation added
#
# Version 0.6
# customize if only the first occurrence and white spaces shall be =
replaced
#
# Version 0.5
# removes also leading spaces
#
# Version 0.4, 12/02/2000
# replaces only ASCII files
#
# Version 0.3, 30/07/1999
#
# Version 0.2, 15/03/1999
#
# Version 0.1, 15/01/1999
# first rough version
#
# usage: perl replace.pl <directory> <pattern_file>
# example: perl replace.pl /work/rh/html /temp/pattern.txt
#
# <directory> is the source of the directory tree
# <pattern_file> is the file containing the patterns to be be =
replaced.
# The pattern #%# separates the old string and the new string.
# An example in one file:
#
# oldpattern#%#newpattern
# second_oldpattern#%#second_newpattern
#

# Shall all occurences of the pattern be replaced? If yes, then set the =
following
# variable to 1.
$replaceall =3D 1;

# Shall all leading whitespaces be replaced? If yes, then set the =
following
# variable to 1.
$replacespace =3D 1;

#----------There is nothing to change for you below this line------
$directory =3D $ARGV[0];
$patternfile =3D $ARGV[1];

if (($directory || $patternfile) eq '') {
die("usage: perl replace.pl <directory> <pattern_file>\n")
}

&readpatternfile;

&scan_files($directory);

&replacepattern;

#------------------------------------------------------------------------=
--
sub readpatternfile {
@patterns =3D ();
if (-f $patternfile) {
open(PATTERN,"<$patternfile") || return;
while ($line =3D <PATTERN>) {
chomp $line;
if ($line =3D~ /\Q#%#\E/) {
push (@patterns, $line);
}
}
close (PATTERN);
}
}
#------------------------------------------------------------------------=
--
sub scan_files {
my ($scandir) =3D shift;
my (@scandirs,@files,$newdir,$list);
opendir(DIR,$scandir) || warn "can't opendir $scandir: $!\n";
@scandirs =3D grep {!(/^\./) && -d "$scandir/$_"} readdir(DIR);
rewinddir(DIR);
@files =3D grep {!(/^\./) && -T "$scandir/$_"} readdir(DIR); # =
ignores hidden UNIX-like files like .htaccess
closedir (DIR);
for $list(0..$#scandirs) {
$newdir =3D "$scandir/$scandirs[$list]";
&scan_files ($newdir); # scans recursively
}
for $list(0..$#files) {
if (-z $files[$list] or $files[$list] =3D~ /(\.\$\$\$|\.bak)$/) {
next # if has zero size, or is a backup file
}
push (@filesfound, "$scandir/$files[$list]");
}
return 1;
}
#------------------------------------------------------------------------=
--
sub replacepattern{
foreach $source (@filesfound){
@newfile =3D ();
open (FILE, "<$source") || die "Can't open $source: $!.";
@file =3D <FILE>;
close (FILE);
$found =3D 0;
$i=3D0;
foreach $line (@file){
$i++;
$line =3D~ s|^[ \t]+|| if $replacespace;
if (not $found or $replaceall) {
foreach $string (@patterns){
($old, $new) =3D split('#%#', $string, 2);
if ($line =3D~ s|\Q$old\E|$new|g){
print $source, ":\n";
print "Found in line number $i \: ", $line;
$found =3D 1;
}
}
}
push (@newfile, $line);
}
if ($found or $replacespace) {
open (FILE, ">$source") || die "Can't open $source: $!.";
print FILE @newfile;
close FILE;
}
}
}

back=20 to top
..

..
RxIPAddress

back=20 to top
..

..
SampleWebSendMailUnix
<= SPAN=20 style=3D"FONT-SIZE: 9pt">
back=20 to top
..

..
SampleWebSendMailWindows

back=20 to top
..

..
SaveFormResultInFile

This program saves the =
form result after submiting a page.
Normaly used for creating database into a text file.=20
You need to have html page with the form.
The form should have Action pointing to that file.
The file where you going to save the result must have Write permission.

$| =3D 1;

sub ReadRequest {
  if (@_) {
    local (*in) =3D @_;
  }

local ($i, $loc, $key, $val);

# Read in text
 if ($ENV{'REQUEST_METHOD'} eq "GET") {
 $in =3D $ENV{'QUERY_STRING'};
 } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
 for ($i =3D 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) {
 $in .=3D getc;
 }
 }=20

@in =3D split(/&/,$in);
  foreach $i (0 .. $#in) {
    # Convert plus's to spaces
    $in[$i] =3D~ s/\+/ /g;

# Convert %XX from hex numbers to alphanumeric
    $in[$i] =3D~ s/%(..)/pack("c",hex($1))/ge;

# Split into key and value.
    $loc =3D index($in[$i],"=3D");
    $key =3D substr($in[$i],0,$loc);
    $val =3D substr($in[$i],$loc+1);
    $in{$key} .=3D '\0' if (defined($in{$key})); # \0 is the multiple =
separator
    $in{$key} .=3D $val;
  }
  return 1;
}

&ReadRequest;

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Save in file</title>\n";
print "</head>\n";

open(AL,">> /orders/orders.txt") || die 'can not open =
../orders/orders.txt file';
foreach $val (@in) {
    print AL "$val \n";
}
close(AL);

print "<center>Thank =
you\.\n";
print "</body>\n";
print "</html>\n";

back=20 to top
..

..
SaveInFile

If you don't need to send the form =
result by mail then
just save it to the file.

$| =3D 1;

sub ReadRequest {
  if (@_) {
    local (*in) =3D @_;
  }

local ($i, $loc, $key, $val);

@in =3D split(/&/,$in);
  foreach $i (0 .. $#in) {
    # Convert plus's to spaces
    $in[$i] =3D~ s/\+/ /g;

# Convert %XX from hex numbers to alphanumeric
    $in[$i] =3D~ s/%(..)/pack("c",hex($1))/ge;

&ReadRequest;

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Save in file</title>\n";
print "</head>\n";

open(AL,">> /orders/orders.txt") || die 'can not open =
../orders/orders.txt file';
foreach $val (@in) {
    print AL "$val \n";
}
close(AL);

print "<center>Thank =
you\.\n";
print "</body>\n";
print "</html>\n";

back=20 to top
..

..
Scalar

=20
	Scalar Variables
=20
Scalars are accessed by prefixing an identifier with '$'.

scalar:=20
A single value, either numeric or a character string.

identifier:=20
A "variable name." It is composed of upper or lower case letters, =
numbers, and the underscore '_'.
Identifiers are case sensitive (like all of perl).

Scalars are assigned to using '=3D'=20
$scalar =3D expression;

And what is remarkable is that strings and numbers are completely =
interchangable.
For example, the statement

$test_value =3D 4;
$test_value =3D 'testing';

In general variable names consists of numbers, letters and underscores
But they should not start with a number and the variable $_ is special.
Perl is case sensitive, so $a and $A are different.

Perl uses all the usual C arithmetic operators:=20

$a =3D 1 + 2;		# Add 1 and 2 and store in $a

$a =3D 3 - 4;		# Subtract 4 from 3 and store in $a

$a =3D 5 * 6;		# Multiply 5 and 6

$a =3D 7 / 8;		# Divide 7 by 8 to give 0.875

$a =3D 9 ** 10;		# Nine to the power of 10

$a =3D 5 % 2;		# Remainder of 5 divided by 2

++$a;			# Increment $a and then return it

$a++;			# Return $a and then increment it

--$a;			# Decrement $a and then return it

$a--;			# Return $a and then decrement it

For strings Perl has the following:=20

$a =3D $b . $c;	# Concatenate $b and $c

$a =3D $b x $c;	# $b repeated $c times

To assign values Perl

$a  =3D $b;		# Assign $b to $a

$a +=3D $b;		# Add $b to $a

$a -=3D $b;		# Subtract $b from $a

$a .=3D $b;		# Append $b onto $a

back=20 to top
..

..
ScriptPath

back=20 to top
..

..
Sendmailattachment

Sometimes we need to send =
an e-mail with an attachment.
The following function is a Windows based Send-mail with attachment.

use MIME::QuotedPrint;
use MIME::Base64;
use Mail::Sendmail 0.75; # doesn't work with v. 0.74!

%mail =3D (
        SMTP =3D> 'smtp.somesmtp.com',
        from =3D> 'info@your-domain.net',
        to =3D> 'info@your-domain.net',
        subject =3D> 'Test attachment',
        );
       =20

$boundary =3D "=3D=3D=3D=3D" . time() . "=3D=3D=3D=3D";
$mail{'content-type'} =3D "multipart/mixed; boundary=3D\"$boundary\"";

$message =3D encode_qp( "Voil=E0 le fichier demand=E9" );

$file =3D $^X; # This is the perl executable

open (F, $file) or die "Cannot read $file: $!";
binmode F; undef $/;
$mail{body} =3D encode_base64(<F>);
close F;

$boundary =3D '--'.$boundary;
$mail{body} =3D <<END_OF_BODY;
$boundary
Content-Type: text/plain; charset=3D"iso-8859-1"
Content-Transfer-Encoding: quoted-printable

$message
$boundary
Content-Type: application/octet-stream; name=3D"$^X"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename=3D"$^X"

$mail{body}
$boundary--
END_OF_BODY

sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";

back=20 to top
..

..
SessionGenerateID

back=20 to top
..

..
SessionReadID

back=20 to top
..

..
Simple

=20
	A Simple Perl Program
=20
Here is the basic perl program that we'll use to get started. =20
#!/usr/local/bin/perl
# Your Comment here
print 'Hello world.';		# Print a message

Every perl program starts off with this as its very first line:=20
#!/usr/local/bin/perl
 This line tells location of Perl=20

Comments can be inserted into a program with the # symbol, and anything =
from the # to the end of the line is ignored (with the exception of the =
first line)

The print function outputs some information. In the above case it prints =
out the the literal string Hello world. and of course the statement ends =
with a semicolon.

Steps to execute the above program
        Type in the example program using a text editor, and save it.
        After you've entered and saved the program make sure the file is =
executable by using the command
        chmod u+x filename   at the UNIX prompt.
        Now to run the program just type any of the following at the =
prompt.
        perl progname
        ./progname

In case of errors run the program with warnings using the command   =20
perl -w progname   =20
This will display warnings and other (hopefully) helpful messages before =
it tries to execute the program.

To run the program with a debugger use the command  =20
perl -d progname    =20

When the file is executed Perl first compiles it and then executes that =
compiled version.
So after a short pause for compilation the program should run quite =
quickly.
This also explains why you can get compilation errors when you execute a =
Perl file which consists only of text.

back=20 to top
..

..
Stringcommon

Strings
How to convert to lower and UPPER case ?
How to count the Number of occurrences of a substring within a string  ?
How to Reformat a paragraph ?
How to track of repeating strings ?
How to concatenate strings
Trim leading white spaces
Trim trailing white spaces
Trim leading and trailing white spaces
=20

How to convert to lower case and UPPER Case ?

To Uppercase and LowerCase
                                     To make the first letter of each =
word upper case:=20
                                     $line =3D~ s/\b(\w)/\U$1/g;

To make the whole line UpperCase:=20
                                     $line =3D uc($line);=20

To force each word to be lower =
case, with the first letter upper case:=20
                                     $line =3D~ s/(\w+)/\u\L$1/g;=20

How to count the Number of =
occurrences of a substring within a
                                     string?

There are a number of ways, with =
varying efficiency:
                                     If you want a count of a certain =
single character (X) within a string,
                                     you can use the tr/// function like =
so:=20

$mystring =3D
                                     =
"IXamXTryingXXtoXkeeptXXtrackXOfXXNumberofXXXXinXThisXstring":
                                     $x_count =3D ($mystring =3D~ =
tr/X//);
                                     print "There are $x_count X =
charcters in the string";=20

This is fine if you are just =
looking for a single character.=20

However, if you are trying to count =
multiple character substrings
                                     within
                                     a larger string, tr/// won't work.
                                     What you can do is wrap a while() =
loop around a global pattern
                                     match.=20

For example, let's count negative =
integers:=20
                                     $mystring =3D "6 -44 9 -2 4 5 66 -3 =
-6 54";
                                     while ($mystring =3D~ /-\d+/g) { =
$neg_count++ }
                                     print "There are $neg_count =
negative numbers in mystring";=20

How to reformat a paragraph?

Use Text::Wrap (part of the =
standard perl distribution):=20
                                     use Text::Wrap;
                                     print wrap("\t", ' ', @paragraphs);

Note : The paragraphs you give to =
Text::Wrap should not contain
                                     embedded newlines.
                                     Text::Wrap doesn't justify the =
lines (flush-right).

How to track of repeating strings ?

First keep track of the number N.
                                     Say you need to change the 3rd =
occurrence of "whoever" or
                                     "whomever" into "whosoever"
                                     or "whomsoever", case =
insensitively.=20
                                     $count =3D 0;
                                     s{((whom?)ever)}{
                                     ++$count =3D=3D 3 # is it the 3rd?
                                     ? "${2}soever" # yes, swap
                                     : $1 # renege and leave it there

}igex;
                                     In the more general case, you can =
use the /g modifier in a while
                                     loop, keeping count of matches.=20
                                     $WANT =3D 3;
                                     $count =3D 0;
                                     while (/(\w+)\s+hat\b/gi) {
                                     if (++$count =3D=3D $WANT) {
                                     print "The third hat is a $1 =
one.\n";
                                     # Warning: don't `last' out of this =
loop
                                     }
                                     }
                                     That prints out: "The third hat is =
a blue one."
                                     You can also use a repetition count =
and repeated pattern like this:=20
                                     =
/(?:\w+\s+fish\s+){2}(\w+)\s+fish/i;

How to concatenate strings ?

This is a simple program.
                                     $name =3D "myfile";
                                     $filename =3D "/tmp/" . $name . =
".tmp";
                                     # $filename now contains =
"/tmp/myfile.tmp"

The same can be done using the join =
command too
                                     $name =3D "myfile";
                                     $filename =3D join "", "/tmp/", =
$name, ".tmp";
                                     # $filename now contains =
"/tmp/myfile.tmp"

back=20 to top
..

..
Stringcount

back=20 to top
..

..
Stringjoin

back=20 to top
..

..
Stringlead

back=20 to top
..

..
Stringleadtrail

back=20 to top
..

..
Stringpara

back=20 to top
..

..
Stringrepeat

back=20 to top
..

..
Stringtrail

back=20 to top
..

..
Stringuppercase

back=20 to top
..

..
Sub

=3DINFO+
=20
	Sub Routines
=20
=3DEND
=3DSOURCE+
=20

The basic sub routine structure=20
sub NAME {
	STATEMENTS;
}

Facts about the sub rutine in PerlSubroutines are not typed.=20
#  Unlike C, all subroutines take a list as arguments.
#  A subroutine can return values values in either a list or scalar =
context.
#  Unlike Pascal, subroutine definitions cannot be nested.
#  Actually, they can be defined anywhere that is not in a block.
#  Unlike Fortran, there is no distinction between subroutines and =
functions.
#  Arguments to the subroutine are contained in the special array @_ (at =
underscore)

In perl, subroutines are invoked differently than the built-ins =20
	&NAME(arg1,arg2,etc); =20

# OR if the subroutine takes no arguments  =20
	&NAME; =20

# return values are used just like anyother value  =20
	$loudestInstrument =3D &measureLoudest(@allInstruments);

Example
	# define an error routine: =20
	sub error {
		($message) =3D @_;
		print("ERROR:",
			$message,
			"Contact the author of the previous page for assistance\n");
		exit(0);
	}
	if ( ! $recipient ) {
		# the form did not have a to field
		# modify this text appropriately
		&error("No Return Address");
	} =20

Note how the definition of the subroutine doesn't affect the flow of our =
program.

=20
=3DEND

back=20 to top
..

..
Un-Webify

back=20 to top
..

..
Userenv

back=20 to top
..

..
Webclean

back=20 to top
..

..
Webencode

back=20 to top
..

..
PostURL

back=20 to top
..

..
PostURLBasicAuth

back=20 to top
..

..
Clearscreen

back=20 to top
..

..
FTPBackup

#!/usr/bin/perl
use Net::FTP;

# Login info
my $host=3D"your-domain.com";
my $user=3D"ftp_user";
my $password=3D"ftp_user_password";

# Change Dir After Login to this dir:
my $directory=3D"data";

# The folder where the backup files will go to
my $backup_dir=3D"d:\\backup\\";

$ftp=3DNet::FTP->new($host,Timeout=3D>240) or $newerr=3D1;
  push @ERRORS, "Can't ftp to $host: $!\n" if $newerr;
  myerr() if $newerr;
print "Connected\n";

$ftp->login($user, $password) or $newerr=3D1;
print "Getting file list";
  push @ERRORS, "Can't login to $host: $!\n" if $newerr;
  $ftp->quit if $newerr;
  myerr() if $newerr;=20
print "Logged in\n";

$ftp->cwd($directory) or $newerr=3D1;=20
  push @ERRORS, "Can't cd  $!\n" if $newerr;
  myerr() if $newerr;
  $ftp->quit if $newerr;

@files=3D$ftp->dir or $newerr=3D1;
  push @ERRORS, "Can't get file list $!\n" if $newerr;
  myerr() if $newerr;
print "Got  file list\n";

# Dowload the files from the current dir
my $i=3D0;
my @dirs;
foreach(@files) {
   print "$_\n";

if ($_ =3D~ /\<DIR\>/) {=20
 		$_=3Dsubstr($_,39);
 		s/ */ /g;
 		s/^ *//g;
 		chomp;
 		@stuff=3Dsplit / /;
		# Save the folders names in @dirs
		$dirs[$i] =3D "".$_;
		$i++;
	} else {
 		$_=3Dsubstr($_,39);
 		s/ */ /g;
 		s/^ *//g;
 		chomp;
 		@stuff=3Dsplit / /;

print "Getting $_\n";
    		$ftp->get($_,$backup_dir.$_) or $newerr=3D1;
    		push @ERRORS, "Couldn't get $stuff[3] $!\n" if $newerr;
    }

}

# Go to every folder only one level down and dowload the files
# If the local folder does not exist - create the folder before =
downlaoding the files
foreach $dir (@dirs) {
   print "$dir\n";
   $ftp->cwd($dir) or $newerr=3D1;=20
   push @ERRORS, "Can't cd $dir $!\n" if $newerr;
   myerr() if $newerr;
   $ftp->quit if $newerr;

# If the local folder does not exist - create the folder before =
downlaoding the files
   if ( !-e "$backup_dir.$dir" ) { system(mkdir $backup_dir.$dir); }

my @files;
		@files=3D$ftp->dir or $newerr=3D1;
  		push @ERRORS, "Can't get file list $!\n" if $newerr;
  		myerr() if $newerr;
		print "Got  file list\n";

my $i=3D0;
		my @dirs2;
		foreach(@files) {
   			print "$_\n";

if ($_ =3D~ /\<DIR\>/) {=20
 				$_=3Dsubstr($_,39);
 				s/ */ /g;
 				s/^ *//g;
 				chomp;
 				@stuff=3Dsplit / /;
				$dirs2[$i] =3D $_;
				$i++;
			} else {
 				$_=3Dsubstr($_,39);
 				s/ */ /g;
 				s/^ *//g;
 				chomp;
 				@stuff=3Dsplit / /;

print "Getting $_\n";
    				$ftp->get($_,$backup_dir.$dir."\\".$_) or $newerr=3D1;
    				push @ERRORS, "Couldn't get $stuff[3] $!\n" if $newerr;
   		 	}
		}
   	$ftp->cdup () or $newerr=3D1;=20
   	push @ERRORS, "Can't cdup $!\n" if $newerr;
   	myerr() if $newerr;
   	$ftp->quit if $newerr;

}

$ftp->quit;

sub myerr {
  print "Error: \n";
  print @ERRORS;
  exit 0;
}

back=20 to top
..

..
DirRecursiveWindows

back=20 to top
..

30-Day = Money=20 Back Guarantee | Terms & Conditions | =A9 = GeneralHosting.com/Winweb=20 LLC., Official Microsoft Windows 2003=20 Hosting

------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://www.generalhosting.com/pictgif/log.gif R0lGODlhMwA1APcAAAAAAP///84QGNYpMc4YId5aY95rc84IGM4QIc4YKc4AGM4xQtY5StZKWs4I Ic4QKc4hOc4AIcYAIf//1v//9//WAP/OAP/OCP/GAP/OEP/GCP/GEP/GGP+9AP+9CP/GKfe1CP+9 GPetCP+1EP+9IfelCP+tEP+1GP+9Of/vzv/35/elEP+tGP+1Mf+tIf/v1u+UCPecEPecGP+lIf+t Mf+1Qv+1Sv+9Wv/Gc++MCP+lKf+lMf+tQv+1Uv+9Y//Ge//OjP/WnP/nxu+MEPeUGP+tSv+1Wv+9 a//OlP/Wpf/ete+ECO+EEPeUIf+cKf+lQv/GhPeMIf+UKf+cOf+tWv/OnP/Wrf/evf/v3udzCO97 EP+UMe97GPeEIf+UOe9zEOdrEP+MMf+EMfeEMf+MOedjEO9rGPd7KffOtedjGO9rIfd7MfeEQuda EO9rKfdzMfd7Od5SEOdaGO9zOedaIe9jKe9jMd5KGOdSId5CGOdSKedaMfe9redKIe+tnN45GN5C Id4xGNYxGN45Id5CKd5CMdYpGN4xIeeMhO+clNYhGN5COdYxKdYYGM4YGNYhIdYpKed7e////wAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAJIALAAAAAAzADUA QAj/AAMIHEiwoMGDCBMqRCjEgAIJEiJEnAgxgkSLFytChMggxcKBfBQgEDRIUB4LFVKmTDOoZckS KkWUEZCx5sSMCwrygVinjpufRFSmlHHmjRujbmQIrTAEDx5AdwANAsMkCxgwCWxK9CMwEcQ9ZLyI nfKkrNmyZJ94ubC07dI7ghTRvCnBYAGICZ4U6XEEiZIUL64E+WGkxtIpXsaEWbOmiVAMfQD9EfTI kQQIHwdOQPRgo4QHe7ygFeslzJgxjH8CIrDRgMfMsEFGKsCAAUQItSP5eR0bIZrOERQ4OJAHhFuV HR5ZpKgV4gM0CK9ABISHDp4hS+no0UMnxvEKWg5R/1bkyEHzjIgG2ibAeM3p0y6+u/1Jp45TJkJF OGoeaaBXCYycVUQRNhBow4EDPkGCUBuYxphRIwg1BCCCHEKeRBIwkFAKC2y0yBFQAIEEFDgYUWAR aCGWGGpn/FSHdk8B8shn0PWW0AR8IBKJAbUVoCMfvNko5JBEIjRBIhB4VtFFy2HoXCRCFBkAGklq hOEgh2AJCZMZMUfRA4lkJkSHjihiyCM5yLdUGufdhGEDCHlFACB5AAIIBkKB8FSMdtZZkniPKNLI XOdhyMAEBHUIyHb1eaeSBi66YdxxfZZkyIVt1iVQJBIk8JMbZzCmQVsjsMDCqG1x8aJTUC3VnAT9 Bf/AqQTvhREWaV7sEMIGGWiQwQkznCDUCJ+6oZ0HQmlxIV0S8DGQc2OlJeBZT+yg5lIgWNrIAegV dJcEA5Q1oA0+/ADFuUf0UGAGQulABhmoreHGmlIdYsh+lyWEyEaF8IXEFS9gIUQShH0gVAZiwcuY CRLikccggbAGZ2YcbvTAHOqeyINZKq6Ymht1cDcIAjRKGQAf3yqpspIMhGnyyzDHLDNCfhTQmWdO etZylDLzkYCVES1HkZsWp1fkmBtphaGTTAb9ZY2x/bakRHhMKpQFadxMtE0QcfWR1AI40ogjS1xb AQjA0cX1ZTwjZIAEjoh3CBhtwdCGIHHAdHWbXDv/e5BtWdqJn1Bf0Gn4IHJYAEMelzpSHt8auUyQ bYPYWd1SXDhV3RAxDOH550OkIcilNEEuwRUEvU2Addo5mpIHdajRkwjfiV5SoPtlqqFAKUCkR+wg r7BUsSvIsILwQpUQY0vjEao2RH7vi0CxoLYVxRqhnqHUUkRobvhSgqwd69uehsrYGFKYLRTI3Dll xtWlMzt+p2fU+u4WTrB7rQefhkwHdirJgVy4FqtZuedW0XpCWkSjog0MqwlRiAIXusAFlKgkDo/Y VpMgUiM0QIQQWxCLAqlFLbKoTyW3w5ehCNIAiMxBWuIakAxR9IQWLGUDGsihBzxgwZSU4A8lIcAB 9SjStgD0DiJkKAsPCNSDHvjAB0ZQ14A4IJQTkMFBLUJVSgoniNHFT3IDEcJG4DCuclXBClZIAhDS ZYOl6KA0pznDGZZiJ0s54iFGM8gVbjYAG/QAB/9SAQVSkAQo3AAFQrkAYuCFGuSlBAR2opAhSOa1 hKSsED6AQhKUoAQrAAEHPahBC0ZJgx2IxTSo6UIUKMgFNfSJNRAI0oY6BJEBUOEIR4CixsySsDGI 4WPGsk4fWPMcG6WghRuBBBuKsESOkeY9LXIRHVgjgQVAbUhCSNlGElAIO8wBDl4gwxv2oAdG/Gwj C/CbzISACNuszDMLMMA1PxIQADs= ------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://www.generalhosting.com/pictgif/genera.gif R0lGODlh+gAVAMQAAAAAAP///+9rc+dKWt4hOedaa9YAId4QMd4xSuc5Uv/vzv/evffOtfe9rfet nPeclO97e++MjP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEA ABIALAAAAAD6ABUAAAX/oCSOpNScSqmubOu+cCzPdC2eDH0udu9LjF1sISAYjkcCJFUSJJ7Q6Cia 4K2ihSk1KhAxts9BxNoaRCEsJ5Smfq7aCVajcEAeBw1XxIg8FPImYFRdcCMPCFBoK4dQgCURCXYG fmQlCgKSkgQ5JJl2CDeScSoNn6GeR4oQqEgPLRGaLJI0syq1JAx8qKMqupkOEqusqRK3kXaOJMdH yRIRdagHriW5w0cHlcMDIg6/Kt1IXRLgqBEimNbNI9B2skigM6a2703WSZUSCKyjA/au8vliqdCH pMSyYcBGMGBnbdspVKoyHVAh7Ii5YMMAHUTlsERFOwlJlELSEcbIO6Ts/5QsYI/eCHTvjmETsdHT CZUjPCnq1IeEr2EERij4KSCFggcMDViBhSRBBAhQIVjpl0ncCKrMRGA1UOBp1HXtTBBMomJBUmKP 7OyEwRQtibYGdsJ8JyBCgZ8GphXrw0mCAL1R4RrwigauIgaeZiq0w4ulnT83xh6ZNvdAXy8kQ84N WUIyMhKSR4R2dwSeCYAjHGfi9RLkjM0qYJ/+1GyugaDjGMdAjRFJQnKSTOcOx02SXtGlpymQpM5v BCZTPq9ghVvErVslThrgBbykhAWMGao42JwF+fHSDwon8dGAiI/SXmhnLeF8b08hPyqSvNaQgEpw ZTGDL1FBBQh470iiCP+CR4zCoAEIFCiVCA+oFV0rndnxhYYl+EIDgRJC4CEQdkzEwoNK3dcHZItY 6FNYEqgGYYmpfYaYSzFIxlmIUU0zzEXaFVAZD9qJo10mnHz0l4i8zeeXHRflhONuLZX2nh1WTRcW cKJcdiWGPFlJEzIMiXMQD0qS8ACPUO1VkFCsdHEkc18SI1kc+tXpyVXWWGbQZxUiIeBDEM4w5zCj 2EfaETWiUh2fSCSjnWmzCJZHLYoG5AkCy/U0wqGTSRAoKo1mdeQDMgIiY3Aj4MWYl6NuR+ijsfbn Qqz2KLJVecM1qKZnSEQpwoiGuPhgonYQcKwIkl3Gyh/YCWZHCh8hYob/GRcewclWBzQ7ZlPXJmBV iXT2wqF1MKoo7AtKnuBuA3NdJNlxf4KJiwCe9Ucje1ASKuCNTeHkZlaYoeJAp0iQsYC7B/EjnQri gUWqCBGrAPB2W2UpgrQGQ0pwDLuqEHJ9uq0Al4ksEIhLyR4bAIhhI7Tn4rwinVAZxS6SYJZ0o2kp 5saoUDolCcAJcGQzZ0GE3Jsy9AwajO0NGrOChuAjI2dFZ8i0bMx2LMFW9HWNhK7G6XynlJG+y4l2 3tVkgEOTvtuAFR+Zc9CjMu+DNjNyu7BvCX9fnNwJTAJkFgGOaIeynuv+fdBloHIimNQx/j1nAlBt NQkTgksiDswrZ3IR/8e+afXZkRftDG4C10pmYuePtXBx2LMrU+UkfY1FQAJElTBywb7izHTLwyel BAR0lHtOS34SKrqe9KoYqvSScHLmt9eIIKPG6CKRA6hupURcdljqnLREfZE+NMkJi1R+94VCzOoI XLIS/aqrQUe9dL8/zf8we3MP8I5QgAcpRmuhylvpWJAnj+TMC8CShHdsExwvDUyAUxsbodYDNN7g KhMIsGBkPJEAdeDPDlYgFvlg5CqyfIdl7EOCylYgoyyc0HstSJUKdEiRCLKIGjWJ0AqWRQIe1so8 D/TCCQkQvbI0AAJPaYD+fkDFKlrxilVkwAOeEgFeieQpDxAhFq3YAAavzI0FIQAAOw== ------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://www.generalhosting.com/htm/spacer.gif R0lGODlhAQABAJH/AP///wAAAP///wAAACH/C0FET0JFOklSMS4wAt7tACH5BAEAAAIALAAAAAAB AAEAAAICVAEAOw== ------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://www.generalhosting.com/htm/icon_house.gif R0lGODlhDwAPAIABAP///zMzMyH5BAEAAAEALAAAAAAPAA8AAAIajI+py73gDphx2mbzy1pR83kQ OIpSGaXqGhUAOw== ------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://www.generalhosting.com/htm/icon_phone.gif R0lGODlhDwAPAIABAP///zMzMyH5BAEAAAEALAAAAAAPAA8AAAIbjI+py+0NogRLHpumZjF0ToVU pY1KaT7qyj4FADs= ------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://www.generalhosting.com/htm/icon_email.gif R0lGODlhDwAPAIABAP///zMzMyH5BAEAAAEALAAAAAAPAA8AAAIajI+py+0MoowLhHmrpVRJ83lT mIzkg6bq+hQAOw== ------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://www.generalhosting.com/htm/icon_question.gif R0lGODlhDwAPAIABAP///zMzMyH5BAEAAAEALAAAAAAPAA8AAAIdjI+py30AI1QRVTtxkjm/G4AG x22XRJGAw7buixQAOw== ------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://www.generalhosting.com/htm/dotline.gif R0lGODlhAwACAJEAAAAAAP///2ZmZv///yH5BAEAAAMALAAAAAADAAIAAAIDjIJRADs= ------=_NextPart_000_0054_01C97FA3.5118DAF0 Content-Type: application/x-css Content-Transfer-Encoding: quoted-printable Content-Location: http://www.generalhosting.com/htm/fc_03_style.css A { COLOR: #cc6600; TEXT-DECORATION: underline } A:active { COLOR: #cc6600; TEXT-DECORATION: none } A:hover { COLOR: #cc6600; TEXT-DECORATION: none } A:visited { COLOR: #db6e02; TEXT-DECORATION: underline } A:hover { COLOR: #db6e02; TEXT-DECORATION: none } A.button { COLOR: #ffffff; TEXT-DECORATION: none } A.button:active { COLOR: #ffffff; TEXT-DECORATION: none } A.button:hover { COLOR: #ffffff; TEXT-DECORATION: underline } A.button:visited { COLOR: #ffffff; TEXT-DECORATION: none } A.button:hover { COLOR: #ffffff; TEXT-DECORATION: underline } A.button2 { COLOR: #333333; TEXT-DECORATION: none } A.button2:active { COLOR: #333333; TEXT-DECORATION: none } A.button2:hover { COLOR: #333333; TEXT-DECORATION: underline } A.button2:visited { COLOR: #333333; TEXT-DECORATION: none } A.button2:hover { COLOR: #333333; TEXT-DECORATION: underline } A.caps { FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-VARIANT: = small-caps; TEXT-DECORATION: none } A.caps:active { FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-VARIANT: = small-caps; TEXT-DECORATION: none } A.caps:hover { FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-VARIANT: = small-caps; TEXT-DECORATION: underline } A.caps:visited { FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-VARIANT: = small-caps; TEXT-DECORATION: none } A.caps:hover { FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-VARIANT: = small-caps; TEXT-DECORATION: underline } A.footer { COLOR: #cccccc; TEXT-DECORATION: none } A.footer:active { COLOR: #cccccc; TEXT-DECORATION: none } A.footer:hover { COLOR: #cccccc; TEXT-DECORATION: underline } A.footer:visited { COLOR: #cccccc; TEXT-DECORATION: none } A.footer:hover { COLOR: #cccccc; TEXT-DECORATION: underline } A.header { FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: white; FONT-FAMILY: = Verdana, Tahoma, Arial; FONT-VARIANT: small-caps; TEXT-DECORATION: none } A.header:active { COLOR: white; TEXT-DECORATION: none } A.header:hover { COLOR: white; TEXT-DECORATION: underline } A.header:visited { COLOR: white; TEXT-DECORATION: none } A.header:hover { COLOR: white; TEXT-DECORATION: underline } A.link2 { COLOR: #333333; TEXT-DECORATION: none } A.link2:active { COLOR: #333333; TEXT-DECORATION: none } A.link2:hover { COLOR: #333333; TEXT-DECORATION: underline } A.link2:visited { COLOR: #333333; TEXT-DECORATION: none } A.link2:hover { COLOR: #333333; TEXT-DECORATION: underline } A.link2a { COLOR: #333333; TEXT-DECORATION: none } A.link2a:active { COLOR: #333333; TEXT-DECORATION: none } A.link2a:hover { COLOR: #333333; TEXT-DECORATION: underline } A.link2a:visited { COLOR: #333333; TEXT-DECORATION: none } A.link2a:hover { COLOR: #333333; TEXT-DECORATION: underline } A.toplinks { FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: black; FONT-FAMILY: = Verdana, Tahoma, Arial; FONT-VARIANT: small-caps; TEXT-DECORATION: = underline } A.toplinks:active { COLOR: black; TEXT-DECORATION: none } A.toplinks:hover { COLOR: black; TEXT-DECORATION: none } A.toplinks:visited { FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: = Verdana, Tahoma, Arial; FONT-VARIANT: small-caps; TEXT-DECORATION: = underline } A.toplinks:hover { COLOR: #333333; TEXT-DECORATION: none } BODY { FONT-WEIGHT: normal; FONT-SIZE: 11px; BACKGROUND: black; COLOR: = #333333; FONT-FAMILY: Verdana, Tahoma, Arial } .caps { FONT-WEIGHT: normal; FONT-SIZE: 11px; FONT-FAMILY: Verdana, Tahoma, = Arial; FONT-VARIANT: small-caps } .error { FONT-WEIGHT: bold; COLOR: red } H1 { PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-WEIGHT: normal; FONT-SIZE: = 11px; PADDING-BOTTOM: 0px; MARGIN: 1px 0px 0px; PADDING-TOP: 1px; = FONT-FAMILY: Verdana, Tahoma, Arial } .input { BORDER-RIGHT: #333333 1px solid; BORDER-TOP: #333333 1px solid; = FONT-WEIGHT: normal; FONT-SIZE: 8pt; MARGIN: 0px; BORDER-LEFT: #333333 = 1px solid; COLOR: #333333; BORDER-BOTTOM: #333333 1px solid; = FONT-FAMILY: MS Sans Serif, Lucida Sans Unicode, Microsoft Sans Serif; = BACKGROUND-COLOR: white } .large { FONT-WEIGHT: normal; FONT-SIZE: 12px; FONT-FAMILY: Verdana, Tahoma, = Arial } LI { FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: black; FONT-FAMILY: = Verdana, Tahoma, Arial } .orange { COLOR: #cc6600 } .dark_orange { COLOR: #fa6626 } A.dark_orange { COLOR: #fa6626; TEXT-DECORATION: underline } A.dark_orange:active { COLOR: #fa6626; TEXT-DECORATION: none } A.dark_orange:hover { COLOR: #fa6626; TEXT-DECORATION: none } A.dark_orange:visited { COLOR: #fa6626; TEXT-DECORATION: underline } A.dark_orange:hover { COLOR: #fa6626; TEXT-DECORATION: none } .light_orange { COLOR: #ff9900 } A.light_orange { COLOR: #ff9900; TEXT-DECORATION: underline } A.light_orange:active { COLOR: #ff9900; TEXT-DECORATION: none } A.light_orange:hover { COLOR: #ff9900; TEXT-DECORATION: none } A.light_orange:visited { COLOR: #ff9900; TEXT-DECORATION: underline } A.light_orange:hover { COLOR: #ff9900; TEXT-DECORATION: none } .maroon { COLOR: #aa533c } A.maroon { COLOR: #aa533c; TEXT-DECORATION: underline } A.maroon:active { COLOR: #aa533c; TEXT-DECORATION: none } A.maroon:hover { COLOR: #aa533c; TEXT-DECORATION: none } A.maroon:visited { COLOR: #aa533c; TEXT-DECORATION: underline } A.maroon:hover { COLOR: #aa533c; TEXT-DECORATION: none } .red { FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #aa533c; FONT-FAMILY: = Verdana, Tahoma, Arial; FONT-VARIANT: small-caps } .small { FONT-WEIGHT: normal; FONT-SIZE: 11px; FONT-FAMILY: Verdana, Tahoma, = Arial } .submit { BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: = #000000 1px solid; PADDING-LEFT: 0px; FONT-WEIGHT: normal; FONT-SIZE: = 12px; PADDING-BOTTOM: 0px; BORDER-LEFT: #000000 1px solid; COLOR: white; = PADDING-TOP: 0px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: = Verdana, Helvetica, Arial; BACKGROUND-COLOR: #9a3217 } TD { FONT-WEIGHT: normal; FONT-SIZE: 11px; FONT-FAMILY: Verdana, Tahoma, = Arial } TD.cream { BORDER-RIGHT: #e6d9cb 1px solid; BORDER-TOP: #e6d9cb 1px solid; = FONT-WEIGHT: normal; FONT-SIZE: 12px; BORDER-LEFT: #e6d9cb 1px solid; = BORDER-BOTTOM: #e6d9cb 1px solid; FONT-FAMILY: Verdana, Tahoma, Arial; = BACKGROUND-COLOR: #f2ece5 } TD.dark_brown { BACKGROUND-COLOR: #736357 } TD.dark_cream { BACKGROUND-COLOR: #ece2d8 } TD.footer { FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #cccccc; FONT-FAMILY: = Verdana, Tahoma, Arial; BACKGROUND-COLOR: #464646 } TD.header { PADDING-LEFT: 10px; FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: white; = FONT-FAMILY: Verdana, Tahoma, Arial; BACKGROUND-COLOR: #736357; = FONT-VARIANT: small-caps } TD.index { BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; = FONT-WEIGHT: normal; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: = #cccccc 1px solid; BACKGROUND-COLOR: #f8f5f2 } TD.light_brown { BACKGROUND-COLOR: #998675 } TD.light_cream { BACKGROUND-COLOR: #f3efe9 } TD.gallerynav { BACKGROUND-COLOR: #ece2d8 } TD.gallerynav A { PADDING-RIGHT: 5px; DISPLAY: block; PADDING-LEFT: 5px; FONT-WEIGHT: = normal; FONT-SIZE: 10px; WIDTH: 100%; COLOR: black; FONT-FAMILY: = Verdana, Tahoma, Arial; HEIGHT: 100%; TEXT-DECORATION: none } TD.gallerynav A:hover { DISPLAY: block; FONT-WEIGHT: normal; WIDTH: 100%; COLOR: black; HEIGHT: = 100%; BACKGROUND-COLOR: #d8c9b7; TEXT-DECORATION: none } TD.gallerynav A:visited { PADDING-RIGHT: 5px; DISPLAY: block; PADDING-LEFT: 5px; FONT-WEIGHT: = normal; FONT-SIZE: 10px; WIDTH: 100%; COLOR: black; FONT-FAMILY: = Verdana, Tahoma, Arial; HEIGHT: 100%; TEXT-DECORATION: none } TD.navon { BACKGROUND-COLOR: #aa533c } TD.navon A { PADDING-RIGHT: 5px; DISPLAY: block; PADDING-LEFT: 5px; FONT-WEIGHT: = normal; FONT-SIZE: 12px; WIDTH: 100%; COLOR: white; FONT-FAMILY: = Verdana, Tahoma, Arial; HEIGHT: 100%; FONT-VARIANT: small-caps; = TEXT-DECORATION: none } TD.navon A:hover { DISPLAY: block; FONT-WEIGHT: normal; WIDTH: 100%; COLOR: white; HEIGHT: = 100%; BACKGROUND-COLOR: #993300; TEXT-DECORATION: none } TD.navon A:visited { PADDING-RIGHT: 5px; DISPLAY: block; PADDING-LEFT: 5px; FONT-WEIGHT: = normal; FONT-SIZE: 12px; WIDTH: 100%; COLOR: white; FONT-FAMILY: = Verdana, Tahoma, Arial; HEIGHT: 100%; FONT-VARIANT: small-caps; = TEXT-DECORATION: none } TD.nav { BACKGROUND-COLOR: #333333 } TD.nav A { PADDING-RIGHT: 5px; DISPLAY: block; PADDING-LEFT: 5px; FONT-WEIGHT: = normal; FONT-SIZE: 12px; WIDTH: 100%; COLOR: white; FONT-FAMILY: = Verdana, Tahoma, Arial; HEIGHT: 100%; FONT-VARIANT: small-caps; = TEXT-DECORATION: none } TD.nav A:hover { DISPLAY: block; FONT-WEIGHT: normal; WIDTH: 100%; COLOR: white; HEIGHT: = 100%; BACKGROUND-COLOR: #993300; TEXT-DECORATION: none } TD.nav A:visited { PADDING-RIGHT: 5px; DISPLAY: block; PADDING-LEFT: 5px; FONT-WEIGHT: = normal; FONT-SIZE: 12px; WIDTH: 100%; COLOR: white; FONT-FAMILY: = Verdana, Tahoma, Arial; HEIGHT: 100%; FONT-VARIANT: small-caps; = TEXT-DECORATION: none } TD.tan { BACKGROUND-COLOR: #d8c9b7 } TD.top { BORDER-RIGHT: #d8c9b7 1px solid; BORDER-TOP: #d8c9b7 1px solid; = FONT-WEIGHT: normal; FONT-SIZE: 11px; BORDER-LEFT: #d8c9b7 1px solid; = COLOR: #aa533c; BORDER-BOTTOM: #d8c9b7 1px solid; FONT-FAMILY: Verdana, = Tahoma, Arial; BACKGROUND-COLOR: #f3efe9 } TD.fea { BORDER-RIGHT: #d8c9b7 1px solid; BORDER-TOP: #d8c9b7 1px solid; = FONT-WEIGHT: normal; FONT-SIZE: 11px; BORDER-LEFT: #d8c9b7 1px solid; = COLOR: #333333; BORDER-BOTTOM: #d8c9b7 1px solid; FONT-FAMILY: Verdana, = Tahoma, Arial; BACKGROUND-COLOR: #ffffff } .tiny { FONT-WEIGHT: normal; FONT-SIZE: 10px; FONT-FAMILY: Verdana, Tahoma, = Arial } ------=_NextPart_000_0054_01C97FA3.5118DAF0--