Greetings...

[Emo1313]

Greetings,

Welp, I have had no luck getting a Perl FTP server
running... So what I am looking for and perhaps one of you guys can help
me out is; An FTP server application that I can use Perl to add and
remove users, set up where there directories are and perhaps even
quotas... At the least just being able to add users via a perl script.
Like, if a users fills out a form, they can
automatically be added to an FTP servers user list...

Thanks go out to the people who replyed to my questions
about a win32 perl ftp server... 

Thanks for your time!
T.S.

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

defined Fcntl macro F_SETFL

[Emo1313]

Greetings,
I have recently come accross an ftpd written in perl that i would
like to modify for allowing people to upload webcam images with out the
need for thier own web space with ftp access... Any way... The script
was obviously written on a Linux system and I am having a small problem
getting it ported over for a system running 2000 and active perl...
 
When I run the script there is one offending line that does not
allow the server to run... Or rather run correctly.
 
The line : fcntl(*NB_SOCK, F_SETFL, O_NONBLOCK) or warn "fcntl: $!";
In the sub below returns the error : 
Your vendor has not defined Fcntl macro F_SETFL, used at
D:\bin\ftpd.pl line 373.
 
I have looked back thru the achive of about 2 years of this group
and have not found any way to resolve the problem on a Win2000 box...
>From every thing that I have dug up so far , this is functionality that
the os simply does not have... 
 
If any one has any idea it would be greatly appreciated!
 
# makes a non-blocking socket
# (takes no args)
sub nb_sock {
local *NB_SOCK;
socket(*NB_SOCK, PF_INET, SOCK_STREAM, $TCP_PROTO) or warn "socket:
$!";
fcntl(*NB_SOCK, F_SETFL, O_NONBLOCK) or warn "fcntl: $!";
return *NB_SOCK;
}

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: CGI IP-logging

[Emo1313]

These a the ones that I use in my counters.

$agent = $ENV{'HTTP_USER_AGENT'}; # Users browser
$referer = $ENV{'HTTP_REFERER'};  # Refering Location
$addr = $ENV{'REMOTE_ADDR'};  # Referes Address

$ENV is a hash of information about the server and client.

Here is a simple script that will dump out all of the ENV's keys and values.

#!/perl/bin/perl
print "content-type:text/html\n\n";

foreach $env (keys(%ENV))
{ 
print "$env = $ENV{$env}\n";
}

Emo1313


Soylent Green Is People!
Tribes - Shifter Developement Team - www.dopplegangers.com/tribes/shifter
Dopplegangers News And Non-Sence - www.dopplegangers.com
Emos World - www.dopplegangers.com/emo1313
Post Cards For The Ill Minded - www.dopplegangers.com/cards

- Original Message - 
From: Phil Lamey <[EMAIL PROTECTED]>
To: Chris <[EMAIL PROTECTED]>
Cc: Perl-Win32-Users <[EMAIL PROTECTED]>; Perl-Win32-Web 
Mailing List <[EMAIL PROTECTED]>
Sent: Friday, July 14, 2000 11:44 PM
Subject: CGI IP-logging


> Hi all,
> 
> I'm hoping someone can tell me how certain Web pages keep a log of the IPs
> of the people who have visited their sites.
> Do they somehow use perl socket code?
> Is there anywhere I can get an example of this code?
> 
> Thanks,
> 
> Phil Lamey
> 
> 
> 
> ___
> Perl-Win32-Web mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
> 


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
___
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web