Modified Users

# vmtelcomp.pl
# author: Stefan Joris, Synstar
# created May 8, 2003
# last reviewed May 15, 2003
# version 1.0a
#
# compares input user files and writes changes to text file and html file
#
# example output:
#
# Added users:
# 0444 JBETON 1000 ANT 5555 BETON (FEI)Jan
# Deleted users:
# 0276 BARBIN 0067 067 3029 BARBIN (FEI)Wilma
# 0223 AMENDOLA 1899 AMT 3029 AMENDOLA (FEI)Tony
# Modified telephone numbers:
# 9223 RODE 0082 082 3029 RODE (FEI)Stephanie
# Modified users:
# 1609 VAZQUEZ 6572 A72 4123 VAZQUEZ (OP) Maria Jesus Alaaf!
#

use File::Copy;

#define global vars
$oldusersfile="vmtel_old.txt";
$newusersfile="vmtel_new.txt";
$outfile="vmtelcomp.txt";
$outfilehtm="vmtelcomp.htm";

#read source files in memory
open(VMNEW,$newusersfile) or die "cannot open $newusersfile";
open(VMOLD,$oldusersfile) or die "cannot open $oldusersfile";

foreach(readline(VMNEW))
{chomp;
 $key=substr($_,5,8);
 $tel=substr($_,0,4);
 $vmnew{$key}=$_;
 $vmnewtels{$key}=$tel;}

foreach(readline(VMOLD))
{chomp;
 $key=substr($_,5,8);
 $tel=substr($_,0,4);
 $vmold{$key}=$_;
 $vmoldtels{$key}=$tel;}

close(VMNEW);
close(VMOLD);

#find deleted users
foreach $key (keys(%vmoldtels))
{push (@deletedtels, $vmold{$key}) unless exists($vmnew{$key});
}

#find new users, modified telnrs and modified users
foreach $key (keys(%vmnewtels))
{if (exists($vmold{$key}))
 {next if ($vmold{$key} eq $vmnew{$key});
 push (@modifiedtels, $vmnew{$key}) if ($vmoldtels{$key} ne $vmnewtels{$key});
 push (@modifiedusers, $vmnew{$key}) if (($vmold{$key} ne $vmnew{$key})
 && ($vmoldtels{$key} eq $vmnewtels{$key}));
 }
 else
 {push (@addedtels, $vmnew{$key})
 }
 }

#write output to txt file
open(OUTFILE,">$outfile");
print OUTFILE "Added users:\n";
foreach(@addedtels) {print OUTFILE "$_\n";}
print OUTFILE "Deleted users:\n";
foreach(@deletedtels) {print OUTFILE "$_\n";}
print OUTFILE "Modified telephone numbers:\n";
foreach(@modifiedtels) {print OUTFILE "$_\n";}
print OUTFILE "Modified users:\n";
foreach(@modifiedusers) {print OUTFILE "$_\n";}
close(OUTFILE);

#write output to htm file
#html header
open(OUTHTM,">$outfilehtm");
print OUTHTM "<HTML>\n<BODY bgcolor=\"#9cc2e4\">\n";

#top table (title)
print OUTHTM "<table width=\"702\" cellpadding=\"1\" cellspacing=\"0\" bgcolor=\"#3F2DFF\">\n";
print OUTHTM "<tr><td>\n";
print OUTHTM "<table width=\"700\" cellspacing=\"1\" bgcolor=\"#D4D4FA\">\n";
print OUTHTM "<tr>\n";
print OUTHTM "<td align=\"left\" valign=\"top\"><a href=\"http://lofty\">home</a></td>\n";
print OUTHTM "<td align=\"center\">TNG Unicenter Service Desk\n";
print OUTHTM "B.E.I. Implementation by Synstar</td>\n";
print OUTHTM "<td align=\"right\" valign=\"top\"><a href = \"javascript:history.back()\">back</a></td>\n";
print OUTHTM "</tr>\n";
print OUTHTM "</table></td></tr></table>\n";

#content table (header)
print OUTHTM "<table width=\"702\" cellpadding=\"1\" cellspacing=\"0\" bgcolor=\"#3F2DFF\">\n";
print OUTHTM "<tr><td>\n";
print OUTHTM "<table width=\"700\" cellspacing=\"1\" bgcolor=\"#35A3D1\">\n";
print OUTHTM "<tr><td align=\"center\" bgcolor=\"#7EBEE4\" colspan=\"4\">ADDED USERS</td></tr>\n";
print OUTHTM "<tr bgcolor=\"#7EBEE4\">\n";
print OUTHTM "<td>Public Phone</td>\n";
print OUTHTM "<td>UserId</td>\n";
print OUTHTM "<td>First Name</td>\n";
print OUTHTM "<td>Last name</td>\n";
print OUTHTM "</tr>\n";
#detail lines
foreach(@addedtels)
{
 $kol1=substr($_,0,4);
 $kol2=substr($_,5,8);
 $kol6=substr($_,28,20);
 $kol7=substr($_,48);
 print OUTHTM " <tr>\n";
 print OUTHTM " <td>$kol1</td>\n";
 print OUTHTM " <td>$kol2</td>\n";
 print OUTHTM " <td>$kol7</td>\n";
 print OUTHTM " <td>$kol6</td>\n";
 print OUTHTM " </tr>\n";
}
print OUTHTM "<tr><td> </td></tr>";
print OUTHTM " <tr><td align=\"center\" bgcolor=\"#7EBEE4\" colspan=\"4\">DELETED USERS</td></tr>\n";
print OUTHTM " <tr bgcolor=\"#7EBEE4\">\n";
print OUTHTM " <td>Public Phone</td>\n";
print OUTHTM " <td>UserId</td>\n";
print OUTHTM " <td>First Name</td>\n";
print OUTHTM " <td>Last name</td>\n";
print OUTHTM " </tr>\n";
foreach(@deletedtels)
{
 my $kol1=substr($_,0,4);
 my $kol2=substr($_,5,8);
 my $kol3=substr($_,14,4);
 my $kol4=substr($_,19,3);
 my $kol5=substr($_,23,4);
 my $kol6=substr($_,28,15);
 my $kol7=substr($_,43);
 print OUTHTM " <tr>\n";
 print OUTHTM " <td>$kol1</td>\n";
 print OUTHTM " <td>$kol2</td>\n";
 print OUTHTM " <td>$kol7</td>\n";
 print OUTHTM " <td>$kol6</td>\n";
 print OUTHTM " </tr>\n";
}
print OUTHTM "<tr><td> </td></tr>";
print OUTHTM " <tr><td align=\"center\" bgcolor=\"#7EBEE4\" colspan=\"4\">MODIFIED TELEPHONE NUMBERS</td></tr>\n";
print OUTHTM " <tr bgcolor=\"#7EBEE4\">\n";
print OUTHTM " <td>Public Phone</td>\n";
print OUTHTM " <td>UserId</td>\n";
print OUTHTM " <td>First Name</td>\n";
print OUTHTM " <td>Last name</td>\n";
print OUTHTM " </tr>\n";
foreach(@modifiedtels)
{
 $kol1=substr($_,0,4);
 $kol2=substr($_,5,8);
 $kol6=substr($_,28,20);
 $kol7=substr($_,48);
 print OUTHTM " <tr>\n";
 print OUTHTM " <td>$kol1</td>\n";
 print OUTHTM " <td>$kol2</td>\n";
 print OUTHTM " <td>$kol7</td>\n";
 print OUTHTM " <td>$kol6</td>\n";
 print OUTHTM " </tr>\n";
}
print OUTHTM "<tr><td> </td></tr>";
print OUTHTM " <tr><td align=\"center\" bgcolor=\"#7EBEE4\" colspan=\"4\">MODIFIED USERS</td></tr>\n";
print OUTHTM " <tr bgcolor=\"#7EBEE4\">\n";
print OUTHTM " <td>Public Phone</td>\n";
print OUTHTM " <td>UserId</td>\n";
print OUTHTM " <td>First Name</td>\n";
print OUTHTM " <td>Last name</td>\n";
print OUTHTM " </tr>\n";
foreach(@modifiedusers)
{
 $kol1=substr($_,0,4);
 $kol2=substr($_,5,8);
 $kol6=substr($_,28,20);
 $kol7=substr($_,48);
 print OUTHTM " <tr>\n";
 print OUTHTM " <td>$kol1</td>\n";
 print OUTHTM " <td>$kol2</td>\n";
 print OUTHTM " <td>$kol7</td>\n";
 print OUTHTM " <td>$kol6</td>\n";
 print OUTHTM " </tr>\n";
}
print OUTHTM "<tr><td> </td></tr>";
print OUTHTM "</table>\n";
print OUTHTM "</td></tr>\n";
print OUTHTM "</table>\n";
#bottom table (BACK button)
print OUTHTM "<table width=\"702\" cellpadding=\"1\" cellspacing=\"0\" bgcolor=\"#3F2DFF\">\n";
print OUTHTM "<tr><td>\n";
print OUTHTM "<table width=\"700\" cellspacing=\"1\" bgcolor=\"#D4D4FA\">\n";
print OUTHTM "<tr>\n";
print OUTHTM "<td><a href = \"javascript:history.back()\">Go back</a></td>\n";
print OUTHTM "<td align=\"right\"><a href = \"http://lofty/users/log/\">Go to LOG folder</a></td>\n";
print OUTHTM "</tr>\n";
print OUTHTM "</table>\n</tr></td>\n</table>\n";
#close HTML
print OUTHTM "</BODY>\n</HTML>\n";
close(OUTHTM);

#copy OUTHTM to logfile

@date = localtime();
$mday=$date[3];
$mon=$date[4];
$outfilehtmlog=sprintf("logvm%02d%02d.htm",++$mon,$mday);
copy ($outfilehtm, $outfilehtmlog);

#display info on screen
#print "Added users:\n";
#foreach(@addedtels) {print "$_\n";}
#print "Deleted users:\n";
#foreach(@deletedtels) {print "$_\n";}
#print "Modified telephone numbers:\n";
#foreach(@modifiedtels) {print "$_\n";}
#print "Modified users:\n";
#foreach(@modifiedusers) {print "$_\n”;}

Output screen

Batch-file on Lofty

# Written by Daniel Paessens (Synstar Coe)
# version: 0.1
# Filename: vmcomp.sh
# File location: /opt/script

cd /opt/script/VMComp
cp -f /opt/script/VMTEL.TXT /opt/script/VMComp/vmtel_new.txt

perl /opt/script/VMComp/vmtelcomp.pl

cp -f /opt/script/VMComp/vmtelcomp.htm /var/www/html/users/vmtelcomp.htm

cp -f /opt/script/VMComp/vmtel_new.txt /opt/script/VMComp/vmtel_old.txt
cp -f /opt/script/VMComp/logvm*.htm /var/www/html/users/log/logvm*.htm
rm /opt/script/VMComp/logvm*.htm –f

Top

USD 5.5.1 Implementation	Powered By Ega's Inc
USD 5.5.1 Implementation	Last updated: 2009-07-10

	Home \| Table of Contents \| Overview Map \| Icon Legend
	USD 5.5.1 implementation
	Daniel Paessens ega@paessens.org