#!/usr/bin/perl ############################################################# # Ikonboard v2.1 # Copyright 2000 Ikondiscussion.com - All Rights Reserved # Ikondiscussion is a trademark of Ikondiscussion.com # # Software Distributed by: Ikondiscussion.com # Visit us online at http://www.ikondiscussion.com # Email us on boards@ikondiscussion.com # # All files written by Matthew Mecham ############################################################# use CGI::Carp "fatalsToBrowser"; # Output errors to browser use CGI qw(:standard); # Saves loads of work $CGI::POST_MAX=1024 * 150; # limit post data $CGI::DISABLE_UPLOADS = 1; # Disable uploads eval { ($0 =~ m,(.*)/[^/]+,) and unshift (@INC, "$1"); ($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1"); require "ikon.lib"; # Require ikonboard () require "data/progs.cgi"; # Require prog names require "data/boardinfo.cgi";# Require board info require "data/styles.cgi"; # Require styles info require "ikonmail.lib"; # Require styles info }; if ($@) { print header(); print start_html(-title=>"$ibtxt{'0025'}"); print "$ibtxt{'0026'} $@\n$ibtxt{'0027'}"; print end_html; exit; } $|++; # Unbuffer the output #################--- Begin the program ---################### $thisprog = "profile.cgi"; $query = new CGI; &checkVALIDITY; $cookiepath = $query->url(-absolute=>1); $cookiepath =~ y/$thisprog//; $action = $query -> param('action'); $inmember = $query -> param('member'); $inmembername = $query -> param("membername"); $inpassword = $query -> param("password"); $oldpassword = $query -> param("oldpassword"); $action = &cleaninput("$action"); $inmember = &cleaninput("$inmember"); $inmembername = &cleaninput("$inmembername"); $inpassword = &cleaninput("$inpassword"); if (! $inmembername) { $inmembername = cookie("amembernamecookie"); } if (! $inpassword) { $inpassword = cookie("apasswordcookie"); } if ($inmembername eq "") { $inmembername = "$ibtxt{'0043'}"; } else { &getmemberstime("$inmembername"); } # Print the page title print header(-cookie=>[$namecookie, $passcookie]); &title; $output .= qq~
$boardname
$ibtxt{'0111'} |
|