\n ". " "; echo "

".$names[$i].""; if (!$free) echo " Price: USD ".$prices[$i]." \n"; echo "\n"; } if (!$free) echo " \n"; echo "

"; $select=$select."\n ". "\n"."\n"; return $select; } //makeanoffer $db = SQLconnect($host, $sql); # ----------------------------------------------------- Access permit if ($user_email != "" && $user_passwd != ""){ $cmd = "SELECT user_nbr,admin_service FROM users WHERE ". "(user_email='" .filter_1quote($user_email)."' AND ". " user_passwd='".filter_1quote($user_passwd)."');"; $r=SQLquery($db,$cmd); if(SQLnumrows($r)==1){ $user_nbr=SQLresult($r,0,'user_nbr'); $admin_service=SQLresult($r,0,'admin_service'); $CEMCookie = $user_nbr*1071911; setcookie("CEMCookie", $CEMCookie, time()+10*60); $cmd="SELECT tch_auth from teachers WHERE user_nbr='".$user_nbr."';"; $r=SQLquery($db,$cmd); if(SQLnumrows($r)==1) { # administrator access $tch_auth=SQLresult($r,0,'tch_auth'); } else { $tch_auth=0; } } else { myheader('Download: login failed','..',0); echo "Sorry, your e-mail / password pairs do not match those of any registered user. Please try again."; $user_nbr=99; $admin_service=0; $tch_auth=0; thisFooter(); exit; } } else if (isset($CEMCookie)) { $user_nbr = $CEMCookie / 1071911; $cmd="SELECT tch_auth from teachers WHERE user_nbr='".$user_nbr."';"; $r=SQLquery($db,$cmd); if(SQLnumrows($r)==1) { # administrator access $tch_auth=SQLresult($r,0,'tch_auth'); } else { $tch_auth=0; } } # ----------------------------------------------------- Download if (isset($CEMCookie) && isset($file)) { $item=substr($file,0,3); $file=substr($file,4,strlen($file)-3); $cmd="SELECT count FROM download WHERE user_nbr=$user_nbr AND item=$item;"; $r=SQLquery($db,$cmd); if(SQLnumrows($r) != 0){ $count=SQLresult($r,0,'count'); $cmd="UPDATE download SET count='".($count+1)."', last='today', ". "type='$file' WHERE user_nbr=$user_nbr AND item=$item;"; } else { # Assume that permission ok $cmd="INSERT INTO download (user_nbr,item,type,last) ". "VALUES ($user_nbr,$item,'".$file."','now');"; } SQLquery($db,$cmd); if ($file=='PLA/SPM Single Particle Motion (UNIX tar.gz)') { header("Content-type: application/x-gzip"); header("Content-Disposition: attachment; filename=spm.tar.gz"); header("Content-Description: Matlab source code (UNIX tar.gz)"); $cmd="cat ../downld/spm.tar.gz"; passthru($cmd); } else if ($file=='PLA/SPM Single Particle Motion (WIN zip)') { header("Content-type: application/zip"); header("Content-Disposition: attachment; filename=spm.zip"); header("Content-Description: Matlab source code (WIN zip)"); $cmd="cat ../downld/spm.zip"; passthru($cmd); } else if ($file=='PLA/SPM Single Particle Motion (ASCII)') { header("Content-type: text/plain"); header("Content-Disposition: attachment; filename=spm.m"); header("Content-Description: Matlab source code (ASCII)"); $cmd="cat ../downld/spm/spm.m ../downld/spm/eqMotion.m ../downld/spm/data.m"; passthru($cmd); } else if ($file=='PLA/DSPRL Dispersion relation (UNIX tar.gz)') { header("Content-type: application/x-gzip"); header("Content-Disposition: attachment; filename=dsprl.tar.gz"); header("Content-Description: Matlab source code (UNIX tar.gz)"); $cmd="cat ../downld/dsprl.tar.gz"; passthru($cmd); } else if ($file=='PLA/DSPRL Dispersion relation (WIN zip)') { header("Content-type: application/zip"); header("Content-Disposition: attachment; filename=dsprl.zip"); header("Content-Description: Matlab source code (WIN zip)"); $cmd="cat ../downld/dsprl.zip"; passthru($cmd); } else if ($file=='PLA/DSPRL Dispersion relation (ASCII)') { header("Content-type: text/plain"); header("Content-Disposition: attachment; filename=dsprl.m"); header("Content-Description: Matlab source code (ASCII)"); $cmd="cat ../downld/dsprl/dsprl.m"; passthru($cmd); } else if ($file=='PLA/PIC Particle in cell simulation (UNIX tar.gz)') { header("Content-type: application/x-gzip"); header("Content-Disposition: attachment; filename=pic.tar.gz"); header("Content-Description: Matlab source code (UNIX tar.gz)"); $cmd="cat ../downld/pic.tar.gz"; passthru($cmd); } else if ($file=='PLA/PIC Particle in cell simulation (WIN zip)') { header("Content-type: application/zip"); header("Content-Disposition: attachment; filename=pic.zip"); header("Content-Description: Matlab source code (WIN zip)"); $cmd="cat ../downld/pic.zip"; passthru($cmd); } else if ($file=='PLA/PIC Particle in cell simulation (ASCII)') { header("Content-type: text/plain"); header("Content-Disposition: attachment; filename=pic.m"); header("Content-Description: Matlab source code (ASCII)"); $cmd="cat ../downld/pic/pic.m"; passthru($cmd); } exit(); } # ----------------------------------------------------- Select software if (!isset($register) && !isset($login)) { myheader('Download: select','..',0); echo "Here is the list of software ready for download."; if (!$free && $user_nbr<100) { echo " To proceed, you need to accept the general conditions that govern the usage of this educational website. You may then proceed with your credit-card payment using the secured PayPal method simply by pressing one of the buttons below. A password will be sent to you by e-mail after registration to complete the download. "; } if (!$free && $admin_service>=2) { echo " To avoid any delay, the selector automatically gives you access to the entire library. In return, we hope that you will spontaneously pay any additional software you choose to download without obliging us to send you an invoice manually."; } echo " Students from the Royal Institute of Technology and Chalmers can download the software free of charge after registration provided that their computer is located within the school intranet."; $selectSoftware=makeanoffer($db,$user_nbr,$url,$free); if ($user_nbr>99) echo $selectSoftware; if (!$free) { echo " Please contact André Jaun if you experience any difficulty."; } else { $register=f; } } # ----------------------------------------------------- Admin if ($tch_auth>=4) { list ($total,$items,$prices,$names,$lbls)=products(0); $auth="

Administrator: edit permissions

". "By default, Paypal users get access to the entire catalogue: this ". "right is destroyed as soon as you submit the permissions below.". "

\n". "\n". "\n". " store
"; for ($i=0; $i<$total; $i++) { # Show/edit permissions $auth=$auth." ".$names[$i]." ($count)
\n"; } $auth=$auth."

\n"; SQLclose($db); echo $auth; thisFooter(); exit; } // Admin # ----------------------------------------------------- Login form if (isset($login)) { myheader('Download: login','..',0); ?>
Note:An encrypted cookie will be submitted to your browser. To download the software, you need first to register and accept the general conditions that governs usage of the educational website. A password will immediately be sent to you by e-mail, allowing you to identify yourself and complete the download.

"; ?> \n"; ?> \n"; ?> \n"; ?>

	You must supply your full name!
Your (title and) full name¹:
	You must supply your email!
Your email¹:
Your ID / passport number²:
Your URL:
Your company/school²:
Your dept./section²:
Supervisor title + full name²:
Supervisor email²:
How did you spot this material?
Comments:	<?php echo $course_expect; ?>
Invoice / payment details:	<?php echo $admin_invoice; ?>	You must agree with the conditions!
I agree with the conditions¹	value=yes>
Do you want us to inform your supervisor about your registration²?	value=t>
We may publish your registration as a downloader of this material (your email will not be exposed)	value=t>

¹are required fields
²are optional this link to obtain a copy by email within a minute. "; thisFooter(); SQLclose($db); exit; } else { srand((double)microtime()*1000000); # Generate a new $passwd $randval=rand(); $user_passwd=""; for($i = 0; $i<5; $i++) $user_passwd = $user_passwd . chr(rand(97,122)); $user_grp="www".date("y")."-"; # User directory + web if(substr($user_url,0,7) != "http://" && $user_url != "") $user_url = "http://".str_replace("'", " ", $user_url); # Generate new db entry $cmd = "INSERT INTO users (" . " user_class" . ",user_grp" . ",user_require" . ",user_name" . ",user_passwd" . ",user_pers_nbr" . ",user_email" . ",user_url" . ",user_school" . ",user_dept" . ",user_publish" . ",user_announce" . ",super_name" . ",super_email" . ",super_inform" . ",course_find" . ",course_expect" . ",admin_invoice" . ",admin_price" . ",admin_payed" . ",admin_service" . ",admin_created" . ") values (" . " '".$user_class."'" . ",'".$user_grp."'" . ",'170'" . ",'".filter_1quote($user_name)."'". ",'".filter_1quote($user_passwd)."'". ",'".filter_1quote($user_pers_nbr)."'". ",'".filter_1quote($user_email)."'". ",'".filter_1quote($user_url)."'". ",'".filter_1quote($user_school)."'". ",'".filter_1quote($user_dept)."'". ",'".$user_publish."'" . ",'".filter_1quote($user_announce)."'". ",'".filter_1quote($super_name)."'". ",'".filter_1quote($super_email)."'". ",'".filter_1quote($super_inform)."'". ",'".filter_1quote($course_find)."'". ",'".filter_1quote($course_expect)."'". ",'".filter_1quote($admin_invoice)."' ". ",'".$admin_price."'". ",'".$admin_payed."'". ",'".$admin_service."'". ",'today'". ");"; $r=SQLquery($db,$cmd); # Mail the new password $mail = "Dear ".$user_name.",\n". "Thank you for registering as a downloader of course material\n". " Introduction to Plasma Physics with Applications\n". " http://www.lifelong-learners.com/pla\n". "which you should bookmark in your browser. You may now login\n". "using your email and the password ".$user_passwd."\n". "which cannot be modified and should remain secret.\n". "Your Webmaster"; mail($user_email, "Password", $mail, "From: webmaster@$SERVER_NAME\n" . "Reply-To: jaun@kth.se\n" . "X-Mailer: PHP/" . phpversion()); if($super_inform=="t") { $mail = "Dear ".$super_name."\n". "I have the pleasure to inform you that ".$user_name."\n". "has registered as a downloader of course material under\n". " Introduction to Plasma Physics with Applications\n". " http://www.lifelong-learners.com/pla\n". "The educational material consist of a number of Matlab scripts\n". "that illustrate a number of phenomena using numerical simulations.\n". "Please don't hesitate to contact me if you have any question.\n". "Thanking you very much for your time, I look forward to following\n". $user_name."'s rapid progress!\n\n". "Sincerely yours,\n". "Andre Jaun\n". "Associate Professor at the Royal Institute of Technology in Stockholm"; mail($super_email, $user_name."'s registration", $mail, "From: webmaster@$SERVER_NAME\n" . "Reply-To: jaun@kth.se\n" . "X-Mailer: PHP/" . phpversion()); mail("jaun@kth.se", "PLA new downloader", $cmd, "From: webmaster@$SERVER_NAME\n" . "Reply-To: jaun@kth.se\n" . "X-Mailer: PHP/" . phpversion()); } echo " Thank you for registering on this Website; a password has been sent to you by electronic mail. Using your e-mail/password pair, you may now login and download the requested software."; if (!$free && !isset($paid)) echo " Please allow for a couple of days to process your order and contact jaun@kth.se if you encounter any difficulty."; } } // register new user }// registration SQLclose($db); thisFooter(); ?>

User ID (email):
Password:
	Register as a new downloader, or ask for an e-mail reminder.