361 lines
12 KiB
Perl
Executable File
361 lines
12 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# New user script
|
|
#
|
|
# This script gets called from a web form where users apply for usership
|
|
# on your server. It creates a executable file that you as admin can
|
|
# just run and the user gets created without headaches.
|
|
|
|
$| = 1;
|
|
|
|
if ($ENV{'REQUEST_METHOD'} eq 'POST')
|
|
{
|
|
|
|
$base="/hamster/home";
|
|
|
|
|
|
chop($date = `date`);
|
|
chop($ddd = `date +\%j\%H\%M`);
|
|
print "Content-type: text/html\n\n";
|
|
print <<"HTML";
|
|
<HTML>
|
|
<TITLE>New user details completed</TITLE>
|
|
<BODY BACKGROUND=/yourown.gif>
|
|
<IMG SRC="/yourlogo.gif" ALT="MY OWN LOGO" HEIGHT=114 WIDTH=640><BR>
|
|
<H1>New User Application</H1>
|
|
HTML
|
|
|
|
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
|
|
@pairs=split(/&/, $buffer);
|
|
foreach $pair(@pairs)
|
|
{
|
|
($name, $value) = split(/=/, $pair);
|
|
$value =~ tr/+/ /;
|
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
|
|
$contents{$name} = $value;
|
|
$contents{'remoteip'} = $ENV{'REMOTE_ADDR'};
|
|
# print "$contents{$name} = $value <BR>\n";
|
|
}
|
|
# Check if some-one gave in a bullshit form.
|
|
if (($contents{'fname'} eq '') or ($contents{'sname1'} eq ''))
|
|
{
|
|
print <<"HTML";
|
|
<HR>
|
|
Dear person working from machine or proxy $ENV{'REMOTE_ADDR'}, do WE have some
|
|
news for you: <P>
|
|
|
|
Oh boy! You cannot even complete a form! How do you think it makes you look?
|
|
At least fill in a Full name and one username, else this form is useless! <P>
|
|
|
|
Please take some time and consider if you are <I>really</I> capable of using a
|
|
computer and if you <I>should</I> apply for usership.
|
|
If your previous attempt to fill in a form turned out like this
|
|
then we do not consider you a good canidate.
|
|
Take a deep breath.
|
|
|
|
Use your browsers BACK button and
|
|
try again!
|
|
<HR>
|
|
</BODY>
|
|
</HTML>
|
|
HTML
|
|
exit;
|
|
}
|
|
else { ; }
|
|
print <<"HTML";
|
|
Thank you for taking the time to complete the form. Please read the following
|
|
information carefully. Use your browsers save function to save this page to
|
|
a file. It will act as a receipt of your new (possible) user account.<P>
|
|
|
|
If we think that the IP $contents{'remoteip'} that you appear to work from is
|
|
not in our domain, extra effort will be made to ensure that
|
|
you are in fact a valid applicant.<P>
|
|
|
|
<P> This is how your details will appear to others:
|
|
<CENTER><TABLE BORDER=1 WIDTH=80%>
|
|
<TR><TD> Name </TD><TD>
|
|
$contents{'fname'}
|
|
HTML
|
|
|
|
if ($contents{'addtitle'} eq 'addmytitle')
|
|
{
|
|
print <<"HTML";
|
|
,$contents{'title'}
|
|
HTML
|
|
}
|
|
else
|
|
{ ; }
|
|
|
|
print <<"HTML";
|
|
$contents{'fname'}
|
|
</TD></TR>
|
|
<TR><TD>
|
|
Office</TD><TD>$contents{'office'}</TD></TR>
|
|
<TR><TD>Username choices:</TD><TD><B>$contents{'sname1'}</B>,
|
|
<B>$contents{'sname2'}</B> or <B>$contents{'sname3'}</B> </TD></TR>
|
|
<TR><TD>Work Tel: $contents{'wtel'}</TD><TD>Home Tel: $contents{'htel'}</TD></TR>
|
|
<TR><TD>Stud/ID number:</TD><TD> $contents{'idnum'}</TD></TR>
|
|
<TR><TD>Birthdate:</TD><TD> $contents{'bidate'}</TD></TR>
|
|
</TABLE></CENTER><P>
|
|
|
|
You will most probably granted the first choice of username, unless it clashes
|
|
with an existing name, is too short or too close to a swearing word.
|
|
<B><P>PLEASE PHONE netadmin at 555-5555 to arrange a password for your account</B>
|
|
|
|
$contents{'reff'} is your reference person or study leader that will be
|
|
contacted at email address <B>$contents{'refmail'}</B>.
|
|
Your account might be stopped if the reference person does not know you or give us a good reason to do so.</B><P>
|
|
|
|
Reason why you would like to be a network user:
|
|
<QUOTE>$contents{'whyi'}</QUOTE><P>
|
|
You rate yourself a $contents{'skill'} computer user that will be using
|
|
$contents{'os'} as your primary operating system. You also have some knowlage on
|
|
$contents{'oos1'} $contents{'oos2'} $contents{'oos3'} $contents{'oos4'}
|
|
$contents{'oos5'} $contents{'oos6'} $contents{'oos7'} $contents{'oos8'}
|
|
$contents{'oos9'}<P>
|
|
Please read the section on operating systems carefully to give you a broader understanding on how to connect to the network.
|
|
HTML
|
|
|
|
if ($contents{'helpme'} eq 'yes')
|
|
{
|
|
print <<"HTML";
|
|
You are also interrested in giving a helping hand with network related problems. <B>Good!</B> As soon as there is a problem near you, <I>you</I> will be seen as the
|
|
solution. We'll keep in touch.
|
|
HTML
|
|
|
|
}
|
|
else
|
|
{ ; }
|
|
|
|
print <<"HTML";
|
|
<P> Your feedback on the questionaire will be stored in a database for future
|
|
refference. These details will give us direction on how to expand the network
|
|
services.
|
|
<P> You rate the following services:
|
|
<CENTER><TABLE BORDER=1 WIDTH=80%}
|
|
<TR><TD>E-Mail and other communication tools: </TD><TD>$contents{'s1'}</TD></TR>
|
|
<TR><TD>WWW for info search and research:</TD><TD>$contents{'s2'}</TD></TR>
|
|
<TR><TD>Wordprocessing and office based work:</TD><TD>$contents{'s3'}</TD></TR>
|
|
<TR><TD>Cruising internet for fun and pleasure</TD><TD>$contents{'s4'}</TD></TR>
|
|
<TR><TD>Engineering apps CADCAM, PCB etc.</TD><TD>$contents{'s5'}</TD></TR>
|
|
<TR><TD>Shareware source</TD><TD>$contents{'s6'}</TD></TR>
|
|
<TR><TD>Programming apps, VisC, Pascal, VB etc</TD><TD>$contents{'s7'}</TD></TR>
|
|
<TR><TD>Storage of files and userdata</TD><TD>$contents{'s8'}</TD></TR>
|
|
<TR><TD>Exam results electronic lecture notes.</TD><TD>$contents{'s9'}</TD></TR>
|
|
</TABLE></CENTER>
|
|
|
|
<P>You would like to see the following services at Our Site (Let's pray together that it will happen soon...):<BR>
|
|
<QUOTE>$contents{'future'}</QUOTE><P>
|
|
|
|
You think that $contents{'numstaff'} staff member(s) is/are needed to maintain our network.<P>
|
|
According to you an amount of $contents{'hypopay'} is fair for a network account per year, as long as you can get the no $contents{'hserv'} service you asked for.
|
|
<P>
|
|
<HR>
|
|
Thank you for submitting this request for a new user account.
|
|
Your account will be processed by
|
|
<A HREF="mailto:adminuser\@your.domain.name">adminuser\@your.domain.name</A> or
|
|
<A HREF="mailto:bigboss\@your.domain.name">bigboss\@your.domain.name</A>. Please give us a few days to decide whether you would make a suitable user. It normally takes only a few minutes to create the account if one of us is close-by.
|
|
<HR>
|
|
<h1> Futher information </h1>
|
|
You automagically get the following as a bonus:
|
|
<UL>
|
|
<LI> Electronic mail (Your email account will most probably be $contents{sname1}\@your.domain.name)
|
|
<LI> Your own WWW page which you can customize from anywhere.
|
|
<LI> Your own public ftp site
|
|
<LI> Secure storage space for your data on the file server
|
|
<LI> Access to our software and shareware
|
|
<LI> Remote access to your data, where-ever you are roaming about.
|
|
<LI> A public accessible read-write file area to exchange data with others.
|
|
<LI> Automated secure backups of your data
|
|
</UL>
|
|
<P>
|
|
Follow <A HREF="/main/ohhelp.html">this link</a> to get more detailed information on the services and how to make use of it.
|
|
|
|
<HR>
|
|
This automated service creates a file that could create your new account with
|
|
a single keypress, if the network administrator feels like it. ALL you need to
|
|
do on your own is to visit the network center to select a password for yourself.Even with the account created it will not be active before you either phone or visit your network admin to set up your password.
|
|
<HR>
|
|
<FONT SIZE=3><I>Last updated 960916</I></FONT>
|
|
</BODY>
|
|
</HTML>
|
|
|
|
HTML
|
|
|
|
# Now create email message and mail it.
|
|
$subject = "New User application - $date";
|
|
$sendto = "adminuser\@your.domain.name, bigboss\@your.domain.name";
|
|
|
|
# open named pip to send mail
|
|
open (MAIL, "| /usr/sbin/sendmail $sendto") || die "Cannot send mail: $!\n";
|
|
# this selects the open handle to send email:
|
|
select(MAIL);
|
|
print <<"EMAIL";
|
|
Date: $date
|
|
From: root\@your.domain.name
|
|
Return-Path: <$contents{'refmail'}>
|
|
To: $sendto
|
|
Subject: $subject
|
|
|
|
This is an automated reply to the http://yourweb.site.name/ohform.html script.
|
|
|
|
New user application details - $date
|
|
Please note: A file was created under $contents{'base'}/httpd/newuser/$contents{'sname1'}.$ddd
|
|
that can be directly executed by root in order to create the account.
|
|
EMAIL
|
|
|
|
if ($contents{'addtitle'} eq 'addmytitle')
|
|
{
|
|
print <<"EMAIL";
|
|
Full name: $contents{'title'} $contents{'fname'}
|
|
EMAIL
|
|
|
|
}
|
|
|
|
else
|
|
{ print <<"EMAIL";
|
|
Full name: $contents{'fname'}
|
|
EMAIL
|
|
}
|
|
|
|
print <<"EMAIL";
|
|
Working from machine or proxy: $contents{'remoteip'}
|
|
Title: $contents{'title'}
|
|
|
|
Username1: $contents{'sname1'}
|
|
Username2: $contents{'sname2'}
|
|
Username3: $contents{'sname3'}
|
|
|
|
Office: $contents{'office'}
|
|
WorkPhone: $contents{'wtel'}
|
|
HomePhone: $contents{'htel'}
|
|
Birthdate: $contents{'bidate'}
|
|
Stud/ID number: $contents{'idnum'}
|
|
Refference Person: $contents{'reff'}
|
|
Refference Email : $contents{'refmail'}
|
|
Would like to help with network problems?: $contents{'helpme'}
|
|
|
|
Skill: $contents{'skill'}
|
|
Primary operating System: $contents{'os'}
|
|
Knowlage on: $contents{'oos1'} $contents{'oos2'} $contents{'oos3'} $contents{'oos4'} $contents{'oos5'} $contents{'oos6'} $contents{'oos7'} $contents{'oos8'} $contents{'oos9'}
|
|
|
|
Usership plea: $contents{'whyi'}
|
|
|
|
Questionaire
|
|
============
|
|
Email: $contents{'s1'}
|
|
WWW: $contents{'s2'}
|
|
Office: $contents{'s3'}
|
|
FunGames: $contents{'s4'}
|
|
Apps: $contents{'s5'}
|
|
Shareware: $contents{'s6'}
|
|
Programming: $contents{'s7'}
|
|
Storage: $contents{'s8'}
|
|
Exam and notes: $contents{'s9'}
|
|
Staffnum: $contents{'numstaff'}
|
|
YearFee: $contents{'hypopay'}
|
|
ServiceLevel: $contents{'hserv'}
|
|
ConnectionValue1: $contents{'userv'}
|
|
ConnectionValue2: $contents{'nserv'}
|
|
MonthAccount: $contents{'aserv'}
|
|
AccountMethod: $contents{'aget'}
|
|
AccountExtra: $contents{'aret'}
|
|
|
|
Services interrested in
|
|
=======================
|
|
BirthdayNotify: $contents{'c0'}
|
|
VoiceMail: $contents{'c1'}
|
|
PinupNotice: $contents{'c2'}
|
|
AppointRemind: $contents{'c3'}
|
|
GlobalPhoneBook: $contents{'c4'}
|
|
LocalIRCserver: $contents{'c5'}
|
|
AutomatedSoftwareInstalls: $contents{'c6'}
|
|
VoiceDictation: $contents{'c7'}
|
|
ExamsonComputers: $contents{'c8'}
|
|
VideoLectures: $contents{'c9'}
|
|
VideoConference: $contents{'c10'}
|
|
SharedAppointment: $contents{'c11'}
|
|
AnimatedMultimedia: $contents{'c12'}
|
|
StudentResults: $contents{'c13'}
|
|
HWSFTWMonitor: $contents{'c14'}
|
|
|
|
|
|
Please phone the user and ask him/her to come and select a password for themselves.
|
|
|
|
From your friendly automated Webserver running Mars.
|
|
EMAIL
|
|
close(MAIL);
|
|
|
|
# Append questionaire to the log.
|
|
open(CATFILE, ">> /var/log/newusr.questionaire") || die "Cant update newuser questionaire list";
|
|
select(CATFILE);
|
|
print "$contents{'fname'}:";
|
|
print "$contents{'skill'}:";
|
|
print "$contents{'helpme'}:";
|
|
print "$contents{'os'}:";
|
|
print "$contents{'oos1'}:";
|
|
print "$contents{'oos2'}:";
|
|
print "$contents{'oos3'}:";
|
|
print "$contents{'oos4'}:";
|
|
print "$contents{'oos5'}:";
|
|
print "$contents{'oos6'}:";
|
|
print "$contents{'oos7'}:";
|
|
print "$contents{'oos8'}:";
|
|
print "$contents{'oos9'}:";
|
|
print "$contents{'s1'}:";
|
|
print "$contents{'s2'}:";
|
|
print "$contents{'s3'}:";
|
|
print "$contents{'s4'}:";
|
|
print "$contents{'s5'}:";
|
|
print "$contents{'s6'}:";
|
|
print "$contents{'s7'}:";
|
|
print "$contents{'s8'}:";
|
|
print "$contents{'s9'}:";
|
|
print "$contents{'hserv'}:";
|
|
print "$contents{'userv'}:";
|
|
print "$contents{'nserv'}:";
|
|
print "$contents{'aserv'}:";
|
|
print "$contents{'aget'}:";
|
|
print "$contents{'aret'}:";
|
|
print "$contents{'c0'}:";
|
|
print "$contents{'c1'}:";
|
|
print "$contents{'c2'}:";
|
|
print "$contents{'c3'}:";
|
|
print "$contents{'c4'}:";
|
|
print "$contents{'c5'}:";
|
|
print "$contents{'c6'}:";
|
|
print "$contents{'c7'}:";
|
|
print "$contents{'c8'}:";
|
|
print "$contents{'c9'}:";
|
|
print "$contents{'c10'}:";
|
|
print "$contents{'c11'}:";
|
|
print "$contents{'c12'}:";
|
|
print "$contents{'c13'}:";
|
|
print "$contents{'c14'}\n";
|
|
close(CATFILE);
|
|
|
|
# Create an autouser script
|
|
open(NFILE, "> $contents{'base'}/httpd/newuser/$contents{'sname1'}.$ddd") || die "Cannot create autouser file";
|
|
select(NFILE);
|
|
print "#/bin/bash\n\n";
|
|
print "/usr/sbin/ohmasteruser \"$contents{'sname1'}\" ";
|
|
if ($contents{'addtitle'} eq 'addmytitle')
|
|
{
|
|
print "\"$contents{'title'} ";
|
|
}
|
|
else
|
|
{ print "\""; }
|
|
print "$contents{'fname'}\" ";
|
|
print "\"$contents{'office'}\" ";
|
|
print "\"$contents{'wtel'}\" ";
|
|
print "\"$contents{'htel'}\" ";
|
|
print "\"$contents{'bidate'}\"\n";
|
|
print "\n\n# Other names if it is a clash: $contents{'sname2'}";
|
|
print "\n# Other name: $contents{'sname3'}\n";
|
|
close(NFILE);
|
|
$a=`chmod +x "$contents{'base'}/httpd/newuser/$contents{'sname1'}.$ddd"`;
|
|
$a=`chmod o-rwx "$contents{'base'}/httpd/newuser/$contents{'sname1'}.$ddd"`;
|
|
$a=`chmod g-rwx "$contents{'base'}/httpd/newuser/$contents{'sname1'}.$ddd"`;
|
|
}
|
|
exit;
|