#!/usr/bin/perl # $Id: personell.pl,v 1.17 1995/03/15 07:49:01 aas Exp $ BEGIN { $| = 1; print < SNs ansatte EOT $| = 0; } $ME = "/sn/a/finn.cgi"; $TOP = "/home/steinar/frogner"; $DB = "ansatte.db"; $IMAGE_PRE = "/sn/a/img"; $IMAGE_DIR = "$TOP$IMAGE_PRE"; $IMAGE_ICON = "/sn/a/photo.gif"; %AVD = ( ADM => 'Administrasjon', PROFF => 'Profesjonelle tjenester', PRIVAT => 'Privatmarked', NETT => 'Nettverk', UTV => 'Utvikling', SUPPORT => 'Kundeservice', ); use CGI::Query; use URI::Escape; $searchexp = $query{isindex}; unless (defined $searchexp and length $searchexp) { form(); sn(); exit; } # Let's construct a seach routine $code = ""; for (split(' ', $searchexp)) { $ignorecase = (/^[A-ZÆØÅ]+$/ ? "" : "i"); $code .= " /\Q$_\E/$ignorecase and\n"; } $code = "sub found {\n$code 1;\n}\n"; $code = "sub found { 1; }\n" if $searchexp eq "ALLE"; # print $code; # useful while debugging eval $code; die $@ if $@; # Do the searching open(DB, $DB) || die "Database not found"; @res = (); $/ = ''; # one paragraph at a time while () { next if /^#/; push(@res, $_) if found(); } close(DB); if (!@res) { print "Ingen personer som tilfredstiller '$searchexp' ble funnet\n"; form(); } elsif (@res > 3) { form(); print "\n"; print "\n"; $no = 0; for (@res) { print "\n"; } print "

	Navn	Epost
", join("	", ++$no, short()), "

\n"; } else { form(); for (@res) { print full(@res < 2); } } sn(); print "

Oppdatert " . dbmod() . "\n"; print "\n"; exit; sub dbmod { # return DB modification time as a formatted string my($modd,$modm,$mody) = (localtime((stat($DB))[9]))[3,4,5]; $modm++; $mody += 1900; "$modd/$modm-$mody"; } sub form { # print search form print < Personsøk: EOT } sub sn { print <

Schibsted Nett AS
Gjerdrumsvei 11, 0486 OSLO
Postboks 1178 Sentrum, 0107 OSLO
Telefon 22 02 01 10, Telefax 22 02 09 77 EOT } sub short { parse_entry($_); my $ref = uri_escape(lc("$E{EN}+$E{FN}")); $ref = "$ME?$ref"; my $mail = ""; if (defined $E{E}) { $mail = qq($E{E}); } (qq($E{EN}, $E{FN}), $mail); } sub full { # full presentation my($showphoto) = shift; parse_entry($_); passwd_info(); my @P = (); my($navn) = "$E{FN} $E{EN}"; # Check to see if this person has its own home page location if ($E{HOME} && -d "$E{HOME}/www_docs") { $navn = qq($navn); } push(@P, "

$navn"); # Try to locate images my($img,$gif,$jpg); $img = "$E{FN}_$E{EN}"; $img =~ tr/ ./__/; $img =~ s/_+/_/g; $gif = uri_escape("$IMAGE_PRE/$img.gif") if -f "$IMAGE_DIR/$img.gif"; $jpg = uri_escape("$IMAGE_PRE/$img.jpg") if -f "$IMAGE_DIR/$img.jpg"; $jpg = $gif unless $jpg; $showphoto = 0 unless $gif; if ($gif || $jpg) { push(@P,"

") if $showphoto; $gif = $IMAGE_ICON if !$showphoto; push(@P, " ") if $jpg && $jpg ne $gif; push(@P, " $\"(Foto)\"$ "); push(@P, "") if $jpg && $jpg ne $gif; push(@P, "") if !$showphoto; } else { push(@P, ""); } # Div opplysninger: @A = (["Navn", "$E{EN}, $E{FN}"], ["Tittel", $E{TI}], ["Stilling", $E{ST}], ["Avdeling", $AVD{$E{AVD}} || $E{AVD}], ); if ($E{E}) { push(@A, ["Epost", qq($E{E})]); } push(@A, ["Telefon", phone($E{KT})]); push(@A, ["Mobil", phone($E{MT})]); if ($E{PA} || $E{PT}) { my $priv = ""; $priv .= $E{PA} if defined $E{PA}; if ($E{PT}) { $priv .= ", Tel.: " if length $priv; $priv .= phone($E{PT}); } push(@A, ["Privat", $priv]); } #push(@A, ["Skall", $E{SHELL}]); push(@P, ""); for (@A) { next unless defined $_->[1]; next unless length $_->[1]; push(@P, ""); } push(@P, "

$_->[0]:

$_->[1]

"); join("\n", @P); } sub parse_entry { %E = (); for (split(/\n/, $_[0])) { my($key,$val) = /^(\w+)\s*:\s*(.*)/; next unless defined $key; $val =~ s/\s+$//; $E{$key} = $val; } $E{E} = "$E{UID}\@a.sn.no" if !$E{E} && $E{UID}; } sub passwd_info { my $uname = $E{UID}; return unless defined $uname; my @a = getpwnam($uname); return unless @a; shift(@a); # don't need name (@E{'PASSWD','UID#', 'GID#', 'QUOTA', 'COMMENT', 'GCOS', 'HOME', 'SHELL'}) = @a; } sub phone # reformat a phone number { my $in = shift; return undef unless defined $in; if ($in =~ /^[\d\s]+$/ && length($in) == 8) { $in =~ s/\s+//g; if ($in =~ /^(9\d\d)(\d\d)(\d{3})$/) { $in = "$1 $2 $3"; } elsif ($in =~ /^(\d\d)(\d\d)(\d\d)(\d\d)$/) { $in = "$1 $2 $3 $4"; } } elsif ($in =~ /,/) { # if we find a comma, then we reformat each path $in = join(", ", map phone($_), split(/,\s*/, $in)); } $in; }