Changeset 13

Timestamp:

01/16/06 17:56:11 (3 years ago)

Author:

orion

Message:

trying for more browser compatibility with sarissa

Files:

• trunk/agree.pl (modified) (6 diffs)
• trunk/email.html (added)
• trunk/lincoln-thanksgiving.xml (modified) (1 diff)
• trunk/rt-test.pl (modified) (5 diffs)
• trunk/sarissa.js (added)
• trunk/sarissa_dhtml.js (added)
• trunk/sarissa_ieemu_xpath.js (added)
• trunk/sarissa_ieemu_xslt.js (added)
• trunk/searchhi.js (modified) (3 diffs)
• trunk/selectxpath.xsl (modified) (3 diffs)
• trunk/stet-debug.css (added)
• trunk/stet-devel.js (added)
• trunk/stet-newhl.js (added)
• trunk/stet-nodebug.js (added)
• trunk/stet-quickerhl.js (added)
• trunk/stet-quickhl.js (added)
• trunk/stet-safe.js (added)
• trunk/stet-sarissa.js (added)
• trunk/stet-submit.pl (modified) (3 diffs)
• trunk/stet-withintense.js (added)
• trunk/stet.css (modified) (8 diffs)
• trunk/stet.js (modified) (32 diffs)
• trunk/stetsubs.pl (modified) (6 diffs)

trunk/agree.pl

@@ -45 +45 @@
-if (($name, $pass) = split(/:/, decode_base64(cookie('__ac')))) {
-     $name =~ s/\"//g;
-"http://gplv3.fsf.org:8800/launch/acl_users/Users/acl_users"
+'http://stet_auth:fai1Iegh@gplv3.fsf.org:8800/launch/acl_users/Users/acl_users'
-                                    username => "stet_auth",
-                                    password =>  "fai1Iegh");
@@ -71 +71 @@
-#print Dumper($values);
-#print "ticket has ".$values->count." customfieldvalues\n";
-
+
+
-    ($bool, $message) = $Ticket->DeleteCustomFieldValue(Field => "7", Value => $name);
-    $agreebool = "unagree";
@@ -78 +79 @@
-
-else {
-
-
-
+
+
+
+
+
-}
+if (!$agreebool) { $agreebool = "stop it"; }
-# }
-# }
@@ -94 +98 @@
-
-# if (${$resp} == 0) {
+if ($agreebool =~ /agree/) {
-print header('text/xml');
-
@@ -100 +105 @@
- <response>
-  <agreement>
+    <cs>You now $agreebool with <a href="/comments/rt/readsay.html?id=$id">$id</a>.  <a href=\"/rt/NoAuth/changeshown.html\">change shown comments</a></cs>
-    <id>$id</id>
-    <b>$agreebool</b>
@@ -106 +112 @@
-
-EOF
+}
+elsif ($agreebool =~ "stop it") {
+print header('text/xml');
+
+    print <<"EOF";
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+ <response>
+  <agreement>
+    <cs>Hmm, I'm confused about your agreement.  Try again later, or reload to toggle your opinion.  <a href=\"/rt/NoAuth/changeshown.html\">change shown comments</a></cs>
+    <id>$id</id>
+    <b>$agreebool</b>
+  </agreement>
+ </response>
+
+EOF
+}
+
-#}
-

trunk/lincoln-thanksgiving.xml

@@ -1 +1 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<?xml-stylesheet href="selectxpath.xsl" type="text/xsl" ?>
-annot
+gpl3
-
-<!-- $Id: lincoln-thanksgiving.xml 41 2005-12-13 21:35:10Z orion $ -->

trunk/rt-test.pl

@@ -26 +26 @@
-use lib '/usr/share/request-tracker3.4/lib/';
-use lib '/etc/request-tracker3.4/';
+use RT::Interface::CLI qw(CleanEnv GetCurrentUser GetMessageContent);
-
-use lib '/usr/share/request-tracker3.2/lib/';
-use lib '/etc/request-tracker3.2/';
-
-use MIME::Base64;
-use Frontier::Client;
-
-
-use RT::Interface::CLI qw(CleanEnv GetCurrentUser GetMessageContent);
-use RT::Interface::Web;
-
-use RT;
@@ -45 +37 @@
-use RT::CustomField;
-use Data::Dumper;
+my $CurrentUser = RT::Interface::CLI::GetCurrentUser();
+my $CustomFieldObj = RT::CustomField->new($CurrentUser);
+#my $Query= " Requestor.EmailAddress LIKE 'moglen' ";
+my $Query;
+ if(param()) {
-
-
-
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-$TicketObj->FromSQL($Query);
-%session = '';
-# as a result of next line, searches are *not* sticky.
-
-%ARGS = param();
-$TicketObj->Query();
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
-$count = $TicketObj->CountAll();
-print STDERR
+#print
-
-print header('text/xml');
@@ -118 +68 @@
-my $annotation;
-while (my $item = $TicketObj->Next) {
-    
+
-    my $Transactions = $item->Transactions;
-
-
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
-#
-#    my $Attachs = $item->TransactionObj->Attachments->First;
@@ -158 +84 @@
-# while (my $CustomField = $CustomFields->Next()) {
-# my $CustomFieldValues=$Ticket->CustomFieldValues($CustomField->Id);
-
-
+
-#    $returnme .= " <url>" . $item->FirstCustomFieldValue('NoteUrl') . "</url>\n";
-#    $returnme .= " <dompath>" . $item->FirstCustomFieldValue('NoteDomPath') . "</dompath>\n";
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
-          $returnme .= " <id>" . $item->id . "</id>\n";
-       
-
-STDERR Dumper($item
-
+  
+
+Dumper($content
+
-    }
-
@@ -184 +104 @@
-print $returnme;
-#print Dumper($TicketObj);
-
-# LimitByArgs adapted from $RT/lib/Interface/Web.pm's ProcessSearchQuery
-# (out of desperation)
-
-sub LimitByArgs {
-
-    # {{{ Limit priority
-    if ( param('ValueOfPriority') ne '' ) {
-        $TicketObj->LimitPriority(
-            VALUE    => param('ValueOfPriority'),
-            OPERATOR => param('PriorityOp')
-        );
-        debug('limiting by '.param('ValueOfPriority'));
-    }
-
-    # }}}
-    # {{{ Limit owner
-    if ( param('ValueOfOwner') ne '' ) {
-        $TicketObj->LimitOwner(
-            VALUE    => param('ValueOfOwner'),
-            OPERATOR => param('OwnerOp')
-        );
-        debug('limiting by '.param('ValueOfOwner'));
-    }
-
-    # }}}
-    # {{{ Limit requestor email
-     if ( param('ValueOfWatcher') ne '' ) {
-         my ($field, $property) = split(/\./,param('WatcherField'));
-         $TicketObj->LimitWatcher(
-#             TYPE     => $field,
-             VALUE    => param('ValueOfWatcher'),
-             OPERATOR => param('WatcherOp'),
-
-        );
-        debug('limiting by '.param('ValueOfWatcher'));
-    }
-
-    # }}}
-    # {{{ Limit Queue
-    if ( param('ValueOfQueue') ne '' ) {
-        $TicketObj->LimitQueue(
-            VALUE    => param('ValueOfQueue'),
-            OPERATOR => param('QueueOp')
-        );
-        debug('limiting by '.param('ValueOfQueue'));
-    }
-
-    # }}}
-    # {{{ Limit Status
-    if ( param('ValueOfStatus') ne '' ) {
-        if ( ref( param('ValueOfStatus') ) ) {
-            foreach my $value ( @{ param('ValueOfStatus') } ) {
-                $TicketObj->LimitStatus(
-                    VALUE    => $value,
-                    OPERATOR => param('StatusOp'),
-                );
-            }
-            debug('limiting by '.@{param('ValueOfStatus')}[0]);
-        }
-        else {
-            $TicketObj->LimitStatus(
-                VALUE    => param('ValueOfStatus'),
-                OPERATOR => param('StatusOp'),
-            );
-            debug('limiting by '.param('ValueOfStatus'));
-        }
-
-    }
-
-    # }}}
-    # {{{ Limit Subject
-    if ( param('ValueOfSubject') ne '' ) {
-            my $val = param('ValueOfSubject');
-        if (param('SubjectOp') =~ /like/) {
-            $val = "%".$val."%";
-        }
-        $TicketObj->LimitSubject(
-            VALUE    => $val,
-            OPERATOR => param('SubjectOp'),
-        );
-        debug('limiting by '.$val);
-    }
-
-    # }}}    
-    # {{{ Limit Dates
-    if ( param('ValueOfDate') ne '' ) {
-        my $date = ParseDateToISO( param('ValueOfDate') );
-        ARGS{'DateType'} =~ s/_Date$//;
-
-        if ( ARGS{'DateType'} eq 'Updated' ) {
-            $TicketObj->LimitTransactionDate(
-                                            VALUE    => $date,
-                                            OPERATOR => param('DateOp'),
-            );
-        }
-        else {
-            $TicketObj->LimitDate( FIELD => ARGS{'DateType'},
-                                            VALUE => $date,
-                                            OPERATOR => param('DateOp'),
-            );
-        }
-    }
-
-    # }}}    
-    # {{{ Limit Content
-    if ( param('ValueOfAttachmentField') ne '' ) {
-        my $val = param('ValueOfAttachmentField');
-        if (param('AttachmentFieldOp') =~ /like/) {
-            $val = "%".$val."%";
-        }
-        $TicketObj->Limit(
-            FIELD   => param('AttachmentField'),
-            VALUE    => $val,
-            OPERATOR => param('AttachmentFieldOp'),
-        );
-    }
-
-    # }}}   
-
- # {{{ Limit CustomFields
-
-    foreach my $arg ( keys %ARGS ) {
-        my $id;
-        if ( $arg =~ /^CustomField(\d+)$/ ) {
-            $id = $1;
-        }
-        else {
-            next;
-        }
-        next unless ( param($arg) );
-
-        my $form = param($arg);
-        my $oper = param->{ "CustomFieldOp" . $id };
-        foreach my $value ( ref($form) ? @{$form} : ($form) ) {
-            my $quote = 1;
-            if ($oper =~ /like/i) {
-                $value = "%".$value."%";
-            }
-            if ( $value =~ /^null$/i ) {
-
-                #Don't quote the string 'null'
-                $quote = 0;
-
-                # Convert the operator to something apropriate for nulls
-                $oper = 'IS'     if ( $oper eq '=' );
-                $oper = 'IS NOT' if ( $oper eq '!=' );
-            }
-            $TicketObj->LimitCustomField( CUSTOMFIELD => $id,
-                                                   OPERATOR    => $oper,
-                                                   QUOTEVALUE  => $quote,
-                                                   VALUE       => $value );
-        }
-    }
-
-
-}
-# {{{ sub ParseDateToISO
-
-=head2 ParseDateToISO
-
-Takes a date in an arbitrary format.
-Returns an ISO date and time in GMT
-
-=cut
-
-sub ParseDateToISO {
-    my $date = shift;
-
-    my $date_obj = RT::Date->new($session{'CurrentUser'});
-    $date_obj->Set(
-        Format => 'unknown',
-        Value  => $date
-    );
-    return ( $date_obj->ISO );
-}
-
-# }}}
-
-
-
-=cut
-
-# http://gplv3.fsf.org/stet/rt-test.pl?SearchId=new
-Query=
-Format=%27+++%3Cb%3E%3Ca+href%3D%22%2Frt%2FTicket%2FDisplay.html%3Fid%3D__id__%22%3E__id__%3C%2Fa%3E%3C%2Fb%3E%2FTITLE%3A%23%27%2C+%0D%0A%27%3Cb%3E%3Ca+href%3D%22%2Frt%2FTicket%2FDisplay.html%3Fid%3D__id__%22%3E__Subject__%3C%2Fa%3E%3C%2Fb%3E%2FTITLE%3ASubject%27%2C+%0D%0A%27__Status__%27%2C+%0D%0A%27__QueueName__%27%2C+%0D%0A%27__OwnerName__%27%2C+%0D%0A%27__Priority__%27%2C+%0D%0A%27__NEWLINE__%27%2C+%0D%0A%27%27%2C+%0D%0A%27%3Csmall%3E__Requestors__%3C%2Fsmall%3E%27%2C+%0D%0A%27%3Csmall%3E__CreatedRelative__%3C%2Fsmall%3E%27%2C+%0D%0A%27%3Csmall%3E__ToldRelative__%3C%2Fsmall%3E%27%2C+%0D%0A%27%3Csmall%3E__LastUpdatedRelative__%3C%2Fsmall%3E%27%2C+%0D%0A%27%3Csmall%3E__TimeLeft__%3C%2Fsmall%3E%27
-AndOr=AND
-AttachmentField=Subject
-AttachmentOp=LIKE
-ValueOfAttachment=
-QueueOp=%3D
-ValueOfQueue=
-StatusOp=%3D
-ValueOfStatus=
-ActorField=Owner
-ActorOp=%3D
-ValueOfActor=
-WatcherField=Requestor.Name
-WatcherOp=LIKE
-ValueOfWatcher=orion
-DateField=Created
-DateOp=%3C
-ValueOfDate=
-TimeField=TimeWorked
-TimeOp=%3C
-ValueOfTime=
-PriorityField=Priority
-PriorityOp=%3C
-ValueOfPriority=
-LinksField=HasMember
-LinksOp=%3D
-ValueOfLinks=
-idOp=%3C
-ValueOfid=
-%27CF.NoteSelection%27Op=LIKE
-ValueOf%27CF.NoteSelection%27=
-%27CF.NoteDomPath%27Op=LIKE
-ValueOf%27CF.NoteDomPath%27=
-%27CF.NoteUrl%27Op=LIKE
-ValueOf%27CF.NoteUrl%27=
-%27CF.NoteStartNodeId%27Op=LIKE
-ValueOf%27CF.NoteStartNodeId%27=
-%27CF.NoteEndNodeId%27Op=LIKE
-ValueOf%27CF.NoteEndNodeId%27=
-%27CF.NoteText%27Op=LIKE
-ValueOf%27CF.NoteText%27=
-%27CF.Agreeers%27Op=LIKE
-ValueOf%27CF.Agreeers%27=
-AddClause=Add
-Owner=RT%3A%3AUser-12
-Description=
-LoadSavedSearch=
-Link=None
-Title=
-Size=
-Face=
-OrderBy=id
-Order=ASC
-RowsPerPage=50

trunk/searchhi.js

@@ -1 @@
-
-
-
-
-
+
+
-** Copyright (c) 1997-2005 Stuart Langridge
-**
@@ -24 +21 @@
-/* http://www.kryogenix.org/code/browser/searchhi/ */
-/* Modified 20021006 to fix query string parsing and add case insensitivity */
+/*    Modified-On-Behalf-of-SFLC-By: Orion Montoya <orion@mdcclv.com>   */
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    }
-  }
-  if (node.nodeType == 3) { // text node
-      dump("node is "+node.nodeName+"\n");
-    if (!haveHighlighted) {
-      dump("haven't highlighted\n");
-    paragraph = node.parentNode.parentNode;
-    paragraphString = (new XMLSerializer).serializeToString(paragraph);
-    paragraphString.replace(/\s+/g,' ');
-    tempNodeVal = paragraphString;
-    tempWordVal = word;
-    tempWordVal = tempWordVal.replace(/\W+/g,'[\\W\\s]+(<[^>]+>)?');
-
-        var re = new RegExp(tempWordVal, 'mi');
-        //    var re = new RegExp("software", 'mig');
-    dump("re is "+re+"\n");
-            tooltipString = (new XMLSerializer).serializeToString(tooltip);
-            var ticketLink = rtid ? '<a href="/rt/Ticket/Display.html?id='+rtid+'">[+]</a>' : '[reload for ticket link]';
-
-    paragraphString = paragraphString.replace(re,'<span class="highlight">$&<span class="annotation">'+tooltipString+ticketLink+' </span></span>');
-    //     dump("replaced on "+$&+"\n");
-    dump("pString is now "+paragraphString+"\n");
-    node.parentNode.parentNode.innerHTML = paragraphString;
-    
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        //if (tempNodeVal.indexOf(tempWordVal) != -1) {
-
+//
-        pn = node.parentNode;
-//     
+
-          // word has not already been highlighted!
-          //                            nv = escape(node.nodeValue);
-paragraphString
+node.nodeValue
-          //ni = tempNodeVal.indexOf(tempWordVal);
-          // Create a load of replacement nodes
@@ -78 +68 @@
-          hiwordtext = document.createTextNode(docWordVal);
-          hiword = document.createElement("span");
-
-
-
-
-
-
-
+
+
+
-          hiword.appendChild(hiwordtext);
-          if (tooltip) {
-            annote = document.createElement("span");
-            annote.className = "annotation";
-
-
-
-
-
-
+
-            annote.appendChild(annoteText);
-            //      annote.appendChild(tooltipString);
-            annote.appendChild(linkToTkt);
-            hiword.appendChild(annote);
-          }
-          dump(before);
-          //      pn.innerHTML="";
-          pn.insertBefore(before,node);
-          pn.insertBefore(hiword,node);
-          pn.insertBefore(after,node);
-          pn.removeChild(node);
+          haveHighlighted = true;
+        }
+        else if (pn.className == "noteLive") {
+          pn.setAttribute("class","highlight");
+        }
+        }
-      }
-
+
+
+
+
+
-
-          //    }
-          //    else if (pn.className == "noteLive") {
-          //      pn.setAttribute("class","highlight");
-          //    }
-        }
-  }
-}
-
-
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

trunk/selectxpath.xsl

@@ -33 +33 @@
-        <title><xsl:value-of select="//head/title"/></title>
-        <script type="text/javascript" src="stet.js"/>
+        <script type="text/javascript" language="javascript">
+window.onload = initPage();
+</script>
+
-        <link rel="stylesheet" type="text/css" href="stet.css"/>
-      </head>
-      <body onkeypress="checkKeyPressed(event);" bgcolor="#FFFFFF">
-<div id="topbar" class="topbar">
-.  You may need to email your comments
+ yet.  You may need to <a href="/comments/email.html">email your comments</a>
-          <span id="login" class="login"></span>
-</div>
+      <div class="portlet" id="portlet-dogear">
+        <div class="portletBody">
+          <img alt="" src="http://gplv3.fsf.org/dogear.png" />
+        </div>
+      </div>
+
+   <h1 id="portal-logo">
+     <a href="http://gplv3.fsf.org" accesskey="1">GPLv3</a>
+</h1>
+
+    <ul id="portal-globalnav">
+        <li class="plain">
+            <a href="http://gplv3.fsf.org">Home</a></li>
+        <li class="selected">
+            <a href="http://gplv3.fsf.org/comments/">Comments</a></li>
+        <li class="plain">
+            <a href="http://gplv3.fsf.org/wiki/">Wiki</a></li>
+        <li class="plain">
+            <a href="http://gplv3.fsf.org/press">Press</a></li>
+    </ul>
+
+<ul id="portal-personaltools">
+</ul>
+          
+
+
-        <div id="maintext">
-          <xsl:apply-templates/>
@@ -58 +88 @@
-
-  <xsl:template match="//head">
-p id="title.0"><sent id="title.0.0"><h1><xsl:value-of select="title"/></h1></sent></p
+h1><p id="title.0"><sent id="title.0.0"><xsl:value-of select="title"/></sent></p></h1
-    <p id="title.1"><sent id="title.1.0"><xsl:value-of select="pubdate"/></sent></p>
-    <p id="status.0"><sent id="status.0.0"><strong><xsl:value-of select="status"/></strong></sent></p>
@@ -84 +114 @@
-  <xsl:template match="//body">
-    <p><a href="javascript:XpathSel()">select some text and then type "c" to submit comments.</a></p>
-
-<!--    <p><strong>Notes 2006-01-04</strong> I've broken through a few logjams that have been preventing many comments from displaying, and I'm glad to have exposed several other problems with my method for inserting these comments, but also to see all the comments that have been made so far.  The current implementation was already a plan B, and so now I need a plan C.  Also I see many of the &lt;em&gt; are not being closed.</p>
-
-        <p><strong>Notes 2006-01-06</strong>
-        <ul>
-        <li>You can now agree with a comment, or once you've agreed you may revoke your agreement if you change your mind.</li>
-        <li>Comments are now excerpted if they're long.  Toggle them by clicking anywhere on them, or on the [+]</li>
-        <li>agreement/disagreement/ticketlink are all behind the [+] now</li>
-        <li>Comments now ask you to put a subject or summary: a change in presumption, from presuming brevity to presuming lengthiness.</li>
-        </ul>
-        </p>
-
-    <p>Also, you now need to be <a href="http://gplv3.fsf.org:8800/launch/login_form">logged in</a> to the main gplv3.fsf.org site in order to make comments.  Alert box to this effect coming soon.</p>
-
--->
-<!--    <p>Toggle display of <a href="javascript:toggle('add')">additions</a> | <a href="javascript:toggle('del')">deletions</a> [none yet on these documents]</p> -->
-
-    <xsl:for-each select="section">
-      <h3><xsl:value-of select="title"/></h3>
-      <section id="{@id}" name="{@id}">
+       <p class="sectTitle" id="{@id}.0"><sent id="{@id}.0.0"><xsl:value-of select="title"/></sent></p>
+       <p class="sectTitle sub" id="{@id}.0.0.0"><sent id="{@id}.0.0.0.0"><xsl:value-of select="subtitle"/></sent></p>
-        <xsl:for-each select="p">
-          <p id="{@id}" name="{@id}">

trunk/stet-submit.pl

@@ -26 +26 @@
-use Data::Dumper;
-
-use MIME::Base64;
-use Frontier::Client;
-
-use lib '/usr/share/request-tracker3.2/lib';
-use lib '/usr/share/request-tracker3.2/libexec';
-
-use lib '/usr/share/request-tracker3.4/lib';
-use lib '/usr/share/request-tracker3.4/libexec';
-
-#use RT::Interface::CLI;
-use RT;
-use RT::Ticket;
-use RT::CurrentUser;
-use RT::Queues;
-require "/var/www/stet/stetsubs.pl";
-RT::LoadConfig();
-RT::Init();
-
-print header('text/xml');
-
+my $returnme;
-if(param()) {
+    
+$url = param('NoteUrl');
+$dompath = param('DomPath');
+$selectedtext = param('Selection');
+$start = param('StartNode');
+$startid = param('StartNodeId');
+$end = param('EndNode');
+$endid = param('EndNodeId');
+$notetext = param('NoteText');
-
-$url = param('NoteUrl');
-
-$urlpath = $url;
-$urlpath =~ s/http:\/\/([^\/]+)(\/.*)\?/$2/;
-
-$url =~ s/.*\/([^\/]+)/$1/;
-
-$dompath = param('DomPath');
-$selectedtext = URI::Escape::uri_unescape(param('Selection'));
-$notesubj = URI::Escape::uri_unescape(param('NoteSubj'));
-# $start = param('StartNode');
-$startid = param('StartNodeId');
-# $end = param('EndNode');
-$endid = param('EndNodeId');
-$notetext = URI::Escape::uri_unescape(param('NoteText'));
-
-}
-
-our $name;
-my ($CurrentUser, $resp) = getUser();
-
-print STDERR "auth boolean for $name was $resp\n";
-if ($resp == 0) {
-
-print <<"EOF";
-<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<response>
- <cs>Your comment was not submitted because you could not be authenticated.  <a href=\"changeshown.html\">change query</a></cs>
- <annotation>
-  <u>Authentication error</u>
-  <i>$startid</i>
-  <e>$endid</e>
-  <n>Your comment was not saved.  You need to <a href="http://gplv3.fsf.org:8800/launch/login_form?came_from=$urlpath">login</a> in order to make comments.  The text of your comment was:<br/> <strong>Subject:</strong>$notesubj<br/>$notetext</n>
-  <s>$selectedtext</s>
-  <id>x</id>
-  <ua>x</ua>
-  <at>x</at>
- </annotation>
-</response>
-EOF
-}
-
-
-elsif ($resp == 1) {
-
-param('queue') ? $queue = param('queue') : $queue = "Inbox";
-
-#my $CurrentUser = RT::CurrentUser->new();
-#$CurrentUser->LoadByName($name);
-
-my $ThisQueue = RT::Queue->new($CurrentUser);
-  $ThisQueue->Load($queue);
-  if ($CurrentUser->HasRight( Right => 'SeeQueue', Object => $ThisQueue )) {
-      $realqueue = $queue;
-  }
-  else {
-      $realqueue = "Inbox";
-  }
-    
-my $returnme;
-$returnme .=  '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>'."\n";
-$returnme .= "<response>\n";
-
+
-$returnme .= "<annotation>\n";
-$returnme .= " <n>$notetext</n>\n";
@@ -116 +53 @@
-$returnme .= " <s>$selectedtext</s>\n"; 
-$returnme .= " <i>$startid</i>\n";
-# two more come after we submit to RT...
-
-
-#print STDERR ref($resp) ? $resp->value : "Error: $resp";
-
-#print STDERR Dumper($resp);
-
-
-
+#    print Dumper($content);
+
+}
+
+
+
+
+
+RT::LoadConfig();
+RT::Init();
+use RT::Ticket;
+use RT::CurrentUser;
+my $CurrentUser = RT::SystemUser();
+
-use MIME::Entity;
-
-print STDERR "stet-submit name is '$name'\n"
+  print STDERR "Have extra data '$j'\n" if $j
-  my $ticket = new RT::Ticket($CurrentUser);
-  my $ticket_body = MIME::Entity->build(Data => $notetext,
-                                       Type => 'text/plain');
-$realqueue
-notesubj
-#                      Owner => 'Nobody
-\$CurrentUser, #$name
-#
-#
+'General'
+selectedtext
+                      Owner => 'root
+'moglen@columbia.edu'
+
+
-                      MIMEObj => $ticket_body,
-                      'CustomField-1' => $selectedtext,
@@ -144 +89 @@
-                      'CustomField-5' => $endid,
-                      'CustomField-6' => $notetext,
-
-
+
-  my ($id, $transaction_object, $err) = $ticket->Create(%ticket_vals);
-  print STDERR $err . "\n" if $err;
-
-$returnme .= " <id>$id</id>\n";
-$returnme .= " <u>$name</u>\n";
-$returnme .= " <ua>unagree</ua>\n";
-  $returnme .= " <at>1</at>\n";
-
-$returnme .= "</annotation>\n";
-$returnme .= "</response>\n";
-print $returnme;
-
-
-}
-

trunk/stet.css

@@ -22 +22 @@
-/* along with this software.  If not, see <http://www.gnu.org/licenses/>. */
-
+body {
+    font: 94% Verdana, Lucida, Helvetica, Arial, sans-serif;
+}
-em.del { 
-      font-style: normal;
@@ -78 +81 @@
-    line-height: normal;
-}