marsmail-0.2c

This commit is contained in:
Mario Fetka 2011-11-13 00:46:51 +01:00
parent 3cc84d97d2
commit d665510635
24 changed files with 2204 additions and 29 deletions

339
COPYING Normal file
View File

@ -0,0 +1,339 @@
GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Library General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19yy name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, the commands you use may
be called something other than `show w' and `show c'; they could even be
mouse-clicks or menu items--whatever suits your program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here is a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
`Gnomovision' (which makes passes at compilers) written by James Hacker.
<signature of Ty Coon>, 1 April 1989
Ty Coon, President of Vice
This General Public License does not permit incorporating your program into
proprietary programs. If your program is a subroutine library, you may
consider it more useful to permit linking proprietary applications with the
library. If this is what you want to do, use the GNU Library General
Public License instead of this License.

13
README Normal file
View File

@ -0,0 +1,13 @@
Please see marsmail.doc for installation information.
Authors: Gert Cronje: gac@eng.rau.ac.za
Anton de Wet: adw@obsidian.co.za
Eddie Dunckley: eddie@eng.rau.ac.za
Francois Wolmarans: fwo@eng.rau.ac.za
Modification for Natural Netware Mail by:
Guillermo Dominguez A: guido@lux.labinf.uaa.mx
Please contact Eddie for bug reports in the scripts, etc.etc.
Please contact Guido for bug report on marsmail.pas (Natural Netware Mail).

293
marsmail.doc Normal file
View File

@ -0,0 +1,293 @@
Marsmail ver 0.2c GNU-GPL by EL GUIDO <guido@lux.labinf.uaa.mx> - UAA
& Eddie Dunckley & Gert Cronje of RAU Engineering.
the c is for the charon mail queue emulation
---------------- bug reports:guido@lux.labinf.uaa.mx
Marsmail ver 0.2 GNU-GPL by Eddie Dunckley & Gert Cronje of RAU Engineering.
---------------- bug reports:eddie@eng.rau.ac.za gac@chopin.rau.ac.za
--------- (License)
This whole package is licensed under the GNU Public License.
See the file COPYING for details.
---------
Marsmail is a pascal frontend for mail that translates the
unix mailfile into smaller files that pegasus mail understands.
--------- (Added)
This version doesn't need the unix2dos application for marsmail (works alone)
---------
Please examine all the files carefully as this is not a commercial
program suite, it's freeware. Written by staff/students for students..
--------- (And now, teachers for teachers too. )
file list:
----------
327 Feb 4 11:53 marsmail.doc The marsmail-02c doc file
8608 Feb 4 11:48 marsmail.exe dos executable to convert mail
5480 Feb 4 12:51 marsmail.pas dos sources for marsmail c release
1430 Feb 4 13:32 monlan Basic monitor for LAN/WAN
12051 Feb 4 13:12 newuser.pl Process the user application
3757 Feb 4 12:50 nomasteruser deletes users with cleanup
4080 Feb 4 11:32 ohbirthcheck birthday reminder script
793 Feb 4 11:34 ohexpiry expire accounts on mars/samba
13141 Feb 4 13:18 ohform.htm User application form for Mars server
1296 Feb 4 11:35 ohlogscr.bat modified supervisor login script
690 Feb 4 09:32 ohmail automatic mail notifier start script
6648 Feb 4 10:50 ohmasteruser creates new users with extra features
1381 Feb 4 09:27 ohmessage automatic mail notifier main script
---------------- (This is no longer needed)
#1046 Feb 4 09:33 ohpostme handles posting from pegasus to unix
---------------- (End)
3585 Feb 4 10:35 ohquota Disk quota accounting automated
856 Feb 4 09:34 ohsendnt Console broadcast script
1954 Feb 4 11:45 pmail.bat front-end dos batch file for pmail
8161 Feb 4 11:48 pmdflts.ini pmail defaults for all users
1024 Feb 4 11:48 pmgate.sys USER defined gateway via pconfig
859 Feb 4 11:00 wwwhomepage Creates homepages for new users.
what's new
----------
pmail.bat script dosn't need unix2dos anymore, the marsmail have an better
readline logic that understand the unix lines. (EL GUIDO)
----------
marsmail read directly from the user's spool mail, don't need make copies.
----------
marsmail let the unix mail directly into the user's mail directories on novell
----------
marsmail uses a Charon alike Print Queue for mail output
----------
Lot's of automation....
Lot's of new ideas ie birthday reminders, expiry scripts etc etc
Better docs
Procedure:
----------
Take a deep breath and realize that there is no install script.
Make sure your mars is running successfully and dos users can log into
the server with normal novell client software. Make sure your directory
layout for Mars looks simmular to the one listed in this document. Get a good
editor for linux to edit the scripts to suite your company's needs. Get
the pegasus mail program from one of it's mirror sites.
Unpack and follow it's install method.
----------- (This is obsolete)
#DON't use pegasus's bindery features to fetch mail in the
#SYS:\mail locations. This requires a mercury.nlm that cannot run on linux.
----------- (New Feature)
The marsmail-02c needs the bindery features to work, this is the natural mail
on Netware. The SYS:\mail\<userid> must exist.
There is no mercury, but the Charon Mail Queue Emulation works fine! :-)
-----------
----------- (The pop solution)
You can attempt using the pmpop utilities for dos to fetch mail via pop from
the server, (which might have been the best possible solution if it worked),
but there is a seperate project to edit the ini file on the fly for multiple
users....
----------- (My comments)
I didn't investigated about this, but someone reading this could :-))
-----------
----------- (This is obsolete too!)
#Make sure you map drive I: to the user's home directory (or change the
#scripts). I've used a map root i:=sys:\home\%name% to do this in the
#master mars login script that can be created with syscon.
----------- (New Feature)
The volumes required for this new c release are:
Volume Route Drive
-------- ----------- -------
SYS -> route/SYS F:
...others... route/<VOL> (G: , H: , I: , etc)
HOME -> ~ (G: , H: , I: , etc)
-----------
Start by examining each script carefully - there is a lot of undocumented
features in them...
----------- (This os more obsolete!!!)
#Then start by editing the pmdflts.ini to suite your needs.
#Use the one included as a template. Read the pmail docs carefully.
----------- (New Feature)
Just install the pmail suite and reconfigure the gateway (see this part next).
-----------
----------- (This is important!!!)
Link your unix mailboxes into your mars SYS
volume space i.e. ln -s /var/spool/mail /<route>/SYS/unixmail
(but the 0.99pl1 do it in a different way)
-----------
----------- (This Changed)
Run pconfig to create a SMTP gateway. Use the name of a Print Queue defined on the
/etc/nwserv like a charon mail queue.
-----------
----------- (This is for the SMTP gateway)
Select: Pegasus Mail/DOS Configuration v3.11
SMTP Gateway
____+--------------- Mercury / Charon SMTP Interface ---------------+_____
___ ¦ ¦_____
___ ¦ Spool Interface? : [N ] ¦+____
___ ¦ Queue Name? : CHARON ¦¦____
___ ¦ Enabled? : Y ¦¦____
___ ¦ Prefered? : N ¦¦____
___ ¦ Use always? : N ¦¦____
___ ¦ This server's name : your.name.org.contry ¦¦____
___ ¦ Our time zone : GMT +/- #num ¦¦____
___ ¦ Organization : organization's name ¦¦____
___ ¦ ¦¦____
___ ¦ The name you want placed in the Organization header of ¦¦____
___ ¦ outgoing message. Use this to identify your site more ¦¦____
___ ¦ clearly in your email. ¦+____
___ +---------------------------------------------------------------+_____
___ ______
---------- (This is for the Charon alike emulation)
Declare a Print Queue on the /etc/nwserv.conf like this:
21 CHARON SYS:/PRINT/O /usr/sbin/mailout
The mailout is a executable (755 mode) file with this line:
# File that emulate the Charon Mail Gateway
(sed "1,3d" | /usr/sbin/sendmail -t)
#End of file
-----------
----------- (This is very important!!)
Check if your unixmail is secure i.e. mars users cannot read each others mail.
This can be done by loggin in from a dos box with different user names and
trying to view the sys:\unixmail\%name% files
-----------
Edit the pmail.bat to suite your needs.
----------- (This is more more obsoleted !!!)
#Make sure the drive mappings is correct.
#i.e. I: maps to userdir.
----------- (New Feature)
Just need the SYS:/mail drive mapping correct
-----------
Compile the marsmail.pas to suite your needs if needed.
----------- (Ahooommmm, more obsolted !!!)
#Test to see if you can read mail from pegasus and that the gateway places
#outgoing messages in i:\pmail\out.
-----------
----------- (This is no more used !!!)
#Edit the ohpostme scripts until it posts mail out for your users.
#This can be tested by posting a message with pmail, seeing if a file is created
#in i:\pmail\out, and waiting for ohpostme to visit the directory, removing and
#posting the file.
-----------
----------- (This was no tested !!!)
Deploy (!) the ohmail and ohmessage scripts to run out of rc.local or however
you prefer. See if it notifies the user when new mail arrives.... You can
tail -f the log files to see what is happening. A note on samba notification:
the message gets sent to a machine instead of a user.
Decide if you want to use the new adduser script called ohmasteruser and
nomasteruser for creating users and destroying users on a mars aware unix
server. MAKE BACKUPS of your original passwd files etc before continueing.
Note this new adduser creates /etc/expiry /etc/birthdays /etc/ohmyusers
/etc/ohmaillist
Remove users from ohmaillist to prevent them from mailing
Remove users from expiry to prevent account expiry
Remove users from birthdays to prevent birthday notification
Please note the change to passwd file:
auser:x:505:512:A dummy user:/hamster/home/./auser:/etc/ftponly
The extra dot after home forces ftp to see this as the root, thus
allowing the ftp to enter ../httpd/html/auser via the link. Note that
/app or unixmail cannot be reached via ftp.
----------- (No tested)
----------- (This is no more needed (hope) !!!)
#Edit your mars's net$log.dat in SYS:\public to exit to the extended login
#script ohlogscr.bat that actually creates the users with a default password
#on the mars server. Modify the wwwhomepage script to create homepages for
#your new users.
----------- (the work is just ....)
Edit your mars's net$log.dat adding this two lines to the end
DOS SET ID=%USER_ID%
DOS SET LN=%LOGIN_NAME%
-----------
----------- (this was untouched)
You might need to either install quotas or remove mentioning of quotas from
the scripts.
Customize the ohform.htm to your needs and decide if you would like to use it
as a user application form from the web. The apache server can run on the
same server as mars.... ohform.htm calls newuser.pl that creates a script file
to ease the user creation. newuser.pl sends mail to admin user to inform him
of the new application.
These scripts can handle shadow passwords. Create a blank file /etc/ftponly
and use this dummy shell for users to prevent them from telnetting to the
server. Mail fetching via pop and ftp will continue to work.
Suggested directory structure for good operation...
/apps
/base
/base/SYS (mars server SYS volume)
/base/SYS/unixmail ln -s /var/spool/mail /base/SYS/unixmail
/base/SYS/apps ln -s /apps /base/SYS/apps
/base/SYS/home ln -s ../home home
/base/home base home directories
/base/home/auser (Yip, the user's home dir)
/base/home/auser/www ln -s ../httpd/html/dummyuser www
/base/home/auser/pmail gets created from /etc/skel used for pmail
/base/home/httpd/html Web server root space
/base/home/httpd/html/main non-user related space.
/base/home/httpd/html/auser (user's www space)
You can now even share the apps, home dirs and unixmail with samba and you've
got a complete novell and nt server all in one, sharing the same space!
If you find ANY errors with this doc or missing files please let me know...
---------- (Untouched)
---------- (This is just for fun)
#The marsmail is just a dirty hack to satisfy the dos users. Stick with
#pop3 or imap to fetch mail via tcpip from win95, os2, wfw, linux and other.
#The other stuff included with marsmail is just to automate as much as possible
#for our poor overworked netadmins!
---------- (My opinion)
The marsmail-02c is a ver hard work to improve the resources and the time on
the sessions with dos users, based on the marsmail-02 (thanxs a lot boys), but
with a lot of new features, hawever have the principal trouble on marsmail:
the user can use only one mail reader (pmail or pine), never both in a time.
New features:
a) easy of install (a very few steps)
b) reads mail in the netware natural mode
c) output mail in the natural CHARON mode
Changes:
a) The ohpostme go to the trash
b) the oh* scripts still in test (don't know if works)
Future: (the one or the scond, but not the two)
a) ask to PMAIL worktime to make a PMAIL that work with spool files
b) improve the mail read for read only the new mail for pmail
and return the undeleted mail to the spool (both readers)
----------

Binary file not shown.

View File

@ -3,6 +3,7 @@ uses dos;
var mailfile, numfile, outfile: text; var mailfile, numfile, outfile: text;
number, miline, moline, sl, slc: string; {mail-in, mail-out} number, miline, moline, sl, slc: string; {mail-in, mail-out}
UserId,UserLn: string; {mail dir on netware}
nfile, odir, mfile: string; {numberfile, output dir, mailfile} nfile, odir, mfile: string; {numberfile, output dir, mailfile}
numbint: longint; numbint: longint;
o, code, mi, i,j: integer; {mailindex} o, code, mi, i,j: integer; {mailindex}
@ -24,12 +25,33 @@ begin
FileExists := (IOResult = 0) and (FileName <> ''); FileExists := (IOResult = 0) and (FileName <> '');
end; { FileExists } end; { FileExists }
Function ReadLine(var ReadFile: Text): String;
var
C: Char;
S: String;
O: boolean;
Begin
O:=False;
S:='';
If Not EOF(ReadFile) Then Repeat
{$I-}
Read(readfile,c);
{$I+}
If EOF(ReadFile) Or (Ioresult <> 0) Or (C = #10) then
O:=True
Else
S:=S+C;
Until O;
ReadLine:=S;
End;
Begin Begin
v:=false; v:=false;
nfile:='i:\pmail\in\numfile'; UserId:=GetEnv('ID');
mfile:='i:\pmail\in\mailfile.dos'; UserLn:=GetEnv('LN');
odir:='i:\pmail\in'; nfile:='F:\mail\'+UserId+'\numfile';
mfile:='F:\unixmail\'+UserLn;
odir:='F:\mail\'+UserId;
for i:=1 to paramcount do for i:=1 to paramcount do
begin begin
sl:=paramstr(i); sl:=paramstr(i);
@ -41,6 +63,7 @@ begin
if (pos('/?',sl)=1) or (pos('/H',sl)=1) or (pos('/HELP',sl)=1) then if (pos('/?',sl)=1) or (pos('/H',sl)=1) or (pos('/HELP',sl)=1) then
begin begin
Writeln('Copyright 1996/9 Dud software'); Writeln('Copyright 1996/9 Dud software');
Writeln(' Modifications by EL GUIDO');
Writeln; Writeln;
Writeln('Purpose: Creates *.cnm files from a unix mail file for Pegasus'); Writeln('Purpose: Creates *.cnm files from a unix mail file for Pegasus');
Writeln('Usage: marsmail.exe [/n=x:\numb\file] [/m=y:\mail\file]'); Writeln('Usage: marsmail.exe [/n=x:\numb\file] [/m=y:\mail\file]');
@ -121,7 +144,8 @@ end;
while not eof(mailfile) do while not eof(mailfile) do
begin begin
readln(mailfile,miline); {readln(mailfile,miline); this was the problem, the next is the solution}
miline:=readline(mailfile);
if v then write(mi,':'); if v then write(mi,':');
prevline:=shortline; prevline:=shortline;
shortline:=false; shortline:=false;
@ -171,4 +195,3 @@ end;
writeln(' '); writeln(' ');
if v then writeln('Program finished.'); if v then writeln('Program finished.');
end. {of program} end. {of program}

64
monlan Executable file
View File

@ -0,0 +1,64 @@
#!/bin/bash
#
# Monlan can monitor some of your network resources and inform you
# about failures...
#
FLT=0
MLOG='/var/log/unitrace.log'
LLOG='/var/log/unilast.log'
MACHINE=lc.labinf.uaa.mx
PARTOFIP=148.211
if [ ! -f $MLOG ]; then
touch $MLOG
fi
while /bin/true; do
touch $LLOG
NOW=`date`
FLT=0
DNSFLT=0
# Reset last log entry
echo "Last error: " > $LLOG
# check for nslookup failures
/usr/bin/nslookup $MACHINE | grep '$PARTOFIP' 2>&1 > /dev/null
if [ $? -eq 1 ]; then
ER="Name lookups on our domain failed on $NOW. "
echo "$ER" >> $MLOG
echo "$ER" >> $LLOG
FLT=1
DNSFLT=1
fi
#echo "Fault status $FLT"
if [ "$FLT" = "0" ] ; then
# echo "Nslookup is well" ;
for l in machine_list ;
# i.e. rauteg misty raulink rau3 ing1 rkw info raulink caesar.wits.ac.za shannon.ee.wits.ac.za hippo.ru.ac.za ;
do
# echo "Pinging $l"
/bin/ping $l -c 5 -n | grep '100%' 2>&1 > /dev/null
if [ $? -eq 0 ]; then
ER="Cannot ping $l on $NOW. Possible cable fault or machine failure?"
echo "$ER" >> $MLOG
echo "$ER" >> $LLOG
FLT=1
fi
done
fi
# Alerter code....
if [ "$FLT" = "1" ]; then
if [ "$DNSFLT" = "0" ] ; then
echo "." >> $LLOG
cat $LLOG | /bin/mail -s "Network failure" netadmin@your.site.name
sleep 240
fi
FLT=0
DNSFLT=0
fi
sleep 900 ;
done

360
newuser.pl Executable file
View File

@ -0,0 +1,360 @@
#!/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;

134
nomasteruser Executable file
View File

@ -0,0 +1,134 @@
#!/bin/bash
#
# This scripts complements ohmasteruser by destroying accounts and doing
# some cleanup...
user=$1 # username passed to this script
DHOME="/hamster/home" # place for home dirs
BASE="/hamster" # place before SYS volume
SNAME="nw-admin" # supervisor name
SHOME="supervis" # Supervisor home dir
#Get user name
if [ "$user" = "" ]
then
echo -n "What user should be cast into the pit: "
read user
fi
# Check existing
if ! grep "^$user:" /etc/passwd > /dev/null
then
echo "Removing Nonexisting users lead to time paradoxes, I quit!"
exit
else
echo -n "Are you sure? (Type yes) "
read yn
if [ "$yn" != "yes" ]
then
echo "Chicken!"
exit
fi
fi
#11th commandment: thou should make backups
cp /etc/passwd /etc/passwd.notmp
cp /etc/group /etc/group.notmp
# Remove user from passwd file
echo -n "Removing user from password file..."
cat /etc/passwd | sed "/^$user:/d" > /etc/passwd.lock
mv -f /etc/passwd /etc/passwd-
mv -f /etc/passwd.lock /etc/passwd
echo "done..."
# Remove user from shadow passwd file
echo -n "Removing user from shadow password file...."
mv /etc/shadow /etc/shadow-
cat /etc/shadow- | sed "/^$user:/d" > /etc/shadow
echo "done..."
# Remove user from group file
echo -n "Removing user from group file.... "
cat /etc/group | sed "/^$user:/d" > /etc/group.lock
mv -f /etc/group /etc/group-
mv -f /etc/group.lock /etc/group
cat /etc/group | sed "s/:$user,/:/" > /etc/group.l1
cat /etc/group.l1 | sed "s/,$user,/,/" > /etc/group.l2
cat /etc/group.l2 | sed "s/,$user$//" > /etc/group.l3
mv -f /etc/group /etc/group-
mv -f /etc/group.l3 /etc/group
rm /etc/group.l1 /etc/group.l2
echo "done..."
# Remove user from expiry file
echo -n "Removing user from account expiry file... "
cp /etc/expiry /etc/expiry-
cat /etc/expiry- | sed "/^$user:/d" > /etc/expiry
echo "Done..."
# Remove user from birthdays file
echo -n "Remove user from birthdays file.... "
cp /etc/birthdays /etc/birthdays-
cat /etc/birthdays | sed "/^$user:/d" > /etc/birthdays
echo "Done...."
echo -n "Removing user from mail delivery notification file.... "
cp /etc/ohmaillist /etc/ohmaillist-
cat /etc/ohmaillist- | sed "/^$user$/d" > /etc/ohmaillist
echo "Done..."
# Remove user's mail box
echo -n "Removing user's mailbox..."
rm /var/spool/mail/$user
rm /tmp/mail/$user
echo "done..."
# Remove user's files
echo -n "Should I remove all $user's data as well? (Type yes) "
read yn
if [ "$yn" = "yes" ]
then
echo "Removing ..."
rm -r $DHOME/$user
rm -r $DHOME/httpd/html/$user
# here needs to be some code to delete the novell mailbox as well
NOVMAIL="`ls -l $BASE/SYS/mail | grep " $user " | colrm 1 55`"
if [ "$NOVMAIL" != "" ] ; then
echo -n "Removing Novell mailbox $NOVMAIL ... "
rm -r $BASE/SYS/mail/$NOVMAIL
echo "done..."
fi
fi
echo -n "Updating myusers.html... "
$DHOME/httpd/cgi-bin/nph-users > /$DHOME/httpd/html/myusers.html
chmod 755 $DHOME/httpd/html/myusers.html
echo "done..."
echo -n "Removing user from Novell binderies... "
echo -e "#DELETE $user^\r\n" >> $DHOME/$SHOME/users.usr
chown $SNAME.$SNAME $DHOME/$SHOME/users.usr
echo -n "done..."
# The following removes stuff from the dummy group and passwd file for ftp
echo -n "Updating passwd clone in ..base../home/etc... "
cat /etc/passwd | cut -f 1,3,4,5,6,7,8,9,10 -d : - | sed s/:/:*:/ > $DHOME/etc/passwd
cp /etc/group $DHOME/etc/group
echo "done..."
echo "Supervisor, please just logon to marsserver to remove this user automagically."
echo ""
echo "Password linecount: bottom number should be one less"
wc /etc/passwd.notmp
wc /etc/passwd
echo "Groupfile linecount: bottom number should be one less"
wc /etc/group.notmp
wc /etc/group
echo "All done, please inform user $user of his non-existance"
#DONE...

64
nph-users Executable file
View File

@ -0,0 +1,64 @@
#!/bin/sh
# This script creates the html document that displays your current
# users on the mars/samba server in a nice html format
base="/hamster/home/" # Base dir of home dirs
echo "<HTML>"
echo "<TITLE>Mars Server - Current users</TITLE>"
echo "<BODY background=/yourown.gif>"
echo "<H1>MarsServer User List and Email addresses</H1>"
echo '<IMG SRC="/img/yourown.jpg" ALT="Nice graphic that you cannot see">'
echo ""
echo "<P>(See how much <A HREF="/main/quotas.html">diskspace</A> is in use by the users)<P>"
touch /tmp/ulist.tmp
rm /tmp/ulist.tmp
mv /etc/ohulist /etc/ohulist-
touch /tmp/ulist.tmp
for l in `ls $base/httpd/html`;
do
LNAME=`grep "^$l:" /etc/passwd | cut -f 5 -d : - | cut -f 1 -d , -`
if [ $l = "ftp" ]; then LNAME=""; fi
if [ $l = "gopher" ]; then LNAME=""; fia
### NNNB Please add simular lines not to display other kinds of autousers.
if [ "$LNAME" != "" ]; then
echo "$LNAME : $l" >> /tmp/ulist.tmp
fi
done
cat /tmp/ulist.tmp | sort > /tmp/ulist2.tmp
rm /tmp/ulist.tmp
cat /tmp/ulist2.tmp | cut -f 2 -d : - > /tmp/ulist3.tmp
rm /tmp/ulist2.tmp
echo "<CENTER><TABLE width=70% BORDER>"
for l in `cat /tmp/ulist3.tmp`;
do
LNAME=`grep "^$l:" /etc/passwd | cut -f 5 -d : - | cut -f 1 -d , -`
# OFONE=`grep $l /etc/passwd | cut -f 5 -d : -
# echo "$LNAME with $l"
echo -n '<TR><TD><A HREF="http://your.full.domain.name/'
echo -n "$l"
echo -n '">'
echo -n "$LNAME</A></TD><TD><A HREF="
echo -n '"mailto:'
echo -n "$l@email.domain.name"
echo -n '">'
echo "$l@eng.rau.ac.za</a></TD></TR>"
echo -e "$LNAME \t\t\t email: $l@email.domain.name" >> /etc/ohulist
done
echo "</TABLE></CENTER>"
echo "This service brought to you by Marsmail scripting."
echo "<HR>"
echo "(Use your browsers BACK button to go back to the main page.)"
echo -n "</BODY>"
echo -n "</HTML>"
rm /tmp/ulist3.tmp

98
ohbirthcheck Executable file
View File

@ -0,0 +1,98 @@
#!/bin/bash
# Birthday reminder script for Mars and/or Samba
# This scripts sends out automated email for logged in users and the
# birthday boy on the correct date and should be started out of cron
# once a day before teatime :)
# Script creates a birthday.html file that can be included in another
# page. Script logs into mars server with mailusr and does nwuserlist.
# script can be linked to a notice board.... (i've edited it out though!)
# bpath=basepath
# lpath=logpath
# nowdate = current date e.g. Oct 24
srvname="ohmaster" #Samba or mars server
marssrv="ohamster" #Mars server name
mailusr="agenericmailusertodonwuserlists" #Mail user
mailpwd="passwdforgenericmailuser" #Mail user passwd
admname="eddie" #your administrator email name
admfullname="Eddie Dunckley" #Full name
site="RAU Engineering" #Your site name
fqdn="ohmaster.rau.ac.za"
bpath="/hamster/home/httpd/html/main" # where to place birthday.html
lpath="/var/log" # Path to keep log files
nowdate=`/bin/date | /usr/bin/awk ' { print $2 " " $3 } ' `
# Script starts here
: > $bpath/birthday.txt # clears the birthday file
/usr/bin/grep -i ":$nowdate:" /etc/birthdays > $bpath/birthday.txt
if [ `ls -l $bpath/birthday.txt | /usr/bin/awk ' { print $5 } '` != 0 ] ;
then
echo -en "$nowdate: Birthday's happening today:\r\n" > $bpath/bday.txt
echo -en "-----------------------------------------------\r\n" >> $bpath/bday.txt
echo -en "\r\n" >> $bpath/bday.txt
echo "<CENTER>Current Birthdays for $nowdate:<BR><TABLE BORDER WIDTH=80% CELLPADDING=5 BGCOLOR=#FFFFFF>" > $bpath/bday.inc
else
: > $bpath/bday.inc
touch $bpath/bday.txt
rm $bpath/bday.txt
fi
for birthuid in `cat $bpath/birthday.txt | cut -f 1 -d ":"` ;
do
birthguys=`/usr/bin/grep "^$birthuid:" $bpath/birthday.txt | cut -f 2 -d ":"`
birthstring=`/usr/bin/grep "^$birthuid:" $bpath/birthday.txt | awk -F ":" ' { print $4 } ' `
echo "<TR><TD>$birthguys</TD><TD><a href=\"mailto:$birthuid@$fqdn\">$birthuid@$fqdn</a></TD><TD>$birthstring</TD></TR>" >> $bpath/bday.inc
echo -en "$birthguys's birthday! Send mail to $birthuid@$fqdn...\r\n" >> $bpath/bday.txt
echo -en "$birthguys: $birthstring \r\n" >> $bpath/bday.txt
cat << EOMES | /usr/sbin/sendmail -f "$admname@$fqdn" -t
To: $birthuid@$fqdn ($birthguys)
From: $admname@$fqdn ($admfullname)
Reply-To: $admname@$fqdn ($admfullname)
Return-path: <$admname@$fqdn>
X-Mailer: Automated Birthday notification scripts
Subject: Happy Birthday: $birthguys!
Dear $birthguys,
May you have the best day of your life today.
Congratulations on your birthday! The whole $site staff and students
are thinking about you today. In far countries strange people are singing
songs in honour of your birth today.
If you brought cake and drinks along, please invite the $site staff to
join in the festive activities. May $nowdate be one of the best days you've
ever encountered!
From your friendly Automated $srvname Virtual Server and programmers.
EOMES
sleep 4
for lnames in `/usr/sbin/smbstatus | /usr/bin/awk ' { print $5 }' | sort | uniq | /bin/sed "/machine/d" | /bin/sed "1 d" ` ;
do
# echo "Processing $lnames smbside for $birthguys"
echo "NB: It's user $birthuid ($birthguys)'s birthday today!" | /usr/sbin/smbclient -M $lnames 2>&1 > /dev/null
echo "`/bin/date` -- Sent Birthday notice to $lnames" >> $lpath/ohmessage.log
done
for nnames in `/usr/local/bin/nwuserlist -S $marssrv -U $mailusr -P $mailpwd | /usr/bin/awk ' { print $2 } ' | sort | uniq` ;
do
# echo "Processing nsend to $nnames for $birthguys birthday.."
/usr/local/bin/nsend -S ohamster -U ohmessage -P sendthemall $nnames "NB: It's user $birthuid ($birthguys)'s birthday!"
echo "`/bin/date` -- Sent Birthday notice to NetWare user $nnames" >> $lpath/ohmessage.log
done
done
if [ `ls -l $bpath/birthday.txt | /usr/bin/awk ' { print $5 } '` != 0 ] ;
then
echo "</TABLE></CENTER>" >> $bpath/bday.inc
echo -en "\r\n" >> $bpath/bday.txt
echo -en "May he/her/they become as old as the mountains! --$marssrv\r\n" >> $bpath/bday.txt
fi

32
ohexiry Executable file
View File

@ -0,0 +1,32 @@
#!/bin/bash
#
# This will soon be a script to expire users no longer active
#
### WARNING: THIS SCRIPT IS NOT FINISHED!!!! Change to your needs!
# it uses /etc/expiry created by ohmasteruser to determine
# if accounts must be expired or not.... started through cron....
hbase="/hamster/home/httpd/html/main/"
dday=`/bin/date -d "1 month" +%m-%y `
nday=`/bin/date +%d`
for l in `cat /etc/expiry ` ;
do
erflg="0";
uname=`echo "$l" | cut -f 1 -d ":"` ;
uday=`echo "$l" | cut -f 2 -d ":"` ;
echo "$uday $dday"
if [ "$uday" = "$dday" ] ; then
#issue warning here.
echo "Will expire at 0h00 on the 28th of this month"
if ["$nday" = "28"] ; then
echo "This account has finally expired"
erflg="1"
fi
fi
#now create a new expiry file
done

269
ohform.htm Executable file
View File

@ -0,0 +1,269 @@
<HTML>
<TITLE>Mars server user application form</TITLE>
<BODY BACKGROUND=/yourown.gif>
<IMG SRC="/yourlogo.gif" ALT="LOGO" HEIGHT=114 WIDTH=640><BR>
<P>
<FONT size=+1><B><I>PLEASE NOTE: This service is for OUR SITE's staff and students only!</I></B></FONT><HR>
<I>Oh Yee</I>, I would like to be enslaved by the Mars Virtual Server.
I hereby apply for usership in the XXX domain and will obey the
Mars's ever-changing rules.<P>
I take note of the following:
<UL>
<LI>I will keep my home tidy and free of viri, executables, games and dirty stuff.
<LI>I will keep my home smaller than 20Mb, since being a slave means sharing living quarters.
<LI>I will discard all old email, we don't want the Mars angry, do we?
<LI>I will refrain from placing commercial applications in my WWW space
<LI>I will refrain from letting other users use my account
<LI>I will stop all subscriptions to listservers BEFORE I leave the XXXX domain.
<LI>I will clean my home before I depart permanently from the XXXX domain.
<LI>I will make use of the online help BEFORE phoning the network staff.
</UL>
<HR SIZE=6 WIDTH=80%>
<CENTER><H2>User Application form</H2></CENTER>
<FORM METHOD=POST ACTION="http://your.web.site/cgi-bin/newuser.pl">
<H3>Applicant's details</H3>
XXXXX needs your pedigree.
If you are found to make a suitable slave (user) you will be notified telephonically.
<P>
<INPUT SIZE=30 NAME="fname"> Full Name and Surname<BR>
<INPUT SIZE=5 NAME="title"> Title
<INPUT TYPE="checkbox" NAME="addtitle" VALUE="addmytitle"> Add my title to the fullname of the account<BR>
<INPUT SIZE=30 NAME="office"> My office number e.g. Cybernetics B1L1<BR>
Choose a username and two alternatives <INPUT SIZE=8 NAME="sname1"> or <INPUT SIZE=8 NAME="sname2"> or <INPUT SIZE=8 NAME="sname3"><BR>
<FONT SIZE=-2><I>Please note: If your name is Peter de Villiers a username of <b>Cyclops</B>
will most definately NOT be accepted. Use <b>pieterdv</B> or <b>pdv</B> or <b>pdevil</b> for the above example.</FONT><BR>
<P>
<INPUT SIZE=13 NAME="wtel" VALUE="011-"> Work phone
<INPUT SIZE=13 NAME="htel" VALUE="011-"> Home phone<BR>
<INPUT SIZE=13 NAME="bidate" VALUE="Jan 01"> Birthday e.g. Oct 24<BR>
<INPUT SIZE=13 NAME="idnum"> Student, Personnel or ID number<BR>
<INPUT SIZE=30 NAME="reff"> Reference person or Study leader<BR>
<INPUT SIZE=30 NAME="refmail"> Reference's email addr<P>
<h4>Why do I want to be a user?</h4>
<B>M</B>any persons want to be network users because they
see it as a status symbol or they <i>just want to fool around</i> or saw
one of their friends in front of a PC and thought it looked quite <i>cool</i>.
They don't have the foggiest idea what they will to do IF they become slaves
or what a network is all about. Please explain in a few lines why you would like to become a slave of the XXXX Virtual server.
<p>
<TEXTAREA NAME="whyi" ROWS=5 COLS=65>
</TEXTAREA><p>
<HR>
<H2>Questionaire</H2>
Please complete the following questionnaire. It will help us to plan for the
future. This is your chance to make a difference...
<H4>Computer-skills</H4>
My level of computer-skills:<P>
<UL>
<LI>Newbee barely knows where to switch on the <I>kompewter</I>.
Tries to feed mouse.<BR>
<LI>Beginner knows how to use mouse and click on icons to open programs<BR>
<LI>Average user customizes his desktop scheme and types <I>install</I> to install programs.<BR>
<LI>Advanced user compiles his own programs and installs operating systems.<BR>
<LI>Master hacks unix boxes and knows NOS and writes device drivers in ASM.<BR>
<LI>Guru lives in a cave with his Mother-in-Law
</UL>
<INPUT TYPE="radio" NAME="skill" VALUE "newbie"> NewBee
<INPUT TYPE="radio" NAME="skill" VALUE "beginner"> Beginner
<INPUT TYPE="radio" NAME="skill" VALUE "average"> Average
<INPUT TYPE="radio" NAME="skill" VALUE "advanced"> Advanced
<INPUT TYPE="radio" NAME="skill" VALUE "master"> Master
<INPUT TYPE="radio" NAME="skill" VALUE "guru"> Guru <P>
Are you interested in helping out with network related work?
<INPUT TYPE="radio" NAME="helpme" VALUE="yes"> YES
<INPUT TYPE="radio" NAME="helpme" VALUE="no"> NO<P>
<h4>My first choice operating system</h4>
<UL>
<LI>DOS users like the wording <I>Non-reentrant interrupt handler</i>
<LI>Win3xx and fw users like to press the GPF button
<LI>Win95 users like non-protected net,cd,diskcache and hairthin crashprotection
<LI>OS/2 users enjoy the power of raw multithreading, but cannot spell <I> multiuser</I>
<LI>Linux users will willingly spend 5 days doing stuff others do in 15 seconds
<LI>NT users enjoy seeing P-PRO-200's run like a 386es, and call themselves gurus
<LI>A Solaris user probably has a mother-in-Law.
<LI>Mac users smile when waking up.
<LI>Other users cannot spell <i>industry standard</i>.
</UL>
<INPUT TYPE="radio" NAME="os" VALUE="dos"> DOS
<INPUT TYPE="radio" NAME="os" VALUE="win3"> Win3.xxfw
<INPUT TYPE="radio" NAME="os" VALUE="w95"> Windows 95
<INPUT TYPE="radio" NAME="os" VALUE="os2"> OS/2
<INPUT TYPE="radio" NAME="os" VALUE="linux"> Linux
<INPUT TYPE="radio" NAME="os" VALUE="nt"> NT
<INPUT TYPE="radio" NAME="os" VALUE="solaris"> Solaris
<INPUT TYPE="radio" NAME="os" VALUE="mac"> Mac
<INPUT TYPE="radio" NAME="os" VALUE="other"> Other<P>
I can also use some of the following operating systems.<BR>
<INPUT TYPE="checkbox" NAME="oos1" VALUE="dos"> DOS
<INPUT TYPE="checkbox" NAME="oos2" VALUE="win3"> Win3.xx(fw)
<INPUT TYPE="checkbox" NAME="oos3" VALUE="w95"> Windows 95
<INPUT TYPE="checkbox" NAME="oos4" VALUE="os2"> OS/2
<INPUT TYPE="checkbox" NAME="oos5" VALUE="linux"> Linux
<INPUT TYPE="checkbox" NAME="oos6" VALUE="nt"> NT
<INPUT TYPE="checkbox" NAME="oos7" VALUE="solaris"> Solaris
<INPUT TYPE="checkbox" NAME="oos8" VALUE="mac"> Mac
<INPUT TYPE="checkbox" NAME="oos9" VALUE="other"> Other<P>
<h4>What do I see as the most important function of the network?</h4>
<i>Please give a priority next to the following network services. 1 means you
think it's for the birds and 5 means that if this service should dissappear,
you would die. Please show some sort of personality, all 5's will not impress OhMaster.</I>
<P>
<INPUT TYPE="radio" NAME="s1" value="1">1
<INPUT TYPE="radio" NAME="s1" value="2">2
<INPUT TYPE="radio" NAME="s1" value="3">3
<INPUT TYPE="radio" NAME="s1" value="4">4
<INPUT TYPE="radio" NAME="s1" value="5">5
.. E-Mail and other communication tools<BR>
<INPUT TYPE="radio" NAME="s2" value="1">1
<INPUT TYPE="radio" NAME="s2" value="2">2
<INPUT TYPE="radio" NAME="s2" value="3">3
<INPUT TYPE="radio" NAME="s2" value="4">4
<INPUT TYPE="radio" NAME="s2" value="5">5
.. World Wide Web for info search and research<BR>
<INPUT TYPE="radio" NAME="s3" value="1">1
<INPUT TYPE="radio" NAME="s3" value="2">2
<INPUT TYPE="radio" NAME="s3" value="3">3
<INPUT TYPE="radio" NAME="s3" value="4">4
<INPUT TYPE="radio" NAME="s3" value="5">5
.. Word-processing and office based work<BR>
<INPUT TYPE="radio" NAME="s4" value="1">1
<INPUT TYPE="radio" NAME="s4" value="2">2
<INPUT TYPE="radio" NAME="s4" value="3">3
<INPUT TYPE="radio" NAME="s4" value="4">4
<INPUT TYPE="radio" NAME="s4" value="5">5
.. Cruising internet for fun and pleasure<BR>
<INPUT TYPE="radio" NAME="s5" value="1">1
<INPUT TYPE="radio" NAME="s5" value="2">2
<INPUT TYPE="radio" NAME="s5" value="3">3
<INPUT TYPE="radio" NAME="s5" value="4">4
<INPUT TYPE="radio" NAME="s5" value="5">5
.. Engineering apps CAD/CAM, PCB design, math etc.<BR>
<INPUT TYPE="radio" NAME="s6" value="1">1
<INPUT TYPE="radio" NAME="s6" value="2">2
<INPUT TYPE="radio" NAME="s6" value="3">3
<INPUT TYPE="radio" NAME="s6" value="4">4
<INPUT TYPE="radio" NAME="s6" value="5">5
.. Shareware source<BR>
<INPUT TYPE="radio" NAME="s7" value="1">1
<INPUT TYPE="radio" NAME="s7" value="2">2
<INPUT TYPE="radio" NAME="s7" value="3">3
<INPUT TYPE="radio" NAME="s7" value="4">4
<INPUT TYPE="radio" NAME="s7" value="5">5
.. Programming apps, VisC, Pascal, VB etc.etc.<BR>
<INPUT TYPE="radio" NAME="s8" value="1">1
<INPUT TYPE="radio" NAME="s8" value="2">2
<INPUT TYPE="radio" NAME="s8" value="3">3
<INPUT TYPE="radio" NAME="s8" value="4">4
<INPUT TYPE="radio" NAME="s8" value="5">5
.. Storage of files and userdata<BR>
<INPUT TYPE="radio" NAME="s9" value="1">1
<INPUT TYPE="radio" NAME="s9" value="2">2
<INPUT TYPE="radio" NAME="s9" value="3">3
<INPUT TYPE="radio" NAME="s9" value="4">4
<INPUT TYPE="radio" NAME="s9" value="5">5
.. Examination results, electronic lecture notes.<BR>
<h4>What I would like to see in future</h4>
What services would you like to see running at XXXXXXXXX in future?<P>
<TEXTAREA NAME="future" ROWS=3 COLS=50>
</TEXTAREA><BR>
<h4>Hypothetical</H4>
How many staff members do you think should design, implement and maintain <I>and</I>
give support to 200 workstations at XXXXXXXXXXX?
<INPUT NAME="numstaff" SIZE=4>
<P>
If I had to pay for a network account, how much is fair?
<INPUT NAME="hypopay" SIZE=8 VALUE="R0.00"> per year.<P>
What level of service would you expect for it?
<UL>
<LI><INPUT TYPE="radio" NAME="hserv" VALUE="0"> Will take care of myself.
<LI><INPUT TYPE="radio" NAME="hserv" VALUE="1"> Show me the ropes how to use services and that's it.
<LI><INPUT TYPE="radio" NAME="hserv" VALUE="2"> A 3 day course on how to use the LAN software.
<LI><INPUT TYPE="radio" NAME="hserv" VALUE="3"> Courses plus telephonic software support.
<LI><INPUT TYPE="radio" NAME="hserv" VALUE="4"> 1 hour response time to software related queries.
<LI><INPUT TYPE="radio" NAME="hserv" VALUE="5"> Full assistance: Software, hardware, help at my desk.
</UL>
<P>
I see a network connection as<BR>
<UL>
<LI><INPUT TYPE="radio" NAME="userv" VALUE="0">A utility like water and electricity I expect XXXXXXXXXX to provide it as a standard.
<LI><INPUT TYPE="radio" NAME="userv" VALUE="1">A extra feature utility like a telephone at a minimal yearly/monthly fee.
<LI><INPUT TYPE="radio" NAME="userv" VALUE="2">A Nice to have utility like airconditioning for my car. I do expect to pay alot to have a network connection in my office.
<LI><INPUT TYPE="radio" NAME="userv" VALUE="3">A luxury item like an expensive watch that I would never be able to afford
</UL>
Having a network connection is<BR>
<UL>
<LI><INPUT TYPE="radio" NAME="nserv" VALUE="0"> a total waste of time, highly overrated
<LI><INPUT TYPE="radio" NAME="nserv" VALUE="1"> a good thing, a bit overrated but it can serve me as a tool
<LI><INPUT TYPE="radio" NAME="nserv" VALUE="2"> like a speedo in a car, it REALLY makes life easier.
<LI><INPUT TYPE="radio" NAME="nserv" VALUE="3"> very important if I want to complete projects in time
<LI><INPUT TYPE="radio" NAME="nserv" VALUE="4">a way of life. I could not live without it.
</UL>
What would I like to see on a monthly network account?
<UL>
<LI><INPUT TYPE="radio" NAME="aserv" VALUE="0">NO! No monthly account!
<LI><INPUT TYPE="radio" NAME="aserv" VALUE="1">The amount of diskspace I use
<LI><INPUT TYPE="radio" NAME="aserv" VALUE="2">Diskspace and time I've spent at a live connection.
<LI><INPUT TYPE="radio" NAME="aserv" VALUE="3">Diskspace, time and local vs international traffic I've generated.
<LI><INPUT TYPE="radio" NAME="aserv" VALUE="4">Diskspace, time, traffic and a list of files I've accessed.
</UL>
<P>
If you were forced to a monthly account, how would you like to receive it?<BR>
<INPUT TYPE="radio" NAME="aget" VALUE="email"> via Email
<INPUT TYPE="radio" NAME="aget" VALUE="web"> on the Web
<INPUT TYPE="radio" NAME="aget" VALUE="both"> both
<INPUT TYPE="radio" NAME="aget" VALUE="paper"> Old-fashioned snailmail paper account.<P>
Would you like to see the results of ALL the users or just your own.<BR>
<INPUT TYPE="radio" NAME="aret" VALUE="self"> Just my own
<INPUT TYPE="radio" NAME="aret" VALUE="all"> All the users
<INPUT TYPE="radio" NAME="aret" VALUE="summ"> Detailed myself, summary all.<P>
Which of the following services would I like?<BR>
<UL>
<LI><INPUT TYPE="checkbox" NAME="c0">Birthday notification of other users
<LI><INPUT TYPE="checkbox" NAME="c1">Voice email if I have a soundblaster
<LI><INPUT TYPE="checkbox" NAME="c2">Open graphical noticeboard
<LI><INPUT TYPE="checkbox" NAME="c3">Appointment reminder
<LI><INPUT TYPE="checkbox" NAME="c4">Global telephone book
<LI><INPUT TYPE="checkbox" NAME="c5">An Internet Relay Chat server
<LI><INPUT TYPE="checkbox" NAME="c6">Automated software installation and updates
<LI><INPUT TYPE="checkbox" NAME="c7">Voice navigation and dictation software
<LI><INPUT TYPE="checkbox" NAME="c8">Examinations via computer terminals
<LI><INPUT TYPE="checkbox" NAME="c9">Video lectures and Web notes
<LI><INPUT TYPE="checkbox" NAME="c10">Video conferencing
<LI><INPUT TYPE="checkbox" NAME="c11">Shared appointment books
<LI><INPUT TYPE="checkbox" NAME="c12">Animated multimedia announcements
<LI><INPUT TYPE="checkbox" NAME="c13">Student results on the web
<LI><INPUT TYPE="checkbox" NAME="c14">Hardware and software monitoring on my station
</UL>
<HR>
<INPUT TYPE="reset" VALUE="Clear Form"> <INPUT TYPE="submit" VALUE="Submit this long form to XXXXXXXX"><BR>
</FORM>
<HR>
There is <B>no</B> guarrantee that xxxxxxxx will accept you as a user. This service was brought to you by the creaters of the xxxxxx virtual server.
</BODY>
</HTML>

42
ohlogscr.bat Normal file
View File

@ -0,0 +1,42 @@
@ECHO OFF
rem DOS BATCH FILE
rem File is called ohlogscr.bat and gets called with an exit "ohlogscr.bat"
rem from the master mars login script....
rem unix2dos this file before using it.
echo .
rem
rem I: is a map to the user directory.
rem
if not "%name%"=="SUPERVIS" goto aaa
if not exist i:\users.usr goto aaa
i:
cd \
cls
echo Creating new users and destroying old ones.
rem Use makeuser script from novell to create/destroy the new/old users
makeuser users.usr
type users.rpt | more
copy users.old + users.usr users.lst > nul
copy usrpt.old + users.rpt usrpt.lst > nul
copy users.lst users.old > nul
copy usrpt.lst usrpt.old > nul
del users.rpt > nul
del users.usr > nul
f:
pause
:aaa
rem
rem Place your normal household stuff in here......
rem all the variable names below gets created in the master login script
Echo ________________________________________________________________________
echo Welcome %LONGNAME% driving on your %MACHINE% from IPX node %NETADDR%:%NODE%
echo Your %OSTYPE% %OSVER% is far too outdated for THIS powerfull server!
echo Your mailbox is %MBOX% and your temp directory is set to %TEMP%
echo It looks like we're ready to rock and roll!!
Echo ________________________________________________________________________

17
ohmail
View File

@ -1,11 +1,26 @@
#!/bin/bash #!/bin/bash
#
# Purpose: This shell script will list all users logged in via samba or
# mars and see if it needs to inform them about new mail waiting..
# Please create a generic mail handling user on mars and customize this
# script for your needs...
#
marsserver="YourMarsServerName"
mailusr="auseronmarsthathandlesmailnotification"
mailusrpwd="passwordforyourgenericmailuser"
while [ true ] ; while [ true ] ;
do do
nwuserlist -S $marsserver -U $mailusr -P $mailusrpwd > /tmp/nwusers.list
smbstatus > /tmp/smbusers.list
for x in `cat /etc/ohmaillist` for x in `cat /etc/ohmaillist`
do do
/usr/sbin/ohmessage $x /usr/sbin/ohmessage $x
sleep 1 sleep 1
done done
sleep 5 sleep 120
done done
# ohmail needs to be installed in /usr/sbin together with ohmessage.

230
ohmasteruser Executable file
View File

@ -0,0 +1,230 @@
#! /bin/sh
#
# adduser 1.0: a utility to add users to the system
# Copyright (C) 1994 Ian A. Murdock <imurdock@shell.portal.com>
# Sorry Ian, dud was ere.
# Modified by Marc Ewing <marc@redhat.com> for RHS Linux
# Modified by gac@eng.rau.ac.za, adw@chopin.rau.ac.za, fwo@eng.rau.ac.za,
# eddie@rau.ac.za to work great with mars and samba
# Enhancements: Automagically creates user on mars server side....
# Please edit the login script of supervisor user to link into this
# script...
# Updates a birthday reminder database
# updates an expiry database
# ensures an ftp-only shell
# Everything happens too fast, so don't let the user interrupt.
trap "" 1 2 3 15
# Set a few important variables before getting started.
NUMARG=$#
LOGIN="$1"
FNAME="$2"
OFFICE="$3"
WTEL="$4"
HTEL="$5"
BDATE="$6"
EXIST=0
NOHOME="$7"
PASSWD="/etc/passwd"
PBAK="/etc/passwd-" # Some programs use /etc/passwd-, others use
# /etc/passwd.OLD. Take your pick.
GROUP="/etc/group"
GBAK="/etc/group-"
PLOCK="/etc/ptmp" # Standard method of locking the password file.
DSHELL="/etc/ftponly"
DHOME="/hamster/home" # modify this to point to base home dirs.
SKEL="/etc/skel"
SPOOL="/var/spool/mail"
FIRST_UID=500
FIRST_GID=500
# A few sanity checks...
if [ `id -u` != 0 ]; then
echo "Only root may add users to the system." ; exit 1
fi
if [ $NUMARG = 0 ]; then
echo "You need to specify the login to add; for example, \`adduser" \
"imurdock'." ;
echo "e.g. ohmasteruser username fullname office worktel hometel birthdate";
exit 1
fi
id $LOGIN >/dev/null 2>/dev/null && EXIST=1
if [ $EXIST = 1 ]; then
echo "The login $LOGIN already exists."
exit 1
fi
if [ -f $PLOCK ]; then
echo "$PASSWD is locked. Try again later." ; exit 1
fi
# And now the program begins:
cp $PASSWD /etc/passwd.tmp
cp $GROUP /etc/group.tmp
echo "" ; echo -n "Looking for first available UID..."
NUID=`cut -f 3 -d ":" $PASSWD | sort -n | awk -v uid=$FIRST_UID '
{ if ($1 == uid) uid = uid + 1; }
END { print uid; }
'`
if [ $NUID -ge 65536 ]; then
echo "Sorry, ran out of uids."
exit 1
fi
echo " $NUID"
echo -n "Looking for first available GID..."
NGID=`cut -f 3 -d ":" $GROUP | sort -n | awk -v gid=$FIRST_GID '
{ if ($1 == gid) gid = gid + 1; }
END { print gid; }
'`
if [ $NGID -lt $FIRST_GID ]; then
NGID=$FIRST_GID
fi
echo " $NGID"
echo "" ; echo -n "Adding login: $LOGIN..."
touch $PLOCK ;
cp $PASSWD $PBAK
echo "$LOGIN:*:$NUID:$NGID:New User:$DHOME/./$LOGIN:$DSHELL" >> $PASSWD
# Add user to users group
cp $GROUP $GBAK
sed "s/^\(users.*[^:]\)\$/\1,$LOGIN/" < $GBAK |
sed "s/^\(users.*:\)\$/\1$LOGIN/" > $GROUP
#sed "s/^\(users.*[^:]\)$/\1,$LOGIN/" < $GBAK |
#sed "s/^\(users.*:\)$/\1,$LOGIN/" > $GROUP
# Add user to httpd group
cp $GROUP $GBAK
sed "s/^\(httpd.*[^:]\)\$/\1,$LOGIN/" < $GBAK |
sed "s/^\(httpd.*:\)\$/\1$LOGIN/" > $GROUP
echo "$LOGIN::$NGID:$LOGIN" >> $GROUP
rm -f $PLOCK
echo "done."
if [ "x$NOHOME" = "x" ]; then
echo -n "Creating home directory: $DHOME/$LOGIN..."
mkdir $DHOME/$LOGIN
chmod 2770 $DHOME/$LOGIN
cp -a $SKEL/.??* $SKEL/* $DHOME/$LOGIN >/dev/null 2>/dev/null
chown -R $NUID.$NGID $DHOME/$LOGIN
echo "done."
fi
echo -n "Creating mailbox: $SPOOL/$LOGIN..."
touch $SPOOL/$LOGIN ; chmod 660 $SPOOL/$LOGIN ; chown $NUID.mail $SPOOL/$LOGIN
echo $LOGIN >> /etc/ohmaillist
echo "0" > /tmp/mail/$LOGIN
echo "Done.."
echo ""
echo "Don't forget to set the password."
if [ "x$NOHOME" != "x" ]; then
echo ""
echo "The home directory for $LOGIN was set to $DHOME/$LOGIN but the directory"
echo "was not created. Be sure that you set it up properly."
fi
if [ "x$FNAME" = "x" ] ; then # Added to show account expiry times..
passwd $LOGIN # creates /etc/expiry
chfn $LOGIN
echo -n "Expiry date: (mm-yy) "
read expiry
echo "$LOGIN:$expiry" >> /etc/expiry
echo -n "Birthdate: (e.g. Oct 24) "
read BDATE
echo "$LOGIN:$FNAME:$BDATE:Happy Birthday!" >> /etc/birthdays
else
# echo "default" | passwd -P $LOGIN
FNAME=`echo "$FNAME" | sed 's/[,:]/ /g'`
OFFICE=`echo "$OFFICE" | sed 's/[:,]/ /g'`
WTEL=`echo "$WTEL" | sed 's/[:,]/ /g'`
HTEL=`echo "$HTEL" | sed 's/[:,]/ /g'`
chfn -f "$FNAME" -r "$OFFICE" -w "$WTEL" -h "$HTEL" $LOGIN
expiry="12-97"
echo "$LOGIN:$expiry" >> /etc/expiry
echo "$LOGIN:$FNAME:$BDATE:Happy Birthday!" >> /etc/birthdays
fi
echo -n "Creating an example www home page..."
mkdir $DHOME/httpd/html/$LOGIN # point to your webroot
chown $NUID.$NGID $DHOME/httpd/html/$LOGIN
chmod 755 $DHOME/httpd/html/$LOGIN
LONGNAME="`grep "^$LOGIN:" $PASSWD | cut -f 5 -d : - | cut -f 1 -d , -`"
/usr/sbin/wwwhomepage "$LONGNAME" $LOGIN > $DHOME/httpd/html/$LOGIN/index.htm
chown $NUID.httpd $DHOME/httpd/html/$LOGIN/index.htm
chmod 755 $DHOME/httpd/html/$LOGIN/index.htm
cp /etc/.htaccess $DHOME/httpd/html/$LOGIN/.htaccess
chmod 644 $DHOME/httpd/html/$LOGIN/.htaccess
chown root.httpd $DHOME/httpd/html/$LOGIN/.htaccess
pushd . > /dev/null
cd $DHOME/$LOGIN
ln -s ../httpd/html/$LOGIN www
popd > /dev/null
echo "Done..."
echo "Updating myusers.html"
$DHOME/httpd/cgi-bin/nph-users > /$DHOME/httpd/html/myusers.html
chmod 755 $DHOME/httpd/html/myusers.html
# Now for the COOOL part: creates users in mars space so that when supervisor
# logs on, new users are created automagically on the novell side so that
# user is immediately available on mars.
# Please have a look at the modified batch file that supervisor login script
# points to.....
echo "Updating Novell user ID"
echo -e "#NO_HOME_DIRECTORY\r\n" >> /hamster/home/supervis/users.usr
echo -e "#CREATE $LOGIN;$LONGNAME;default^\r\n" >> /hamster/home/supervis/users.usr
# Change nw-admin to your admin account on the mars side.
chown nw-admin.nw-admin /hamster/home/supervis/users.usr
# The following updates a dummy ftp passwd file that shows correct user and
# group stuff when a user ftp's to the server
echo "Updating ftp passwd file"
cat /etc/passwd | cut -f 1,3,4,5,6,7,8,9,10 -d : - | sed s/:/:*:/ > $DHOME/etc/passwd
cp /etc/group $DHOME/etc/group
# The next section creates default disk storage space for users, using
# user wvdw as template. Please man quota to see how disk quotas works..
echo "Applying system default disk storage quotas..."
/usr/sbin/edquota -p wvdw $LOGIN
echo ""
echo "Supervisor, please log on to the Mars server to update the user's Novell login."
echo ""
# Some sanity checks, if the diff between count is more than one then this
# script messed up.
echo "Word and linecount of passwd file:"
wc /etc/passwd.tmp
wc $PASSWD
echo "Wordcount of group files:"
wc /etc/group.tmp
wc $GROUP
# Yip, we're fin..
echo "OK, Patricia lets go!"
# EOF

View File

@ -1,19 +1,32 @@
#!/bin/bash #!/bin/bash
#
# Ohmessage: called by ohmail and creates a database of new mail flags
# for users. Sends a message to mars or samba users informing them of
# new mail
# Please create a directory under /tmp called mail where the mail flags
# will be stored..
# log files will be stored in /var/log.
marsserver="yourmarsservername"
mailusr="genericmailuseronmars"
mailpwd="genericmailusrpasswd"
s1="`cat /var/spool/mail/$1 | grep Subject | wc -l`" s1="`cat /var/spool/mail/$1 | grep Subject | wc -l`"
let s2=`cat /tmp/mail/$1` let s2=`cat /tmp/mail/$1`
if let "$s1 > $s2" if let "$s1 > $s2"
then then
if smbstatus | grep " $1 " > /dev/null if cat /tmp/smbusers.list | grep " $1 " > /dev/null
then then
for machine in `smbstatus | grep " $1 " | awk ' {print $5}' | sort | uniq` for machine in `cat /tmp/smbusers.list | grep " $1 " | awk ' {print $5}' | sort | uniq`
do do
echo "$1 has new mail `grep From: /var/spool/mail/$1 | tail --lines=1`" | smbclient -M $machine 2>&1 > /dev/null echo "$1 has new mail `grep From: /var/spool/mail/$1 | tail --lines=1`" | smbclient -M $machine 2>&1 > /dev/null
echo $s1 > /tmp/mail/$1 echo $s1 > /tmp/mail/$1
echo "`date` -- Sent notification to SMB user $1 at $machine" >> /var/log/ohmessage.log echo "`date` -- Sent notification to SMB user $1 at $machine" >> /var/log/ohmessage.log
done done
elif /usr/local/bin/nwuserlist -S ohamster -U ohmessage -P sendthemall | grep -i " $1 " > /dev/null elif cat /tmp/nwusers.list | grep -i " $1 " > /dev/null
then then
/usr/local/bin/nsend -S ohamster -U ohmessage -P sendthemall $1 "New mail `grep From: /var/spool/mail/$1 | tail --lines=1`" /usr/local/bin/nsend -S $marsserver -U $mailusr -P $mailpwd $1 "New mail `grep From: /var/spool/mail/$1 | tail --lines=1`"
echo $s1 > /tmp/mail/$1 echo $s1 > /tmp/mail/$1
echo "`date` -- Sent notification to NetWare user $1" >> /var/log/ohmessage.log echo "`date` -- Sent notification to NetWare user $1" >> /var/log/ohmessage.log
fi fi
@ -21,4 +34,4 @@
echo $s1 > /tmp/mail/$1 echo $s1 > /tmp/mail/$1
fi fi
# ohmessage by gac@eng.rau.ac.za, eddie@eng.rau.ac.za

View File

@ -1,6 +1,22 @@
#!/bin/bash #!/bin/bash
# (This is no more needed on the marsmail-02c)
#
# This script runs through all the user dirs to collect mail that needs to
# be sent.
# Pegasus mail for dos will use a gateway that places outgoing mail in
# /home/username/pmail/out. All these messages will be picked up by this
# script and mailed out.
# Please create a file /etc/ohmaillist that contains valid users that
# may send mail from dos pmail logged into mars.
# (I added it to the adduser script so all users can have new mail)
# Format of the ohmaillist file is just a single username per line
# Replace with the base dir of your home directories i.e. /home
homedirs="/hamster/home"
# Replace with your domain name
dm="eng.rau.ac.za"
#This script runs through all the user dirs to collect mail that needs to be sent.
while [ true ] ; while [ true ] ;
do do
cd /hamster/home cd /hamster/home
@ -8,11 +24,13 @@ do
do do
for x in `ls $l/pmail/out` for x in `ls $l/pmail/out`
do do
cat "$l/pmail/out/$x" | sed "1,4d" | /usr/sbin/sendmail -f "<$l@eng.rau.ac.za>" -t cat "$l/pmail/out/$x" | sed "1,4d" | /usr/sbin/sendmail -f "<$l@$dm>" -t
rm "$l/pmail/out/$x" rm "$l/pmail/out/$x"
echo "`date` -- Mail message $x send from $l mailbox" >> /var/log/ohpostme.log echo "`date` -- Mail message $x send from $l mailbox" >> /var/log/ohpostme.log
done done
sleep 1 sleep 1
done done
sleep 5 sleep 7
done done
# ohmail - ends here

113
ohquota Executable file
View File

@ -0,0 +1,113 @@
#!/bin/bash
#
# ohQuota will send disk quota reports to mars and samba and other users
# monthly at a certain time and update a html file that lists global disk
# usage for users.
# run this once a month through cron (see man cron)
# hbase is the base dir where you would like place the quotas.html file.
hbase="/hamster/home/httpd/html/main/"
title="RAU Engineering" # Your organization's title
srvname="OhMaster" # Your server's name
fqdn="ohmaster.rau.ac.za" # full fqdn to your mail host
adminemail="root@ohmaster.rau.ac.za" # email of the admin account
wwwsite="www-ing.rau.ac.za/main" # urlpath to hbase
# Month is the current month :)
mnth=`date`
dummy="youhavenoteditedthisscript"
if [ $dummy = youhavenoteditedthisscript ] ; then
echo "Please edit this script to generate your OWN html file!"
exit
fi
cat <<OOOK > $hbase/quotas.html
<HTML>
<HEAD>
<!--#exec cgi="/cgi-bin/expiry-cgi" -->
<TITLE>$title - Disk quotas for the slaves as on $mnth</TITLE></HEAD>
<BODY background=<!--#exec cgi="/cgi-bin/randbg-cgi" -->
>
<IMG SRC="/eddie/oheng.gif" ALT="$title" HEIGHT=114 WIDTH=640><BR>
<FONT SIZE=2>Cnr Ditton and Kingsway Ave, P.O. Box 524, Auckland Park, 2006, Tel
: +27(11)-489-2016, Fax: +27(11)-489-2097
</FONT><P><CENTER>
<h3>Disk space usages for the slaves as on $mnth</h3>
<I>These are the messy living quaters of the slaves and the amount of data lying
around in their homeboxes</I>
<P>
A slave is granted 134,217,728 binary digits of space on the oh-so-precious fast wide scsi's of $srvname for their normal household information
like spreadsheets, important email, scanned images etcetera etcetera.
Some slaves tend to leave data on the $srvname server without ever removing it.
$srvname gets upset with old data and is busy trying to reduce all files older
than one year on the server to 42 bytes, a magical number picked up from somewhere.
<center><TABLE BORDER WIDTH=80%>
<TD><B><I>User</I></B></TD><TD><B><PRE>Filesystem blocks quota limit grace files quota limit grace</PRE></B></TD></TR>
OOOK
for l in `cat /etc/ohmaillist | sort`
#for l in eddie
do
dq=`/usr/sbin/quota $l`
ddq=`/usr/sbin/quota $l | sed ' 1,2 d '`
cat <<APESHIT >> $hbase/quotas.html
<TR><TD>$l</TD><TD><PRE>$ddq</PRE></TD></TR>
APESHIT
cat <<EEEEK # | /usr/sbin/sendmail -t
From: $srvname Automated Disk Usage reporter <$adminemail>
Reply-to: $adminemail
To: $l@$fqdn <$l@$fqdn>
Subject: $l's diskusage on $srvname
X-Mailer: Automated disk Usage reporter script
Oh Yee my little slave
Greetings!
This is your friendly $srvname virtual server reporting:
Monthly account: Diskusage as on $mnth:
$dq
This is just a friendly reminder of your current disk usage. Don't panic.
You only need to pay respects, no money, this is only for your records.
This disk usage account will be automatically sent out every month.
Please remove your old data frequently from the server if it is not in
constant use.
Point your URL to http://$wwwsite/quota.html to see the
diskspace usage of all the users on $srvname.
Redirect any replies concerning diskspace usage to your smiling net-admin staff.
This is a green service: this message will self destruct in 40 seconds.
(Just kidding!)
EEEEK
done
cat <<POPO >> $hbase/quotas.html
</TABLE></CENTER>
<HR>
<CENTER>
<I><B><A HREF="/main/disclaim.htm">disclaimer:</A></B> $title believes
in freedom of thought and speech. User
webcontent is the responsibility of the user.</I><P>
<FONT SIZE=-4>
Last modified:
<!--#echo var="LAST_MODIFIED" -->
</FONT>
</CENTER>
</BODY>
</HTML>
POPO

View File

@ -1,4 +1,9 @@
#!/bin/bash #!/bin/bash
#
# OhSendNt is a console broadcast tool to send messages from the unix console
# to the network users. Usefull for sending broadcasts that server is going
# down in 10 minutes or whatever :)
#
messge=$1 messge=$1
machs=$2 machs=$2

View File

@ -1,16 +1,38 @@
@echo off @echo off
if not exist i:\pmail\nul mkdir i:\pmail > nul
if not exist i:\pmail\out\nul mkdir i:\pmail\out > nul rem This batch file gets called when a dos user wants to run pmail from
if not exist i:\pmail\in\nul mkdir i:\pmail\in > nul rem a menu or command line.
set pmuser=%name% rem It calls marsmail.exe to convert the unix mail file into readable
:SzLoop rem pmail messages.
Echo Please wait -- converting mail from unix to dos format... rem Need linked the unix /var/spool/mail to SYS:/unixmail
rem chksz f:\unixmail\%name% %temp%\%name% rem 1/1000000 chance that user runs marsmail during a mail delivery
unix2dos f:\unixmail\%name% > i:\pmail\in\mailfile.dos rem that might damage the last message coming in... Anybody have any
rem chksz f:\unixmail\%name% %temp%\%name% -c rem ideas?
rem IF Errorlevel 1 goto SzLoop
copy j:\dos\net\pmail\zero.txt f:\unixmail\%name% > nul rem variable name get's set in the master login script to the user's
j:\dos\net\pmail\marsmail.exe rem login name and the userid.
i: set pmuser=%ln%
cd \pmail\in set iduser=%id%
j:\dos\net\pmail\pmail.exe -a
if not exist f:\mail\%id% mkdir f:\mail\%id% > nul
rem read the mail directly from the f:\unixmail\%ln% and let it on the
rem f:\mail\%id%\<files>.cnm for pegasus mail
marsmail.exe
rem if need routes, add it to the line before (g:\pmail\marsmail.exe)
rem Marsmail is the program that strips the unix mailfile appart and generates
rem a index file and loose message files... Source is included... Please
rem recompile to your needs...
rem zero.txt is a file zero bytes long but MUST exists in f:\mail !
copy f:\mail\zero.txt f:\unixmail\%name% > nul
rem call the pegasus mail reader in the natural mode
echo Please move all the mail into folders!!!
pause
pmail.exe
rem if need routes, add it to the line before (g:\pmail\pmail.exe)

BIN
pmail.cfg

Binary file not shown.

Binary file not shown.

28
wwwhomepage Executable file
View File

@ -0,0 +1,28 @@
cat << EOF
<HTML>
<TITLE>$1's own WebPage!!</TITLE>
<BODY BACKGROUND=/yourownbackground.gif>
<CENTER><H1>$1's own WebPage</H1></CENTER>
<FONT SIZE=5><CENTER><IMG SRC="/nicepict.jpg" ALT="">-- Hallo World! --<IMG SRC="/nicepict.jpg" ALT=""></CENTER>
<HR>
<B>I</B> am a new user at The most PowerFull <i>Mars</i> File Server
<BR>
<B>P</B>lease mail me at <A HREF="mailto:$2@your.domain.name">$2@your.domain.name</A>
to say that you have actually visited my page.<P>
I <I>promise</I> to update this page as soon as I know I <I>have</I> one!<P>
<B>B</B>eing a new user on this system I will refrain from discussing any of the following topics on this page:<BR>
<h3>Sex, Religion, Politics, Sport or Business.</H3>
<p>
<HR>
</FONT>
<HR>
If you have a problem with this page <B> DON'T </B> mail the webmaster!
</BODY>
</HTML>
EOF

View File