[12683] in Perl-Users-Digest
Perl-Users Digest, Issue: 92 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 9 14:07:11 1999
Date: Fri, 9 Jul 1999 11:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 9 Jul 1999 Volume: 9 Number: 92
Today's topics:
Access Modifications on a UNIX box... <andycha@globalnet.co.uk>
Re: array stuff.. <uri@sysarch.com>
can perl run overnight? <jeffisen@inreach.com>
Chatpro 2.5 glitch... Help <kuzzero@nconnect.net>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 9 Jul 1999 18:06:24 +0100
From: "Andy Chantrill" <andycha@globalnet.co.uk>
Subject: Access Modifications on a UNIX box...
Message-Id: <7m5a8r$n41$1@gxsn.com>
Hey,
I've seen a few posts regarding how to modify MS Access databases with Perl
in Win95/98, but is it possible on a box running UNIX?
If so how?
Thanks a lot,
Andy.
------------------------------
Date: 09 Jul 1999 13:26:23 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: array stuff..
Message-Id: <x7908pspj4.fsf@home.sysarch.com>
>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
LR> [Posted and a courtesy copy sent.]
LR> In article <378615A6.8736FB08@americasm01.nt.com> on Fri, 09 Jul 1999
LR> 10:30:46 -0500, Marshall Culpepper <marshalc@americasm01.nt.com> says...
>> hey kind of an intermediate skill level on perl..
>> is there any quick function to add a certain string to every element of
>> an array
>> i.e;
>> $str="a";
>> @test=('0'..'5');
>> and test would return as ('a0'..'a5')? any help would be greatly
>> appreciated :)
LR> $_ = "$str$_" for @test;
TIMTOWTDI
substr($_, 0, 0, $str) for @test ;
it doesn't win perl golf but i like 4 arg substr. and i have seen lvalue
substr be faster than interpolation in some cases. larry will now run
his autobenchmark module and post results in 3.4ms. :-)
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Fri, 09 Jul 1999 11:07:06 -0700
From: Jeff Isenhart <jeffisen@inreach.com>
Subject: can perl run overnight?
Message-Id: <37863A4A.AE4D1F35@inreach.com>
I have a perl script I want ran each night. (It reads web pages and
updates my own) Is there anyway to make this run on it own or am I stuck
with running it myself daily?
Jeff
------------------------------
Date: Fri, 9 Jul 1999 11:48:37 -0500
From: "John Curry" <kuzzero@nconnect.net>
Subject: Chatpro 2.5 glitch... Help
Message-Id: <7m58uh$cu2@enews2.newsguy.com>
I've installed Chatpro 2.5 on a win98 operating system with a Sambar 4.1
server and Active State Perl 5.004. For the most part the script works
well, as do the plugin pl's, but the 1 glitch I have hit is with the
password_style setting 2... it is suppose to allow registered users to post
as usual, and non-registered users to simply be able to reload, but not
post.
So here is the problem, if I set to password_style = 2 in the conf. file but
turn the access_control function off, all can enter and reload only,
irregardless of Registration, ... if I turn the access control on, only a
blank page is generated for either a registered, or non-registered user...
I have tried several approaches myself, but I am an amatuer at perl
programing, I am including the access_control.pl and the main chat.pl and
please, don't just give me hints how to fix it, actually type out the fix
and show me where to insert it, and what language to replace.
----------------------------------------------------------------------------
-------------------------------------
Access_Control.pl
#####################################################################
# ChatPro Access Control Part Version 2.5 #
# access_control.pl #
# #
# by Command-O Software #
# http://www.command-o.com #
# #
# Copyright 1997-98, All Rights Reserved #
# #
# By using this script Licensee agrees to all terms of the License #
# Agreement. Read it now, if you haven't already. #
#####################################################################
sub private_chat {
print "<center><h2>Private Chat</h2></center>\n";
print "We're sorry this chat is not open to the public.<p>\n";
print "Write to the person in charge of this chat if you would\n";
print " like to have access to this chat.<p>\n";
print "If you are already registered, use the back button \n";
print "to return to the previous page. If you made a typo in your
submission correct it.<p>\n";
}
#####################################################################
sub admit_style {
if($password_style == 1) {
$password = crypt($passwd,MW);
open(PASSLIST,"$password_file");
while(<PASSLIST>) {
($listname,$listpass) = split(/::/,$_);
if($listname eq "$name" && $listpass ne "$password") {
$passlistbad = 1;
}
}
close(PASSLIST);
if($passlistbad) {
&name_taken;
}
else {
$passlistok = 1;
}
}
elsif($password_style == 2) {
if($passwd) {
$password = crypt($passwd,MW);
}
open(PASSLIST,"$password_file");
while(<PASSLIST>) {
($listname,$listpass) = split(/::/,$_);
if($passwd && $listname eq "$name" && $listpass ne "$password") {
$passlistbad = 1;
}
if($listname eq "$name") {
$passpost = 1;
}
}
close(PASSLIST);
if($passlistbad) {
&name_taken;
}
else {
$passlistok = 1;
}
}
elsif($password_style == 3) {
$password = crypt($passwd,MW);
open(PASSLIST,"$password_file");
while(<PASSLIST>) {
($listname,$listpass) = split(/::/,$_);
if($listname eq "$name" && $listpass eq "$password") {
$passlistok = 1;
}
elsif($listname eq "$name") {
$passlistbad = 1;
}
}
close(PASSLIST);
if($passlistbad) {
&name_taken;
}
if(!$passlistok) {
if($public_register == 1) {
print "Location:
http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?register\n\n";
}
else {
print "Content-type: text/html\n\n";
print "<html><head><title>$page_title
$reg_page</title></head>\n";
print "<body bgcolor=$bgcolor background=\"$background\" ";
print "text=$text_color link=$link_color vlink=$vlink_color>\n";
print "<ul><center>\n";
if($advertise_plugin && $ad_locations =~ /a/) {
&advertise;
}
if ($title_graphic eq "") {
print "<H1>$page_title</h1>\n";
}
else {
print "<h1><img src=\"$title_graphic\"
alt=\"$page_title\"></h1>\n";
}
print "</center>\n";
&private_chat;
if(advertise_plugin && $ad_locations =~ /b/) {
&advertise;
}
print "<center>$our_image</center>\n";
print "</body> </html>\n";
}
&unlock;
exit;
}
}
}
############################################
# DO NOT CHANGE THE LAST LINE OF THIS FILE #
############################################
1;
----------------------------------------------------------------------------
--------------------------------------
Chat.pl
#!local/user/perl/bin
#####################################################################
# ChatPro Script Version 2.5 #
# #
# by Command-O Software #
# http://www.command-o.com #
# #
# Copyright 1996-98, All Rights Reserved #
# #
# By using this script Licensee agrees to all terms of the License #
# Agreement. Read it now, if you haven't already. #
#####################################################################
$conf_file = "chatpro.conf";
$default_lang_file = "chatpro.lang";
#####################################################################
&main;
sub main {
$|=1;
require($conf_file);
if (-e "$plugin_dir/plugin.conf") {
require("$plugin_dir/plugin.conf");
}
&set_values;
$lang_file = $default_lang_file;
$lock_file = "lock";
$our_link = "http://www.command-o.com/";
$our_image = "<font size=-1>ChatPro 2.5 by<br> <a target=\"_new\"
href=\"$our_link\">Command-O Software</a></font>";
if($profile_plugin) {
$profiles_active = 1;
require ("$plugin_dir/profile.pl");
}
$oshow_status = $show_status;
$time = time() + ($time_zone * 3600);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
if ($sec < 10) {
$sec = "0$sec";
}
if ($min < 10) {
$min = "0$min";
}
if ($hour < 10) {
$hour = "0$hour";
}
$mon++;
if ($mon < 10) {
$mon = "0$mon";
}
if ($mday < 10) {
$mday = "0$mday";
}
if($include_date == 1) {
$date = "$mon/$mday/$year $hour\:$min\:$sec";
$archive_date = "$mon/$mday/$year $hour\:$min\:$sec";
}
elsif($include_date == 2) {
$date = "$hour\:$min\:$sec";
$archive_date = "$mon/$mday/$year $hour\:$min\:$sec";
}
else {
$date = "$hour\:$min\:$sec";
$archive_date = "$hour\:$min\:$sec";
}
&lock;
if ($ENV{'QUERY_STRING'} =~ /^topframe/ && !$ENV{'CONTENT_LENGTH'}) {
require("$plugin_dir/frames.pl") || die "Couldn't find frames part";
&topframe;
}
elsif ($ENV{'QUERY_STRING'} =~ /^ct--/) {
require("$plugin_dir/advertise.pl") || die "Couldn't find ad part";
&lock;
&click_through;
&unlock;
exit;
}
elsif ($ENV{'PATH_INFO'} =~ /^\/bottomframe/) {
require("$plugin_dir/frames.pl") || die "Couldn't find frames part";
$bottomframe = 1;
&bottomframe;
}
elsif ($ENV{'QUERY_STRING'} =~ /^ad_summary/) {
&unlock;
require("$plugin_dir/advertise.pl");
&ad_summary;
exit;
}
elsif ($ENV{'QUERY_STRING'} =~ /^register/) {
require("$plugin_dir/register.pl");
exit;
}
else {
if($ENV{'CONTENT_LENGTH'}) {
&parse_form;
&get_variables;
if ($admin_plugin && $adminyes && $message =~ /^command::/) {
require("$plugin_dir/admin.pl");
&admin_work;
}
if($admin_plugin && -s "$file_dir/commands.txt") {
require("$plugin_dir/admin.pl");
&apply_commands;
}
&read_files;
}
else {
if ($ENV{'QUERY_STRING'}) {
($tentry,$tout_link) = split(/::/,$ENV{'QUERY_STRING'});
if($tentry) {
$entry = $tentry;
}
if($tout_link) {
$out_link = $tout_link;
}
}
$room = $entry;
if($custom_room_plugin) {
require("$plugin_dir/custom_room.pl");
&custom_room;
}
require("$lang_file") || die "Could not find language file";
&misc_lang;
}
if($advertise_plugin && $ad_locations) {
require("$plugin_dir/advertise.pl");
}
&check_referer;
&prelocation;
&location;
}
exit;
}
sub set_values {
$visitors_time = $visitors_time * 60;
$chat_time = $chat_time * 60;
}
##########
# Lock
sub lock {
while(-e "$file_dir/$lock_file") {
if($time + $lock_time < time()) {
unlink("$file_dir/$lock_file");
}
else {
select(undef, undef, undef, 0.25);
}
}
open(LOCK,">$file_dir/$lock_file") || die "Could not create lock file";
close(LOCK);
}
########################
# Parse Form
sub parse_form {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($nam, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
if($allow_html == 0) {
$value =~ s/</</g;
$value =~ s/>/>/g;
}
$FORM{$nam} = $value;
}
}
###########
# Get variables from form
sub get_variables {
if ($FORM{'room'}) {
$room = "$FORM{'room'}";
$room =~ s/ /_/g;
$room =~ s/\//_/g;
}
if($custom_room_plugin) {
require("$plugin_dir/custom_room.pl");
&custom_room;
}
require("$lang_file") || die "Could not find language file";
&misc_lang;
if ($FORM{'where'}) {
$where = "$FORM{'where'}";
}
if($FORM{'frames'}) {
$frames = "$FORM{'frames'}";
}
if ($FORM{'pubroom'}) {
$pubroom = "$FORM{'pubroom'}";
$pubroom =~ s/ /_/g;
$pubroom =~ s/\//_/g;
if($pubroom eq "$pubroom_title") {
undef($pubroom);
}
}
if ($FORM{'priroom'}) {
$priroom = "$FORM{'priroom'}";
$priroom =~ s/ /_/g;
$priroom =~ s/\//_/g;
}
if ($FORM{'solo'}) {
$solo = "$FORM{'solo'}";
if($solo eq "$entire_room") {
undef($solo);
}
}
if ($FORM{'link'}) {
$link = "$FORM{'link'}";
}
if ($FORM{'name'}) {
$name = "$FORM{'name'}";
$name =~ s/\/|"|<|>|\&|\(|\)|\$|\*|\?|\\//g;
$name =~ s/\s+/ /g;
$name =~ s/^\s//g;
$name =~ s/\s$//g;
$name =~ s/^\.+//g;
$name =~ s/_/ /g;
$vname = $name;
$vname =~ s/ /_/g;
}
if ($FORM{'load_time'}) {
$load_time = "$FORM{'load_time'}";
}
if ($FORM{'mail'} =~ /.*\@.*\..*/) {
$mail = "$FORM{'mail'}";
$maillink = "<a href=\"mailto:$mail\">$mail</a>";
}
if ($FORM{'passwd'}) {
$passwd = "$FORM{'passwd'}";
}
if ($FORM{'password'}) {
$password = "$FORM{'password'}";
}
if ($FORM{'passwordb'}) {
$passwordb = "$FORM{'passwordb'}";
}
if ($FORM{'regno'}) {
$regno = "$FORM{'regno'}";
}
if ($FORM{'nummes'}) {
$nummes = $FORM{'nummes'};
}
if ($FORM{'message'}) {
$message = $FORM{'message'};
$message =~ s/\cM//g;
$tempmessage = $message;
$tempmessage =~ s/\s+//g;
if($where ne "$reload_text") {
if($message =~ / /) {
@messagelines = split(/\n/,$message);
$count = 0;
while($count < @messagelines) {
if(length $messagelines[$count] > 80) {
$messagelines[$count] =
"</pre>$messagelines[$count]<pre>";
$longline = 1;
}
$count++;
}
if($longline) {
$message = join ("\n", @messagelines);
}
$message = "<pre>$message</pre>";
}
$message =~ s/http:\/\/\S+/<a href="$&" target="new">$&<\/a>/g;
$message =~ s/https:\/\/\S+/<a href="$&" target="new">$&<\/a>/g;
$message =~ s/ftp:\/\/\S+/<a href="$&" target="new">$&<\/a>/g;
$message =~ s/\S+\@\S+\.\S+/<a href="mailto:$&">$&<\/a>/g;
$message =~ s/\n\n/ <p> /g;
$message =~ s/\n/ <br> /g;
}
$message =~ s/"/"/g;
if($filter_plugin) {
require("$plugin_dir/filter.pl");
&lang_filter;
}
}
if ($FORM{'ignored'}) {
@ignored = split(/\(\)/,$FORM{'ignored'});
}
if($profile_plugin && -e "$profile_dir/$vname") {
$profile_link = "<a target=\"profile\"
href=\"$ENV{'SCRIPT_NAME'}/profile/$vname\">$profile_link_text</a>";
$maillink = "$maillink $profile_link";
}
if($FORM{'admin'}) {
$adminyes = 1;
}
}
###########
# Read files
sub read_files {
if($where || $solo || $ENV{'PATH_INFO'}){
$origroom = $room;
open(MAIN,"$file_dir/chat$room");
@main = <MAIN>;
close(MAIN);
@main = @main[(0 .. $max_mes)];
open(VISITORS,"$file_dir/vis$room");
@visitors = <VISITORS>;
close(VISITORS);
$vname = $name;
$vname =~ s/ /_/g;
$vname =~ s/\//_/g;
open(VFILE,"$vis_dir/$vname");
@vfile = <VFILE>;
close(VFILE);
@vfile = @vfile[(0 .. $max_mes)];
}
}
############
# Check Referer
sub check_referer {
if ($ENV{'HTTP_REFERER'} =~ /^http:\/\/([^\/]+)/) {
foreach$referer(@valid_referers) {
if ($ENV{'HTTP_REFERER'} =~ /$referer/) {
$okay_referer = 1;
}
}
}
if(!$ENV{'HTTP_REFERER'}) {
$okay_referer = 1;
}
if(!$okay_referer) {
&unlock;
&login;
exit;
}
}
##########
# Prepare for sending them places
sub prelocation {
if($where eq "$ignore_text" && $ignore_plugin) {
require("$plugin_dir/ignore.pl");
&ignore;
}
if($where eq "$go_there") {
$oldroom = $room;
if ($priroom) {
$room = $priroom;
}
elsif($pubroom) {
$room = $pubroom;
}
else {
$where = $reload_text;
}
if ($room eq "$oldroom") {
$where = "$reload_text";
}
}
if($message_plugin) {
require("$plugin_dir/message.pl");
&message_prep;
}
}
##########
# Where are they coming from?
sub location {
if ($solo && $where eq "$post_text" && $solo ne $entire_room) {
&verify_password;
&main_page_lang;
&privmsg;
&update;
&write;
&unlock;
&reload;
}
elsif ($where eq "register") {
if($frames eq "yes" && !$ENV{'QUERY_STRING'}) {
&unlock;
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl");
&admit_style;
}
if($admin_plugin) {
require("$plugin_dir/admin.pl");
&check_admin;
}
require("$plugin_dir/frames.pl") || die "Couldn't find frames
part";
&frames;
}
else {
&main_page_lang;
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl");
&admit_style;
}
if($admin_plugin) {
require("$plugin_dir/admin.pl");
&check_admin;
}
&create;
®ister;
&write;
&unlock;
&reload;
}
}
elsif ($where eq "$post_text") {
&verify_password;
&main_page_lang;
&create;
&post;
&update;
&write;
&unlock;
&reload;
}
elsif ($where eq "$reload_text") {
&verify_password;
&main_page_lang;
&snag;
&create;
&update;
&write;
&unlock;
&reload;
}
elsif ($where eq "$go_there") {
&verify_password;
if($pubroom || $priroom) {
$lang_file = $default_lang_file;
if($custom_room_plugin) {
require("$plugin_dir/custom_room.pl");
&custom_room;
if($message_plugin) {
require("$plugin_dir/message.pl");
&message_prep;
}
}
require("$lang_file") || die "Could not find language file";
&misc_lang;
&main_page_lang;
&create;
&change;
&write;
&unlock;
&reload;
}
else {
&main_page_lang;
&snag;
&create;
&update;
&write;
&unlock;
&reload;
}
}
elsif ($where eq "$leave_text") {
&verify_password;
&leave;
&write;
&unlock;
}
elsif ($profile_plugin && $where eq "$edit_profile") {
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl");
&admit_style;
}
if($passlistok) {
&edit_profile;
}
else {
&name_taken
}
}
elsif($profile_plugin && $where eq "$update_profile") {
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl");
&admit_style;
}
&update_profile;
}
elsif($profile_plugin && $where eq "$change_password") {
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl");
&admit_style;
}
&change_password;
}
elsif($who_is_where_plugin && $where eq "$who_is_where") {
&misc_lang;
if($where_locations =~ /A/ && !$load_time) {
&main_page_lang;
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl");
&admit_style;
}
if($admin_plugin) {
require("$plugin_dir/admin.pl");
&check_admin;
}
}
require("$plugin_dir/who_is_where.pl");
&who_is_where;
}
else {
&deletevfiles;
&unlock;
if(! -e "$file_dir/.htaccess") {
$access_dir = $file_dir;
&write_htaccess;
}
if(! -e "$vis_dir/.htaccess") {
$access_dir = $vis_dir;
&write_htaccess;
}
if(! -e "$plugin_dir/.htaccess" && -e $plugin_dir) {
$access_dir = $plugin_dir;
&write_htaccess;
}
&login;
}
}
############
# Login
sub login {
®_page_lang;
opendir(VFILES,$vis_dir);
@vfilelist = grep(!/^\.|^_/, readdir (VFILES));
closedir(VFILES);
$vtotal = @vfilelist - 1;
open(VISITORS,"$file_dir/vis$room");
@visitors = <VISITORS>;
close(VISITORS);
foreach $visitors_line (@visitors) {
($bogus,$load,$bogus2) = split(/:/,$visitors_line);
if ($time - $load < $visitors_time && $load) {
push (@visitors_new,"$visitors_line");
}
}
@visitors = @visitors_new;
undef @visitors_new;
$vnum = @visitors;
print "Content-type: text/html\n\n";
print "<html><head><title>$page_title $reg_page</title></head>\n";
print "<body bgcolor=$bgcolor background=\"$background\" ";
print "text=$text_color link=$link_color vlink=$vlink_color>\n";
if($font_face ne "") {
print "<font face=\"$font_face\">\n";
}
print "<ul><center>\n";
if($advertise_plugin && $ad_locations =~ /a/) {
&advertise;
}
if ($title_graphic eq "") {
print "<H1>$page_title</h1>\n";
}
else {
print "<h1><img src=\"$title_graphic\" alt=\"$page_title\"></h1>\n";
}
print "<h2>$reg_page</h2><p></center>\n";
®ister_body;
}
###########
# Body of Registration Page
# used on initial login, and when their chosen name is taken
# or other problem requires them to login again
sub register_body {
print "<b><font size=4 color=$one_color><center>$you_must</font>\n";
print "</b></center><p>$instruct<p>\n";
if ($vnum < 1) {
print "$no_vis_a $room $no_vis_b<p>\n";
}
elsif ($vnum==1) {
print "$one_vis_a $room $one_vis_b<p>\n";
}
else {
print "$mult_vis_a $vnum $mult_vis_b $room $mult_vis_c<P>\n";
}
if ($vtotal < 1) {
print "$no_vis_tot<p>\n";
}
elsif ($vtotal==1) {
print "$one_vis_tot<P>\n";
}
else {
print "$mult_vis_tot_a $vtotal $mult_vis_tot_b<P>\n";
}
print "$enter_name<br>\n";
print "<form method=POST action=\"$ENV{'SCRIPT_NAME'}\">\n";
print "<input type=hidden name=\"where\" value=\"register\">\n";
print "<input type=hidden name=\"link\" value=\"$out_link\">\n";
print "<input type=hidden name=\"time\" value=\"$time\">\n";
print "<table><tr><td>$name_blank</td>\n";
print "<td><input type=text size=30 name=\"name\" maxlength=25>";
print "<br></td></tr>\n";
print "<tr><td>$passwd_blank</td>\n";
print "<td><input type=password name=\"passwd\"
size=30><br></td></tr>\n";
print "<tr><td>$mail_blank</td>\n";
print "<td><input type=text size=30 name=\"mail\"><br></td></tr>\n";
if($frames_plugin ||$lite_plugin) {
print "<tr><td>$layout_blank</td><td>\n";
if($lite_plugin) {
print "$layout_lite:<input type=radio name=\"frames\"
value=\"lite\"> \n";
}
print "$layout_std:<input type=radio name=\"frames\" value=\"no\"
checked> \n";
if($frames_plugin) {
print "$layout_frames:<input type=radio name=\"frames\"
value=\"yes\">\n";
}
print "</td></tr>\n";
}
print "</table><br><input type=hidden name=\"room\" value=\"$room\">\n";
print "<input type=submit value=\"$enter_chat\">\n";
if($who_is_where_plugin && $where_locations =~ /a/i) {
print "<input type=\"submit\" name=\"where\"
value=\"$who_is_where\">\n";
}
if ($profile_plugin) {
print "<input type=submit name=\"where\" value=\"$edit_profile\">\n";
}
print "</form>\n";
if ($schedule_file) {
print "$sched_note_a <a href=\"$schedule_file\">";
print "$sched_note_b</a> $sched_note_c<p>\n";
}
if ($help_file) {
print "$help_a <a target=\"profile\" href=\"$help_file\"> $help_b</a>
$help_c<p>\n";
}
if($advertise_plugin && $ad_locations =~ /b/) {
&advertise;
}
print "<center>$our_image</center>\n";
print "</body> </html>\n";
}
###########
# Name taken
sub name_taken {
®_page_lang;
print "Content-type: text/html\n\n";
print "<html><head><title>$page_title $reg_page</title></head>\n";
print "<body bgcolor=$bgcolor background=\"$background\" ";
print "text=$text_color link=$link_color vlink=$vlink_color>\n";
if($font_face ne "") {
print "<font face=\"$font_face\">\n";
}
print "<ul><center>\n";
if($advertise_plugin && $ad_locations =~ /a/) {
&advertise;
}
if ($title_graphic eq "") {
print "<H1>$page_title</h1>\n";
}
else {
print "<h1><img src=\"$title_graphic\" alt=\"$page_title\"></h1>\n";
}
print "<h2>$reg_page</h2><p></center>\n";
print "$wrong_name<p>\n";
®ister_body;
&unlock;
exit;
}
############
# Check Name
sub check_name {
if (!$passwd || !$name) {
&name_taken;
}
elsif (-e "$vis_dir/$vname"){
open (VSAME,"$vis_dir/$vname") || die $!;
$vsame = <VSAME>;
close (VSAME);
($bogus,$test,$bogus2) = split(/:/,$vsame);
$password = crypt($passwd,MW);
if ($password ne $test) {
&name_taken;
}
}
elsif($user_limit_plugin) {
require("$plugin_dir/user_limit.pl");
&overflow;
}
}
########################
# Maintain files
sub create {
open(INDEX,">$file_dir/index.html");
print INDEX "$index_html\n";
close(INDEX);
open(INDEXB,">$vis_dir/index.html");
print INDEXB "$index_html\n";
close(INDEXB);
if($message_plugin) {
require("$plugin_dir/message.pl");
&message_prep;
}
opendir(FILES,"$file_dir");
@filelist = grep(!/^\./, readdir (FILES));
closedir(FILES);
foreach $file (@filelist) {
$tfile = $file;
$tfile =~ s/^chat//g;
if (-M "$file_dir/$file" > $chat_time / 86400 && ! $MESGROOMS{$tfile})
{
if ($file =~ /^chat/ || $file =~ /^vis/) {
unlink("$file_dir/$file");
}
}
}
&deletev;
}
sub deletev {
if (-e "$file_dir/vis$room") {
foreach $visitors_line (@visitors) {
($bogus,$load,$bogus2) = split(/:/,$visitors_line);
if ($time - $load < $visitors_time) {
push (@visitors_new,"$visitors_line");
}
}
}
@visitors = @visitors_new;
undef @visitors_new;
&deletevfiles;
}
sub deletevfiles {
opendir(VFILES,$vis_dir);
@vfilelist = grep(!/^\.|^_/, readdir (VFILES));
closedir(VFILES);
foreach $vfilelist (@vfilelist) {
if (-M "$vis_dir/$vfilelist" > ($visitors_time / 86400)) {
unlink("$vis_dir/$vfilelist");
}
}
if(!$where) {
opendir(VFILES,$vis_dir);
@ffilelist = grep(/^_/, readdir (VFILES));
closedir(VFILES);
foreach $ffilelist (@ffilelist) {
open(FFILE,"$vis_dir/$ffilelist");
$ffile = <FFILE>;
close(FFILE);
$ffile =~ s/\n//g;
$ffile =~ s/ /_/g;
if(! -e "$vis_dir/$ffile") {
unlink("$vis_dir/$ffilelist");
}
}
}
}
###########
# Register
sub register {
$login = $date;
foreach $visitors_line (@visitors) {
if ($visitors_line !~ /^<!--:\d+:-->$name($| \d+:\d\d:\d\d$)/) {
push (@visitors_new,"$visitors_line");
}
}
@visitors = @visitors_new;
undef @visitors_new;
$temp = "<!--:$time:-->$name\n";
unshift (@visitors,$temp);
shift(@vfile);
if($frame_remind && $frames eq "yes") {
if ($initial_message_plugin) {
require("$plugin_dir/initial_message.pl");
$temp = "<!--:$time:-->$name,
$frame_remind<p>$countdown<p>$random_line<hr>";
}
else {
$temp = "<!--:$time:-->$name, $frame_remind<hr>";
}
}
else {
if ($initial_message_plugin) {
require("$plugin_dir/initial_message.pl");
$temp = "<!--:$time:-->$name,
$reload_remind<p>$countdown<p>$random_line<hr>";
}
else {
$temp = "<!--:$time:-->$name, $reload_remind<hr>";
}
}
unshift (@vfile,"$temp\n");
$password = crypt($passwd,MW);
$temp = "<!--:$password\:$room\:$mail\::0:-->\n";
unshift(@vfile,$temp);
$vmodified = 1;
if($show_status) {
$temp = "<!--:$time:--><b>$name</b> $maillink $joined_chat $date
<!--$ENV{'REMOTE_ADDR'}--><hr>\n";
unshift(@main,$temp);
$cmodified = 1;
}
}
##########
# Modify chat page
sub post {
if ($tempmessage) {
if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl");
if ($FORM{'emoticon'} && $FORM{'emoticon'} ne $blank_emoticon) {
&post_emoticon;
}
else {
$temp = "<!--:$time:--><b>$name</b> $maillink $date
<!--$ENV{'REMOTE_ADDR'}--><br>$message<hr>\n";
}
}
else {
$temp = "<!--:$time:--><b>$name</b> $maillink $date
<!--$ENV{'REMOTE_ADDR'}--><br>$message<hr>\n";
}
unshift(@main,$temp);
$cmodified = 1;
}
}
#########
# Snag information when person hits reload
sub snag {
$mess = $message;
}
sub verify_password {
($bogus,$fpassword) = split(/:/,$vfile[0]);
if($where eq "$leave_text" && !$password) {
$password = $fpassword;
}
if($password ne $fpassword) {
&unlock;
&login;
exit;
}
}
##########
# Update Visitor's log
sub update {
foreach $visitors_line (@visitors) {
if ($visitors_line !~ /^<!--:\d+:-->$name$/ &&
$visitors_line !~ /^<!--:\d+:-->$name \d+:\d\d:\d\d$/ &&
$visitors_line !~ /^<!--:\d+:-->$name \d\d\/\d\d\/\d\d
\d+:\d\d:\d\d$/) {
push (@visitors_new,"$visitors_line");
}
}
@visitors = @visitors_new;
undef @visitors_new;
$temp ="<!--:$time:-->$name $date\n";
unshift (@visitors,$temp);
$vmodified = 1;
if ($admonish) {
&admonish;
}
}
############
# Reload
sub reload {
$public_count = @public_rooms;
if($password_style == 2 && $access_control_plugin) {
require("$plugin_dir/access_control.pl");
&admit_style;
}
elsif($frames eq "lite") {
require("$plugin_dir/lite.pl");
&lite_layout;
}
elsif($frames eq "yes") {
require("$plugin_dir/frames.pl");
&topframe_reload;
}
elsif($bottomframe) {
require("$plugin_dir/frames.pl");
&bottomframe_reload;
}
else {
$ignoredlist = join("()",@ignored);
if(!$nummes) {
$nummes = $def_mes;
}
if(!$refreq) {
$refreq = $def_reload;
}
if($nummes =~ /\D/ && $nummes !~ /^($new_nummes||$all_nummes)$/i) {
$nummes = $def_mes ;
}
if($nummes > $max_mes && $nummes !~ /^($new_nummes||$all_nummes)$/i) {
$nummes = $max_mes;
}
print "Content-type: text/html\n\n";
print "<html><head><title>$page_title</title>\n";
print "</head><body bgcolor=$bgcolor background=\"$background\"";
print " text=$text_color link=$link_color vlink=$vlink_color>\n";
if($font_face ne "") {
print "<font face=\"$font_face\">\n";
}
print "<form method=POST action=\"$ENV{'SCRIPT_NAME'}\">\n";
print "<center>\n";
if($advertise_plugin && $ad_locations =~ /c/) {
&advertise;
}
print "<table border=$border width=100%><tr valign=top>\n";
if($advertise_plugin && $ad_locations =~ /d/) {
print "<td rowspan=3>\n";
&advertise;
print "</td>\n";
}
print "<td rowspan=3><center>\n";
if (!$title_graphic) {
print "<H3>$page_title</h3>\n";
}
else {
print "<img src=\"$title_graphic\" border=0 ";
print "alt=\"$page_title\"><br>\n";
}
print "<input type=hidden name=\"password\" value=\"$password\">\n";
print "<input type=hidden name=\"frames\" value=\"$frames\">\n";
print "<input type=hidden name=\"load_time\" value=\"$time\">\n";
print "<input type=hidden name=\"room\" value=\"$room\">\n";
print "<input type=hidden name=\"mail\" value=\"$mail\">\n";
print "<input type=hidden name=\"name\" value=\"$name\">\n";
print "<input type=hidden name=\"link\" value=\"$link\">\n";
print "<input type=hidden name=\"ignored\" value=\"$ignoredlist\">\n";
if($adminyes) {
print "<input type=\"hidden\" name=\"admin\" value=\"1\">\n";
}
print "<textarea COLS=$textarea_cols ROWS=$textarea_rows
name=\"message\" wrap>\n";
print "$mess</textarea><br>\n";
$vname = $name;
$vname =~ s/ /_/g;
if($emoticon_plugin) {
print "<table cellpadding=0><tr><td>\n";
}
if($allow_one_on_one) {
print "$send_to <select name=\"solo\">\n";
print "<option>$entire_room\n";
opendir(VFILES,$vis_dir);
@vfilelist = grep(!/^\.|^_/, readdir (VFILES));
closedir(VFILES);
@vfilelist = sort(@vfilelist);
foreach $vfilelist (@vfilelist) {
if ($vfilelist ne "index.html" && $vfilelist ne "$vname") {
$vfilelist =~ s/_/ /g;
undef($vfilelistb);
if(@ignored) {
foreach$ignoree(@ignored) {
if($vfilelist eq "$ignoree") {
$vfilelistb = "$vfilelist$ignoremark";
}
}
if($solo eq "$vfilelist" && $vfilelistb) {
print "<option selected
value=\"$vfilelist\">$vfilelistb\n";
}
elsif($solo eq "$vfilelist") {
print "<option selected>$vfilelist\n";
}
elsif($vfilelistb) {
print "<option value=\"$vfilelist\">$vfilelistb\n";
}
else {
print "<option>$vfilelist\n";
}
}
else {
if($solo eq "$vfilelist") {
print "<option selected>$vfilelist\n";
}
else {
print "<option>$vfilelist\n";
}
}
}
}
print "</select>\n";
}
if($emoticon_plugin) {
print "</td><td rowspan=2>\n";
}
if($ignore_plugin) {
print "<input type=submit name=\"where\"
value=\"$ignore_text\">\n";
}
if(($password_style == 2 && $passwordbad == 1) || $password_style !=
2) {
print "<input type=submit name=\"where\" value=\"$post_text\">\n";
}
if($frames ne "yes") {
print "<input type=submit name=\"where\"
value=\"$reload_text\">\n";
}
if($frames ne "yes") {
print "<input type=submit name=\"where\" value=\"$leave_text\">\n";
}
if($emoticon_plugin) {
print "</td></tr><td>\n";
require("$plugin_dir/emoticon.pl");
&emoticon_list;
print "</td></tr></table>\n";
}
print "</td><td>\n";
if($public_count == 1 || $allow_private) {
$curroom = $room;
$curroom=~ s/_/ /g;
print "$currently_in <b>$curroom</b><br>\n";
}
print "<select>\n";
print "<option>$whos_here\n";
foreach$visline(@visitors) {
$vislinet = $visline;
$vislinet =~ s/<!--(.|\n)*-->//g;
print "<option>$vislinet\n";
}
print "</select>\n";
if($who_is_where_plugin && $where_locations =~ /b/) {
print "<input type=\"submit\" name=\"where\"
value=\"$who_is_where\"><br>\n";
}
print "</td></tr><tr><td>\n";
print "$nummes_a <input type=text name=\"nummes\" ";
print "value=\"$nummes\" size=3 maxlength=3> $nummes_b\n";
print "</td></tr><tr><td>\n";
if($public_count > 1) {
print "<select name=\"pubroom\">\n";
print "<option value=\"\">$pub_room_title\n";
foreach$public_room(@public_rooms) {
print "<option>$public_room\n";
}
print "</select><br>\n";
}
if($allow_private) {
print "$pri_room_title<br>\n";
print "<input type=text size=15 name=\"priroom\"><br>\n";
}
if($public_count > 1 || $allow_private) {
print "<input type=submit name=\"where\" value=\"$go_there\">\n";
}
print "<a href=\"$help_file\" target=\"profile\">$help_b</a>\n";
print "</td></tr></table></center></form>\n";
if($advertise_plugin && $ad_locations =~ /e/) {
&advertise;
print "<hr>";
}
print "<a name=\"messages\">\n";
if($bottomframe) {
print "<hr>\n";
}
&nummes;
if($advertise_plugin && $ad_locations =~ /f/) {
&advertise;
}
print "<center>$our_image</center>\n";
print "</body> </html>\n";
}
}
sub nummes {
if($nummes =~ /^$all_nummes$/i) {
$clinecount = 0;
$vlinecount = 1;
while($clinecount < @main || $vlinecount < @vfile) {
&print_chat;
}
}
elsif($nummes =~ /^$new_nummes$/i) {
$clinecount = 0;
$vlinecount = 1;
$clinetime = $time;
while(($vlinetime > $load_time - $new_time || $clinetime >
$load_time - $new_time) && ($clinecount < @main || $vlinecount < @vfile)) {
&print_chat;
}
}
else {
$clinecount = 0;
$vlinecount = 1;
while($mlinecount < $nummes && ($clinecount < @main || $vlinecount <
@vfile)) {
&print_chat;
}
}
}
sub print_chat {
foreach$ignoree(@ignored) {
while($main[$clinecount] =~ /<b>$ignoree<\/b>/) {
$clinecount++;
undef($clinetime);
}
while($vfile[$vlinecount] =~ /<b>$ignoree<\/b>/) {
$vlinecount++;
undef($vlinetime);
}
}
if(!$clinetime || $nummes =~ /$new_nummes/i) {
($bogus,$clinetime) = split(/:/,$main[$clinecount]);
}
if(!$vlinetime || $nummes =~ /$new_nummes/i) {
($bogus,$vlinetime) = split(/:/,$vfile[$vlinecount]);
}
if(!$clinetime && !$vlinetime) {
$clinecount++;
$vlinecount++;
}
elsif($clinetime > $vlinetime) {
$tcline = $main[$clinecount];
$tcline =~ s/^<!--:\d\d\d+:-->//g;
if($adminyes && $show_ip == 1) {
$messtime = substr($clinetime, -5, 5);
$tcline =~ s/<!--/ /g;
$tcline =~ s/-->/ $messtime/g;
}
else {
$tcline =~ s/<!--\d+\.\d+\.\d+\.\d+-->//g;
}
if($clinetime > $load_time) {
if($tcline =~ /$joined_chat/ && $alert_sound_plugin) {
require("$plugin_dir/alert_sound.pl");
&alert_sound;
}
print "$new_message $tcline";
}
elsif(!$old_timer) {
$old_timer = 1;
print "<font color=$oldcolor>\n";
print $tcline;
}
else {
print $tcline;
}
$clinecount++;
if($nummes !~ /$new_nummes/i) {
undef($clinetime);
}
}
else {
$tvline = $vfile[$vlinecount];
$tvline =~ s/<font>/<font color=$one_color>/g;
$tvline =~ s/^<!--:\d\d\d+:-->//g;
if($adminyes && $show_ip == 1) {
$tvline =~ s/<!--/ /g;
$tvline =~ s/-->//g;
}
else {
$tvline =~ s/<!--\d+\.\d+\.\d+\.\d+-->//g;
}
if($vlinetime > $load_time) {
print "$new_message $tvline";
}
else {
print $tvline;
}
$vlinecount++;
if($nummes ne "$new_nummes") {
undef($vlinetime);
}
}
$mlinecount++;
}
##############
# Change rooms
sub change {
$load_time = 0;
if($oshow_status) {
open(OLDMAIN,"$file_dir/chat$oldroom");
@oldmain = <OLDMAIN>;
close(OLDMAIN);
$temp = "<!--:$time:--><b>$name</b> $maillink $left_room $date
<!--$ENV{'REMOTE_ADDR'}--><br><hr>\n";
unshift(@oldmain,$temp);
open(OLDMAIN,">$file_dir/tempc$oldroom");
foreach$oldmainline(@oldmain){
print OLDMAIN "$oldmainline";
}
close(OLDMAIN);
rename("$file_dir/tempc$oldroom","$file_dir/chat$oldroom");
open(OLDVIS,"$file_dir/vis$oldroom");
@oldvis = <OLDVIS>;
close(OLDVIS);
}
foreach $visitors_line (@oldvis) {
if ($visitors_line !~ /^<!--:\d+:-->$name($| \d+:\d\d:\d\d$)/) {
push (@visitors_old,"$visitors_line");
}
}
@oldvis = @visitors_old;
undef @visitors_old;
open(OLDVIS,">$file_dir/tempv$oldroom");
foreach$oldvisline(@oldvis) {
print OLDVIS "$oldvisline";
}
close(OLDVIS);
rename("$file_dir/tempv$oldroom","$file_dir/vis$oldroom");
undef(@oldmain);
undef(@oldvis);
open(MAIN,"$file_dir/chat$room");
@main = <MAIN>;
close(MAIN);
@main = @main[(0 .. $max_mes)];
if($show_status) {
$temp = "<!--:$time:--><b>$name</b> $maillink $joined_chat $date
<!--$ENV{'REMOTE_ADDR'}--><br><hr>\n";
unshift(@main,$temp);
$cmodified = 1;
}
open(VISITORS,"$file_dir/vis$room");
@visitors = <VISITORS>;
close(VISITORS);
$login = "$date";
foreach $visitors_line (@visitors) {
if ($visitors_line !~ /^<!--:\d+:-->$name($| \d+:\d\d:\d\d$)/) {
push (@visitors_new,"$visitors_line");
}
}
@visitors = @visitors_new;
undef @visitors_new;
$temp = "<!--:$time:-->$name\n";
unshift (@visitors,$temp);
$vmodified = 1;
}
##############
# Send the private message
sub privmsg {
if ($tempmessage) {
$solo =~ s/ /_/g;
if(-e "$vis_dir/$solo"){
open (VFILES,"$vis_dir/$solo") || die $!;
@vfiles = <VFILES>;
close (VFILES);
$vfilestemp = $vfiles[0];
shift(@vfiles);
if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl");
if ($FORM{'emoticon'} && $FORM{'emoticon'} ne $blank_emoticon) {
&one_on_one_emoticon;
}
else {
$tempa ="<!--:$time:--><font>$one_on_one_text:";
$tempb = " <b>$name</b> $date
<!--$ENV{'REMOTE_ADDR'}--><br>$message</font><hr>\n";
$temp = "$tempa$tempb";
}
}
else {
$tempa ="<!--:$time:--><font>$one_on_one_text:";
$tempb = " <b>$name</b> $maillink $date
<!--$ENV{'REMOTE_ADDR'}--><br> $message</font><hr>\n";
$temp = "$tempa$tempb";
}
unshift(@vfiles,$temp);
unshift(@vfiles,"$vfilestemp");
open(VFILES,">$vis_dir/$solo") || die $!;
foreach $vfiles_line(@vfiles) {
print VFILES "$vfiles_line";
}
close(VFILES);
$primessage = $message;
}
else {
$primessage = "<b>$person_gone</b><br>$message";
}
$solo =~ s/_/ /g;
$vfiletemp = $vfile[0];
shift(@vfile);
if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl");
if ($FORM{'emoticon'} && $FORM{'emoticon'} ne $blank_emoticon) {
&send_one_on_one_emoticon;
}
else {
$tempa ="<!--:$time:--><font>$one_on_one_text:";
$tempb = " <b>To: $solo</b> $date
<!--$ENV{'REMOTE_ADDR'}--><br>$primessage</font><hr>\n";
$temp = "$tempa$tempb";
}
}
else {
$tempa ="<!--:$time:--><font>$one_on_one_text:";
$tempb = " <b>To: $solo</b> $date
<!--$ENV{'REMOTE_ADDR'}--><br>$primessage</font><hr>\n";
$temp = "$tempa$tempb";
}
unshift (@vfile,$temp);
unshift (@vfile,"$vfiletemp");
}
}
###############
# Leave
sub leave {
unlink("$vis_dir/$vname");
if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl");
if ($FORM{'emoticon'} && $FORM{'emoticon'} ne $blank_emoticon) {
&leave_emoticon;
}
else {
$temp = "<!--:$time:--><b>$name</b> $maillink $left_chat $date
<!--$ENV{'REMOTE_ADDR'}--><br><hr>\n";
}
}
else {
$temp = "<!--:$time:--><b>$name</b> $maillink $left_chat $date
<!--$ENV{'REMOTE_ADDR'}--><br><hr>\n";
}
if($show_status) {
unshift(@main,$temp);
$cmodified = 1;
}
foreach $visitors_line (@visitors) {
if ($visitors_line !~ /^<!--:\d+:-->$name($| \d+:\d\d:\d\d$)/) {
push (@visitors_new,"$visitors_line");
}
}
@visitors = @visitors_new;
undef @visitors_new;
print "Location: $link\n\n";
$vmodified = 1;
}
###########
# Write Files
sub write {
if($cmodified) {
open(MAIN,">$file_dir/tempc$room");
print MAIN @main;
close(MAIN);
rename("$file_dir/tempc$room","$file_dir/chat$room")
}
if($vmodified) {
open(VISITORS,">$file_dir/tempv$room");
print VISITORS @visitors;
close(VISITORS);
rename("$file_dir/tempv$room","$file_dir/vis$room")
}
$vfile[0] = "<!--:$password\:$room\:$mail\:$ignoredlist\:$time:-->\n";
if(!$vname) {
$vname = $name;
$vname =~ s/ /_/g;
}
if($where ne "$leave_text" && $vname){
open(VFILE,">$vis_dir/temp$vname");
print VFILE @vfile;
close(VFILE);
rename("$vis_dir/temp$vname","$vis_dir/$vname");
}
}
#############
# Write .htaccess file for security
sub write_htaccess {
open(HTACCESS,">$access_dir/.htaccess");
print HTACCESS "AuthUserFile /etc/.htpasswd\nAuthGroupFile /dev/null\n";
print HTACCESS "AuthName ChatPro Restricted Area\nAuthType Basic\n\n";
print HTACCESS "<Limit GET>require user ChatPro\n</Limit>\n";
close(HTACCESS);
}
#############
# Unlock
sub unlock {
unlink("$file_dir/$lock_file");
}
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 92
************************************
