#!/usr/athena/bin/perl # # Modified from the original SIPB Zwrite CGI, for HDML support # Rex Min, December 1999 unshift (@INC, '/var/www/cgi-bin/lib'); require 'zsend.pl'; require 'parseform.pl'; $query=$ENV{'QUERY_STRING'}; $hdml= ($ENV{'HTTP_USER_AGENT'} =~ /UP\.Link/); if ($hdml) { print("Content-Type: text/x-hdml\n\n"); } else { print("Content-Type: text/html\n\n"); } if($query){ &send_zwrite($query); } else{ &provide_form(); } sub provide_form { if ($hdml) { print < PCS Zephyr Fr: [\$zf] To: [\$zt] Msg: [\$zb] Zlocate \$zt Zephyr From: Zephyr To: Message: EndOfForm } else { #### original HTML CODE print <Zwrite Form

Zwrite

Note, you should zlocate the user you want to send to, to assure they are logged in. EndOfForm } } sub send_zwrite { local($info) = @_; %resp = &parseform($info); $host = "stuff.mit.edu"; $resp{'to'} = "mkgray" unless $resp{'to'}; $zsend'localaddr = ((gethostbyname("$host"))[4]); @zsend'zhmaddr = unpack("C4",$zsend'localaddr); foreach $person (split(' ', $resp{'to'})){ $_ = &zsend'zpacket(undef, # figure out uid "message", "personal", "", # opcode "$resp{'from'} via SIPB www-zephyr gateway", "$person", "message from \$sender\n\$signature\n\$message", "From user at $ENV{'REMOTE_ADDR'}", "$resp{'body'}\n_________________________________________________\n\@i(This zephyr sent via the SIPB WWW-zephyr gateway\nat http://stuff.mit.edu/zwrite. Problems/comments\nshould be sent to stuffmaster\@mit.edu)"); &zsend'zsend($_); if ($hdml) { print("Your message has been sent."); } else { print("Your message has been sent
\n"); } } } 1;