Last change
on this file since 4090 was 4090, checked in by dana, 21 years ago |
mac compliance
|
-
Property svn:keywords
set to
Author Date Id Revision
|
File size:
1.4 KB
|
Rev | Line | |
---|
[4071] | 1 | package usabcgi;
|
---|
| 2 |
|
---|
| 3 |
|
---|
| 4 | sub get_config_info {
|
---|
| 5 | open FILEIN, ("gsdlsite.cfg") or die "Could not open site configuration file\n";
|
---|
| 6 | my $configfile;
|
---|
| 7 | while(<FILEIN>) {
|
---|
| 8 | $configfile .= $_;
|
---|
| 9 | }
|
---|
| 10 | close(FILEIN);
|
---|
| 11 |
|
---|
| 12 |
|
---|
| 13 | ($infotype) = @_;
|
---|
| 14 |
|
---|
| 15 | $configfile =~ /$infotype\s+(\S+)\n/;
|
---|
| 16 | $loc=$1;
|
---|
| 17 | $loc =~ s/\"//g;
|
---|
| 18 | return ($loc);
|
---|
| 19 | }
|
---|
| 20 |
|
---|
[4084] | 21 | sub printscript {
|
---|
| 22 |
|
---|
| 23 | print "<script type=\"text/javascript\">\n";
|
---|
| 24 | print "\tfunction showaboutprivacy(url){\n";
|
---|
| 25 | print "\t\tinfowin=window.open(url,'infowin','toolbars=0, height=600, width=600')\n";
|
---|
| 26 | print "\t}\n";
|
---|
| 27 | print "</script>\n";
|
---|
| 28 | }
|
---|
| 29 |
|
---|
| 30 | sub printaplinks {
|
---|
| 31 | print "<p class=\"sans\">\n";
|
---|
| 32 | print "<a href=\"javascript:showaboutprivacy('http://nzdl2.cs.waikato.ac.nz/dana/gsdl/about.html')\">About</a>\n • <a href=\"javascript:showaboutprivacy('http://nzdl2.cs.waikato.ac.nz/dana/gsdl/privacy.html')\">Privacy</a>\n";
|
---|
| 33 |
|
---|
| 34 | }
|
---|
| 35 |
|
---|
| 36 | sub printstyle {
|
---|
| 37 | ($browser) = @_;
|
---|
| 38 | $browser=~/([^\/]*)\/([0-9]+\.[0-9]+)/;
|
---|
| 39 | if(($1 ne "Netscape")||($2 > 4.77)){
|
---|
| 40 | print "<style type=\"text/css\">\n";
|
---|
| 41 | print "\th1 {font-family: sans-serif; font-size: 20px}\n";
|
---|
[4088] | 42 | print "\th2 {font-family: sans-serif; font-size: 14px; font-weight: bold; color: #009966}\n";
|
---|
[4084] | 43 | print "\tp.sans {font-family: sans-serif}\n";
|
---|
[4090] | 44 | print "\ttd.sans {font-family: sans-serif; width: 50%; vertical-align:top}\n";
|
---|
[4084] | 45 | print "</style>\n";
|
---|
| 46 | }
|
---|
| 47 |
|
---|
| 48 | }
|
---|
| 49 |
|
---|
| 50 |
|
---|
| 51 |
|
---|
| 52 |
|
---|
[4071] | 53 | 1;
|
---|
| 54 |
|
---|
| 55 |
|
---|
| 56 |
|
---|
| 57 |
|
---|
| 58 |
|
---|
| 59 |
|
---|
| 60 |
|
---|
| 61 |
|
---|
| 62 |
|
---|
| 63 |
|
---|
| 64 |
|
---|
| 65 |
|
---|
| 66 |
|
---|
| 67 |
|
---|
| 68 |
|
---|
| 69 |
|
---|
| 70 |
|
---|
| 71 |
|
---|
| 72 |
|
---|
| 73 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.