source: trunk/gsdl/cgi-bin/usabcgi.pm@ 4090

package usabcgi;


sub get_config_info {
    open FILEIN, ("gsdlsite.cfg") or die "Could not open site configuration file\n";
    my $configfile;
    while(<FILEIN>) {
    $configfile .= $_;
    }
    close(FILEIN);

    
    ($infotype) = @_;
    
    $configfile =~ /$infotype\s+(\S+)\n/;
    $loc=$1;
    $loc =~ s/\"//g;
    return ($loc);
}

sub printscript {
    
    print "<script type=\"text/javascript\">\n";
    print "\tfunction showaboutprivacy(url){\n";
    print "\t\tinfowin=window.open(url,'infowin','toolbars=0, height=600, width=600')\n";
    print "\t}\n";
    print "</script>\n";
}

sub printaplinks {
    print "<p class=\"sans\">\n";
    print "<a href=\"javascript:showaboutprivacy('http://nzdl2.cs.waikato.ac.nz/dana/gsdl/about.html')\">About</a>\n &#8226; <a href=\"javascript:showaboutprivacy('http://nzdl2.cs.waikato.ac.nz/dana/gsdl/privacy.html')\">Privacy</a>\n";

}

sub printstyle {
    ($browser) = @_;
    $browser=~/([^\/]*)\/([0-9]+\.[0-9]+)/;
    if(($1 ne "Netscape")||($2 > 4.77)){
    print "<style type=\"text/css\">\n";
    print "\th1 {font-family: sans-serif; font-size: 20px}\n";
    print "\th2 {font-family: sans-serif; font-size: 14px; font-weight: bold; color: #009966}\n";
    print "\tp.sans {font-family: sans-serif}\n";
    print "\ttd.sans {font-family: sans-serif; width: 50%; vertical-align:top}\n";
    print "</style>\n";
    }

}




1;