Helix SwarmHelix Swarm
Loading...

P4CGI.html

  • //
  • guest/
  • rick_richardson/
  • perforce/
  • utils/
  • p4db/
  • P4CGI.html #1
  • View
  • Commits
  • Open Download .zip Download (14 KB) 
  1.     <HTML> 
  2. 	<HEAD> 
  3. 	    <TITLE>P4CGI - Support for CGI's that interface p4. Written specifically for P4DB
  4.  
  5. </TITLE> 
  6. 	</HEAD>
  7.  
  8. 	<BODY>
  9.  
  10. <!-- INDEX BEGIN -->
  11.  
  12. <UL>
  13.  
  14. 	<LI><A HREF="#CONSTANTS">CONSTANTS</A>
  15. 	<UL>
  16.  
  17. 		<LI><A HREF="#Url_s">Url's</A>
  18. 		<LI><A HREF="#Data_file_update_scripts">Data file update scripts</A>
  19. 		<LI><A HREF="#Constants_for_Depot_Tree_Browser">Constants for Depot Tree Browser</A>
  20. 	</UL>
  21.  
  22. 	<LI><A HREF="#SUBROUTINES">SUBROUTINES</A>
  23. 	<UL>
  24.  
  25. 		<LI><A HREF="#P4CGI_cgi_">P4CGI::cgi()</A>
  26. 		<LI><A HREF="#P4CGI_p4call_I_result_I_comman">P4CGI::p4call(<EM>result</EM>,<EM>command</EM>)</A>
  27. 		<LI><A HREF="#P4CGI_start_page_I_title_I_le">P4CGI::start_page(<EM>title</EM>[,<EM>legend</EM>])</A>
  28. 		<LI><A HREF="#P4CGI_end_page_">P4CGI::end_page()</A>
  29. 		<LI><A HREF="#P4CGI_bail_I_message_">P4CGI::bail(<EM>message</EM>)</A>
  30. 		<LI><A HREF="#P4CGI_start_table_I_table_attri">P4CGI::start_table(<EM>table_attribute_text</EM>)</A>
  31. 		<LI><A HREF="#P4CGI_end_table_">P4CGI::end_table()</A>
  32. 		<LI><A HREF="#P4CGI_table_row_I_options_I_li">P4CGI::table_row(<EM>options</EM>,<EM>listOfValues</EM>)</A>
  33. 		<LI><A HREF="#P4CGI_ul_list_I_list_">P4CGI::ul_list(<EM>list</EM>)</A>
  34. 		<LI><A HREF="#P4CGI_dl_list_I_list_of_pairs_">P4CGI::dl_list(<EM>list_of_pairs</EM>)</A>
  35. 		<LI><A HREF="#P4CGI_valid_lockfile_I_file_">P4CGI::valid_lockfile(<EM>file</EM>)</A>
  36. 		<LI><A HREF="#P4CGI_create_lockfile_I_file_">P4CGI::create_lockfile(<EM>file</EM>)</A>
  37. 		<LI><A HREF="#P4CGI_fixSpecChar_I_str_">P4CGI::fixSpecChar(<EM>str</EM>)</A>
  38. 		<LI><A HREF="#P4CGI_ahref_I_options_I_parame">P4CGI::ahref(<EM>options</EM>,<EM>parameters</EM>,<EM>text</EM>)</A>
  39. 		<LI><A HREF="#P4CGI_magic_I_text_">P4CGI::magic(<EM>text</EM>)</A>
  40. 	</UL>
  41.  
  42. </UL>
  43. <!-- INDEX END -->
  44.  
  45. <HR>
  46. <P>
  47. <HR>
  48. <H1><A NAME="CONSTANTS">CONSTANTS
  49.  
  50. </A></H1>
  51. The constants are defined as perl subroutines.
  52.  
  53.  
  54. <P>
  55.  
  56. <P>
  57. <HR>
  58. <H2><A NAME="Url_s">Url's
  59.  
  60. </A></H2>
  61. <DL>
  62. <DT><STRONG><A NAME="item_P4CGI">P4CGI::MAIN_URL()
  63.  
  64. </A></STRONG><DD>
  65. Main entry point.
  66.  
  67.  
  68. <P>
  69.  
  70. <DT><STRONG><A NAME="item_P4CGI">P4CGI::DTB_URL()
  71.  
  72. </A></STRONG><DD>
  73. URL to depot tree browser. 
  74.  
  75.  
  76. <P>
  77.  
  78. <DT><STRONG><A NAME="item_P4CGI">P4CGI::CHB_URL()
  79.  
  80. </A></STRONG><DD>
  81. URL to change browser. 
  82.  
  83.  
  84. <P>
  85.  
  86. <DT><STRONG><A NAME="item_P4CGI">P4CGI::CHV_URL()
  87.  
  88. </A></STRONG><DD>
  89. URL to change viewer. 
  90.  
  91.  
  92. <P>
  93.  
  94. <DT><STRONG><A NAME="item_P4CGI">P4CGI::FV_URL()
  95.  
  96. </A></STRONG><DD>
  97. URL to file viewer. 
  98.  
  99.  
  100. <P>
  101.  
  102. <DT><STRONG><A NAME="item_P4CGI">P4CGI::SFV_URL()
  103.  
  104. </A></STRONG><DD>
  105. URL to special file viewer.
  106.  
  107.  
  108. <P>
  109.  
  110. <DT><STRONG><A NAME="item_P4CGI">P4CGI::FLV_URL()
  111.  
  112. </A></STRONG><DD>
  113. URL to file log viewer.
  114.  
  115.  
  116. <P>
  117.  
  118. <DT><STRONG><A NAME="item_P4CGI">P4CGI::FDV_URL()
  119.  
  120. </A></STRONG><DD>
  121. URL to file diff viewer.
  122.  
  123.  
  124. <P>
  125.  
  126. <DT><STRONG><A NAME="item_P4CGI">P4CGI::LDV_URL()
  127.  
  128. </A></STRONG><DD>
  129. URL to label diff viewer.
  130.  
  131.  
  132. <P>
  133.  
  134. <DT><STRONG><A NAME="item_P4CGI">P4CGI::SFF_URL()
  135.  
  136. </A></STRONG><DD>
  137. URL to search for file.
  138.  
  139.  
  140. <P>
  141.  
  142. <DT><STRONG><A NAME="item_P4CGI">P4CGI::LAU_URL()
  143.  
  144. </A></STRONG><DD>
  145. URL to list all users.
  146.  
  147.  
  148. <P>
  149.  
  150. <DT><STRONG><A NAME="item_P4CGI">P4CGI::LU_URL()
  151.  
  152. </A></STRONG><DD>
  153. URL to view a user.
  154.  
  155.  
  156. <P>
  157.  
  158. <DT><STRONG><A NAME="item_P4CGI">P4CGI::LAB_URL()
  159.  
  160. </A></STRONG><DD>
  161. URL to list all branches.
  162.  
  163.  
  164. <P>
  165.  
  166. <DT><STRONG><A NAME="item_P4CGI">P4CGI::LAL_URL()
  167.  
  168. </A></STRONG><DD>
  169. URL to list all labels.
  170.  
  171.  
  172. <P>
  173.  
  174. <DT><STRONG><A NAME="item_P4CGI">P4CGI::LV_URL()
  175.  
  176. </A></STRONG><DD>
  177. URL to view a labels.
  178.  
  179.  
  180. <P>
  181.  
  182. </DL>
  183. <P>
  184. <HR>
  185. <H2><A NAME="Data_file_update_scripts">Data file update scripts
  186.  
  187. </A></H2>
  188. <DL>
  189. <DT><STRONG><A NAME="item_P4CGI">P4CGI::DTB_UPDATE()
  190.  
  191. </A></STRONG><DD>
  192. Update data files for depot tree browser.
  193.  
  194.  
  195. <P>
  196.  
  197. </DL>
  198. <P>
  199. <HR>
  200. <H2><A NAME="Constants_for_Depot_Tree_Browser">Constants for Depot Tree Browser
  201.  
  202. </A></H2>
  203. <DL>
  204. <DT><STRONG><A NAME="item_P4CGI">P4CGI::DTB_LOCKFILE() 
  205.  
  206. </A></STRONG><DD>
  207. Lock file name 
  208.  
  209.  
  210. <P>
  211.  
  212. <DT><STRONG><A NAME="item_P4CGI">P4CGI::DTB_FILESPLIT()
  213.  
  214. </A></STRONG><DD>
  215. Number of data files to split data to.
  216.  
  217.  
  218. <P>
  219.  
  220. <DT><STRONG><A NAME="item_P4CGI">P4CGI::DTB_DATAFILE() 
  221.  
  222. </A></STRONG><DD>
  223. Data file base name
  224.  
  225.  
  226. <P>
  227.  
  228. </DL>
  229. <P>
  230. <HR>
  231. <H1><A NAME="SUBROUTINES">SUBROUTINES
  232.  
  233. </A></H1>
  234. <P>
  235. <HR>
  236. <H2><A NAME="P4CGI_cgi_">P4CGI::cgi()
  237.  
  238. </A></H2>
  239. Return CGI reference 
  240.  
  241.  
  242. <P>
  243.  
  244. Example:
  245.  
  246.  
  247. <P>
  248.  
  249. <PRE>    my $file = P4CGI::cgi()-&gt;param(&quot;file&quot;) ;
  250.     print &quot;Parameter \&quot;file\&quot; value: $file\n&quot; ;
  251. </PRE>
  252.  
  253. <P>
  254.  
  255. <P>
  256. <HR>
  257. <H2><A NAME="P4CGI_p4call_I_result_I_comman">P4CGI::p4call(<EM>result</EM>,<EM>command</EM>)
  258.  
  259. </A></H2>
  260. Request data from p4. Calls p4 with command <EM>command</EM> and returns data in <EM>result</EM>.
  261.  
  262.  
  263. <P>
  264.  
  265. This function is really three different functions depeding in the type of
  266. the
  267. <EM>result</EM> parameter.
  268.  
  269.  
  270. <P>
  271.  
  272. <DL>
  273. <DT><STRONG><A NAME="item_result">result
  274.  
  275. </A></STRONG><DD>
  276. This parameter can be of three different types:
  277.  
  278.  
  279. <P>
  280.  
  281. <DL>
  282. <DT><STRONG><A NAME="item_Filehandle">Filehandle (typeglob)
  283.  
  284. </A></STRONG><DD>
  285. Data from command can be read from filehandle. NOTE! File must be closed by
  286. caller.
  287.  
  288.  
  289. <P>
  290.  
  291. <DT><STRONG><A NAME="item_Reference">Reference to array
  292.  
  293. </A></STRONG><DD>
  294. Returns result from command in array (newlines stripped)
  295.  
  296.  
  297. <P>
  298.  
  299. <DT><STRONG>Reference to scalar
  300.  
  301. </A></STRONG><DD>
  302. Returns result from command in scalar. (lines separated by newline)
  303.  
  304.  
  305. <P>
  306.  
  307. </DL>
  308. Any other type of parameter will abort operation
  309.  
  310.  
  311. <P>
  312.  
  313. <DT><STRONG><A NAME="item_command">command
  314.  
  315. </A></STRONG><DD>
  316. Command to send to p4 command line client.
  317.  
  318.  
  319. <P>
  320.  
  321. </DL>
  322. Example:
  323.  
  324.  
  325. <P>
  326.  
  327. <PRE>    my $d ;
  328.     &amp;P4CGI::p4call(\$d,&quot;changes -m 1&quot;) ;
  329.     $d =~ /Change (\d+)/ or &amp;bail(&quot;No contact with P4 server&quot;) ;
  330.     $currentChangeLevel=$1 ;    
  331. </PRE>
  332.  
  333. <P>
  334.  
  335. <P>
  336. <HR>
  337. <H2><A NAME="P4CGI_start_page_I_title_I_le">P4CGI::start_page(<EM>title</EM>[,<EM>legend</EM>])
  338.  
  339. </A></H2>
  340. Start a page. Print http header and first part of HTML.
  341.  
  342.  
  343. <P>
  344.  
  345. <DL>
  346. <DT><STRONG><A NAME="item_title">title
  347.  
  348. </A></STRONG><DD>
  349. Title of page
  350.  
  351.  
  352. <P>
  353.  
  354. <DT><STRONG><A NAME="item_legend">legend (Optional)
  355.  
  356. </A></STRONG><DD>
  357. Short help text to be displayed at top of page
  358.  
  359.  
  360. <P>
  361.  
  362. </DL>
  363. Example:
  364.  
  365.  
  366. <P>
  367.  
  368. <PRE> my $start = P4CGI::start_page(&quot;Title of page&quot;,
  369.                                &amp;P4CGI::dl_list(&quot;This&quot;,&quot;Goto this&quot;,
  370.                                                &quot;That&quot;,&quot;Goto that&quot;)) ;
  371.  print $start ;
  372. </PRE>
  373.  
  374. <P>
  375.  
  376. <P>
  377. <HR>
  378. <H2><A NAME="P4CGI_end_page_">P4CGI::end_page()
  379.  
  380. </A></H2>
  381. End a page. Print HTML trailer.
  382.  
  383.  
  384. <P>
  385.  
  386. Example:
  387.  
  388.  
  389. <P>
  390.  
  391. <PRE> print P4CGI::end_page() ;
  392. </PRE>
  393.  
  394. <P>
  395.  
  396. <P>
  397. <HR>
  398. <H2><A NAME="P4CGI_bail_I_message_">P4CGI::bail(<EM>message</EM>)
  399.  
  400. </A></H2>
  401. Report an error. This routine will emit HTML code for an error message and
  402. exit. 
  403.  
  404.  
  405. <P>
  406.  
  407. <DL>
  408. <DT><STRONG><A NAME="item_message">message
  409. Message that will be displayed to user
  410.  
  411. </A></STRONG><DD>
  412. </DL>
  413. Example:
  414.  
  415.  
  416. <P>
  417.  
  418. <PRE> unless(defined $must_be_defined) { 
  419.      &amp;P4CGI::bail(&quot;was not defined&quot;) ; 
  420.  } ;
  421. </PRE>
  422.  
  423. <P>
  424.  
  425. <P>
  426. <HR>
  427. <H2><A NAME="P4CGI_start_table_I_table_attri">P4CGI::start_table(<EM>table_attribute_text</EM>)
  428.  
  429. </A></H2>
  430. Start a table with optional table attributes
  431.  
  432.  
  433. <P>
  434.  
  435. <DL>
  436. <DT><STRONG><A NAME="item_table_attribute_text">table_attribute_text
  437.  
  438. </A></STRONG><DD>
  439. This text will be inserted as attributes to table tag
  440.  
  441.  
  442. <P>
  443.  
  444. </DL>
  445. Example:
  446.  
  447.  
  448. <P>
  449.  
  450. <PRE>    print P4CGI::start_table(&quot;align=center border&quot;) ;
  451. </PRE>
  452.  
  453. <P>
  454.  
  455. <P>
  456. <HR>
  457. <H2><A NAME="P4CGI_end_table_">P4CGI::end_table()
  458.  
  459. </A></H2>
  460. Return end of table string. (trivial function included mostly for symmetry)
  461.  
  462.  
  463. <P>
  464.  
  465. <P>
  466. <HR>
  467. <H2><A NAME="P4CGI_table_row_I_options_I_li">P4CGI::table_row(<EM>options</EM>,<EM>listOfValues</EM>)
  468.  
  469. </A></H2>
  470. Insert a row in table.
  471.  
  472.  
  473. <P>
  474.  
  475. <DL>
  476. <DT><STRONG><A NAME="item_options">options
  477.  
  478. </A></STRONG><DD>
  479. A list of key/value pairs (a hash will do just fine) containing options for
  480. the row. 
  481.  
  482.  
  483. <P>
  484.  
  485. The key must start with a ``-''.
  486.  
  487.  
  488. <P>
  489.  
  490. Most key/value pairs are treated as attributes to the &lt;TR&gt;-tag. The
  491. following keys are recognized as special:
  492.  
  493.  
  494. <P>
  495.  
  496. <DL>
  497. <DT><STRONG><A NAME="item__type">-type
  498.  
  499. </A></STRONG><DD>
  500. Type of cells. Default is &lt;TD&gt;-type. 
  501.  
  502.  
  503. <P>
  504.  
  505. <DT><STRONG><A NAME="item__anykey">-anykey
  506.  
  507. </A></STRONG><DD>
  508. <EM>anykey</EM> will be assumed to be a row option and will be inserted in the TR-tag. The
  509. value for the option is the key value, unless value is empty or undefined,
  510. in which case the option anykey is assumed to have no value.
  511.  
  512.  
  513. <P>
  514.  
  515. </DL>
  516. <DT><STRONG><A NAME="item_listOfValues">listOfValues
  517.  
  518. </A></STRONG><DD>
  519. Row data. Remaining values are assumed to be data for each cell. The data
  520. is typically the text in the cell but can also be:
  521.  
  522.  
  523. <P>
  524.  
  525. <DL>
  526. <DT><STRONG><A NAME="item_undef">undef
  527.  
  528. </A></STRONG><DD>
  529. An undefined value indicates that the next cell spans more than one column. 
  530.  
  531.  
  532. <P>
  533.  
  534. <DT><STRONG>Reference to a hash
  535.  
  536. </A></STRONG><DD>
  537. The has contains two keys: ``-text'' for cell text and ``-type'' for cell
  538. type. All other key/value pairs are treated as attributes to the &lt;TD&gt;
  539. or &lt;TH&gt; tag.
  540.  
  541.  
  542. <P>
  543.  
  544. </DL>
  545. </DL>
  546. Example:
  547.  
  548.  
  549. <P>
  550.  
  551. <PRE> print P4CGI::start_table(&quot;align=center&quot;) ;
  552.                                    ### print header row
  553.  print P4CGI::table_row(-type   =&gt; &quot;th&quot;,
  554.                         -valign =&gt; &quot;top&quot;,
  555.                         -align  =&gt; &quot;left&quot;,
  556.                         &quot;Heading 1&quot;,&quot;Heading 2&quot;,undef,&quot;Heading 3&quot;) ;
  557.                                    ### print data
  558.  my %h = (-text    =&gt; &quot;text in hash&quot;, 
  559.           -bgcolor =&gt; &quot;blue&quot;) ;
  560.  print P4CGI::table_row(-valign  =&gt; &quot;top&quot;,
  561.                         -bgcolor =&gt; &quot;white&quot;,
  562.                         &quot;Cell 1&quot;,
  563.                         {-text    =&gt; &quot;Cell 2&quot;,
  564.                          -bgcolor =&gt; &quot;red&quot;},
  565.                         \%h,
  566.                         &quot;Cell 3-2&quot;) ;
  567.  print P4CGI::end_table() ;
  568. </PRE>
  569.  
  570. <P>
  571.  
  572. <P>
  573. <HR>
  574. <H2><A NAME="P4CGI_ul_list_I_list_">P4CGI::ul_list(<EM>list</EM>)
  575.  
  576. </A></H2>
  577. Return a bulleted list.
  578.  
  579.  
  580. <P>
  581.  
  582. <DL>
  583. <DT><STRONG><A NAME="item_list">list
  584.  
  585. </A></STRONG><DD>
  586. Lits of data to print as bulleted list
  587.  
  588.  
  589. <P>
  590.  
  591. </DL>
  592. Example:
  593.  
  594.  
  595. <P>
  596.  
  597. <PRE> print P4CGI::ul_list(&quot;This&quot;,&quot;is&quot;,&quot;a&quot;,&quot;bulleted&quot;,&quot;list&quot;) ;
  598. </PRE>
  599.  
  600. <P>
  601.  
  602. <P>
  603. <HR>
  604. <H2><A NAME="P4CGI_dl_list_I_list_of_pairs_">P4CGI::dl_list(<EM>list_of_pairs</EM>)
  605.  
  606. </A></H2>
  607. Returns a definition list.
  608.  
  609.  
  610. <P>
  611.  
  612. <DL>
  613. <DT><STRONG><A NAME="item_list_of_pairs">list_of_pairs
  614.  
  615. </A></STRONG><DD>
  616. List of data pairs to print as a definition list. A hash will do just fine,
  617. only that You have no control of the order in the list. 
  618.  
  619.  
  620. <P>
  621.  
  622. </DL>
  623. Example:
  624.  
  625.  
  626. <P>
  627.  
  628. <PRE> print P4CGI::dl_list(&quot;This&quot;,&quot;Description of this&quot;,
  629.                       &quot;That&quot;,&quot;Description of that&quot;) ;
  630. </PRE>
  631.  
  632. <P>
  633.  
  634. <P>
  635. <HR>
  636. <H2><A NAME="P4CGI_valid_lockfile_I_file_">P4CGI::valid_lockfile(<EM>file</EM>)
  637.  
  638. </A></H2>
  639. Check if <EM>file</EM> is a valid lock file. Return true if <EM>file</EM> is a valid lock file.
  640.  
  641.  
  642. <P>
  643.  
  644. <DL>
  645. <DT><STRONG><A NAME="item_file">file
  646.  
  647. </A></STRONG><DD>
  648. Name of lock file
  649.  
  650.  
  651. <P>
  652.  
  653. </DL>
  654. Example:
  655.  
  656.  
  657. <P>
  658.  
  659. <PRE>    if(P4CGI::valid_lockfile(&quot;/tmp/lockfile&quot;)) {
  660.         print &quot;Locked\n&quot; ;
  661.     }
  662. </PRE>
  663.  
  664. <P>
  665.  
  666. <P>
  667. <HR>
  668. <H2><A NAME="P4CGI_create_lockfile_I_file_">P4CGI::create_lockfile(<EM>file</EM>)
  669.  
  670. </A></H2>
  671. Create a valid lock file for this process. Returns true if success.
  672.  
  673.  
  674. <P>
  675.  
  676. <DL>
  677. <DT><STRONG>file
  678.  
  679. </A></STRONG><DD>
  680. Name of lock file
  681.  
  682.  
  683. <P>
  684.  
  685. </DL>
  686. Example:
  687.  
  688.  
  689. <P>
  690.  
  691. <PRE>  P4CGI::create_lockfile(&quot;/tmp/lockfile&quot;) or die &quot;can't create lockfile!&quot; ;
  692. </PRE>
  693.  
  694. <P>
  695.  
  696. <P>
  697. <HR>
  698. <H2><A NAME="P4CGI_fixSpecChar_I_str_">P4CGI::fixSpecChar(<EM>str</EM>)
  699.  
  700. </A></H2>
  701. Convert all '&gt;' to ``<CODE>&amp;gt;</CODE>'', '&lt;' to ``<CODE>&amp;lt;</CODE>'' and '&amp;' to ``<CODE>&amp;amp;</CODE>''.
  702.  
  703.  
  704. <P>
  705.  
  706. <DL>
  707. <DT><STRONG><A NAME="item_str">str
  708.  
  709. </A></STRONG><DD>
  710. String to convert
  711.  
  712.  
  713. <P>
  714.  
  715. </DL>
  716. Example:
  717.  
  718.  
  719. <P>
  720.  
  721. <PRE>    my $cvstr = &amp;P4CGI::fixSpecChar(&quot;String containing &lt;,&gt; and &amp;&quot;) ;
  722. </PRE>
  723.  
  724. <P>
  725.  
  726. <P>
  727. <HR>
  728. <H2><A NAME="P4CGI_ahref_I_options_I_parame">P4CGI::ahref(<EM>options</EM>,<EM>parameters</EM>,<EM>text</EM>)
  729.  
  730. </A></H2>
  731. Create a &lt;A HREF...&gt;...&lt;/A&gt; tag pair.
  732.  
  733.  
  734. <P>
  735.  
  736. <DL>
  737. <DT><STRONG>options
  738.  
  739. </A></STRONG><DD>
  740. Optional list of option-value pairs. Valid options are:
  741.  
  742.  
  743. <P>
  744.  
  745. <DL>
  746. <DT><STRONG><A NAME="item__url">-url
  747.  
  748. </A></STRONG><DD>
  749. Url for link. Default is current.
  750.  
  751.  
  752. <P>
  753.  
  754. <DT><STRONG><A NAME="item__anchor">-anchor
  755.  
  756. </A></STRONG><DD>
  757. Anchor in url. Default is none.
  758.  
  759.  
  760. <P>
  761.  
  762. </DL>
  763. Any non-valid option marks the end of the options
  764.  
  765.  
  766. <P>
  767.  
  768. <DT><STRONG><A NAME="item_parameters">parameters
  769.  
  770. </A></STRONG><DD>
  771. Optional list of parameters for link.
  772.  
  773.  
  774. <P>
  775.  
  776. <DT><STRONG><A NAME="item_text">text
  777.  
  778. </A></STRONG><DD>
  779. The last parameter is used as text for link. 
  780.  
  781.  
  782. <P>
  783.  
  784. </DL>
  785. Example:
  786.  
  787.  
  788. <P>
  789.  
  790. <PRE>    print &amp;P4CGI::ahref(&quot;Back to myself&quot;) ; # link to this. No parameters.
  791. </PRE>
  792.  
  793. <P>
  794.  
  795. <PRE>    print &amp;P4CGI::ahref(&quot;-url&quot;,&quot;www.perforce.com&quot;,
  796.                         &quot;To perforce&quot;) ; # link to perforce
  797. </PRE>
  798.  
  799. <P>
  800.  
  801. <PRE>    print &amp;P4CGI::ahref(&quot;-anchor&quot;,&quot;THERE&quot;,
  802.                         &quot;Go there&quot;) ; # link to anchor THERE
  803. </PRE>
  804.  
  805. <P>
  806.  
  807. <PRE>    print &amp;P4CGI::ahref(&quot;-url&quot;,&quot;chb.cgi&quot;,
  808.                         &quot;FSPC=//depot/.../doc/...&quot;,
  809.                         &quot;Changes for all documentation&quot;) ; # url with parameter
  810. </PRE>
  811.  
  812. <P>
  813.  
  814. <P>
  815. <HR>
  816. <H2><A NAME="P4CGI_magic_I_text_">P4CGI::magic(<EM>text</EM>)
  817.  
  818. </A></H2>
  819. Substitutes magic phrases in <EM>text</EM> with links.
  820.  
  821.  
  822. <P>
  823.  
  824. Currently the pattern ``change <EM>number</EM>'' is replaced with a link to the change browser.
  825.  
  826.  
  827. <P>
  828.  
  829. Example:
  830.  
  831.  
  832. <P>
  833.  
  834. <PRE>    my $t = &quot;This change is the same as change 4711, but with a twist&quot; ;
  835. </PRE>
  836.  
  837. <P>
  838.  
  839. <PRE>    print &amp;P4CGI::magic($t) ; # inserts a link to change 4711
  840. </PRE>
  841.  
  842. <P>
  843.  
  844. </DL>
  845.     </BODY>
  846.  
  847.     </HTML>
# Change User Description Committed
#1 645 Rick Richardson Create banch for adding p4wrapper. 24 years ago
//guest/perforce_software/utils/p4db/P4CGI.html
#1 11 Perforce maintenance Add Fredric Fredricson's depot browser, P4DB. 26 years ago