The UP Manila Intranet Website

#!/usr/bin/perl use mysql2_1; use mydate; require('cgi-lib.pl'); &ReadParse; $todate = &StringDate; $noffset = $in{'nof'}; $coffset = $in{'cof'}; $index = $in{'in'}; $cindex = $in{'cin'}; $ndisplay = 1; # number of displayed network msgs $cdisplay = 18; # number of displayed community msgs $news = "network.txt"; $community = "community.txt"; $outlook = "outlook.txt"; $nofftemp = $noffset; $cofftemp = $coffset; $/ = "&break&"; print "Content-type: text/html\n\n"; print < The UP Manila Intranet Website

campus links:
HTML_MSG # $format=' &0&
'."\n"; PrintFile("campus.menu", "&col&", "\n", $format); print '

'."\n"; print ' informative links:
'."\n"; $format=~s/home/addressbook/g; PrintFile("informative.menu", "&col&", "\n", $format); print <

Visitor's counter: counter

Information Management Service
3/F Information Technology Complex, Science Hall, PGH
Tel. Number: 526-2265

Today is $todate

Network Announcements

HTML_MSG #------------------------- $format =' '."\n"; if($index ne "") { $ndisplay = 1; $noffset = &RecordCount($news) - $index; } PrintFileLimit($news, "&stop&", $/, $format, $ndisplay, $noffset); #------------------------- print <

&2&
&1&

&3&

Current Network Usage

(read the news archive) (return home)

Community Announcements

HTML_MSG #------------------------- $format =~ s/C9E4E4/E4E4E4/g; if($cindex ne "") { $cdisplay = 1; $coffset = &RecordCount($community) - $cindex; } PrintFileLimit($community, "&stop&", $/, $format, $cdisplay, $coffset); #------------------------- print <

(read the news archive) (return home )

//rico

by enrico agodilla | upm-ims | 2001 | powered by the upm-network | best viewed in 800x600 resolution HTML_MSG