#!/usr/bin/perl -w # -*- perl -*- use P4CGI ; use strict ; # ################################################################# # CONFIGURATION INFORMATION # All config info should be in P4CGI.pm # ################################################################# # # P4 depot browser, top # ################################################################# my $goto = &P4CGI::cgi()->param("GOTO") ; if(defined $goto) { &P4CGI::ONLOADSCRIPT("location='$goto';") ; print &P4CGI::start_page("Please wait.....") ; print &P4CGI::end_page() ; exit 0 ; } &P4CGI::SKIPHEADERBUTTONS() ; print &P4CGI::start_page("Add shortcut") ; my $urlpath=&P4CGI::cgi()->url() ; $urlpath =~ s|[^/]+$|| ; my $scurl=&P4CGI::cgi()->param("SC") ; if(!defined $scurl) { &P4CGI::bail("Internal error! Parameter SC not defined!") ; } $scurl =~ s/^$urlpath// ; my $decscurl = $scurl ; if($decscurl =~ /\?/) { $decscurl .= ";" } else { $decscurl .= "?" } $scurl = &P4CGI::urlEncode($scurl) ; my %shortcuts = &P4CGI::SHORTCUTS() ; delete $shortcuts{&P4CGI::STARTPAGE_MARKER()} ; my $scts = ""; my $name ; my @sameAs ; foreach $name (sort { uc($a) cmp uc($b) } keys %shortcuts) { if($scts eq "") { $scts = &P4CGI::start_table("") ; } my $url=$shortcuts{$name} ; if(&P4CGI::urlEncode($url) eq $scurl) { push @sameAs,"<br><a class=\"normal\" href=\"$url\">$name</a>\n" ; } &P4CGI::cgi()->param("RMSHORTCUT","$url\:\:\:$name") ; my $del = &P4CGI::buttonLink(&P4CGI::cgi()->url(-query=>1),"Remove shortcut $name","Remove Shortcut") ; &P4CGI::cgi()->delete("RMSHORTCUT") ; $scts .= "<tr><td><a class=\"normal\" href=\"$url\">$name</a></td><td>$del</td></tr>\n" ; } if($scts ne "") { $scts .= &P4CGI::end_table() ; } ; my $currDepotNo = &P4CGI::CURR_DEPOT_NO() ; print &P4CGI::start_framedTable(""),"<tr><td>\n" ; print &P4CGI::start_table(" class=\"Text\""), "<tr><td>"; while(<DATA>) { last if /============/ ; s/__URL__/$scurl/g ; print ; } my $existwarning = "" ; { my $noInWarning =""; $noInWarning = "is a shortcut" if @sameAs == 1 ; $noInWarning = "are " . scalar @sameAs . " shortcuts" if @sameAs > 1 ; my $scts = join("",@sameAs) ; while(<DATA>) { last if /============/ ; s/__SCTS__/$scts/g ; s/__N__/$noInWarning/g ; $existwarning .= $_ ; } } ; print $existwarning if @sameAs > 0 ; my $script = "" ; while(<DATA>) { last if /============/ ; s/__SCURL__/$scurl/g ; s/__CURR_P4_DEPOT__/$currDepotNo/g ; s/__DECURL__/$decscurl/g ; $script .= $_ ; } while(<DATA>) { last if /============/ ; s/__SCURL__/$scurl/g ; s/__CURR_P4_DEPOT__/$currDepotNo/g ; s/__DECURL__/$decscurl/g ; s/__SCRIPT__/$script/ ; print ; } if($scts ne "") { while(<DATA>) { last if /============/ ; s/__SCTS__/$scts/g ; print ; } } print "</td></tr>", &P4CGI::end_table() ; print "</td></tr>", &P4CGI::end_framedTable() ; print &P4CGI::end_page() ; # # That's all folks # __END__ <p class="Text"> Name the shourtcut and press "Add Shortcut" or "Cancel" ============================================================ <P class="Text"> There already __N__ to this page: __SCTS__<br> You can <a class="normal" title="Skip add shortcut" onClick="history.back() ;">Go back</a> or continue and add another shortcut to the same page. ============================================================ var scdata='__SCURL__' + ':::' + document.TheForm.SCNAME.value ; location='addshortcut.cgi?DP=__CURR_P4_DEPOT__;ADDSHORTCUT=' + scdata + '&GOTO=__SCURL__' ; return false ; ============================================================ <p class="Text"> <form name="TheForm" onsubmit="__SCRIPT__"> <input class="Text" type="text" size="30" value="" name="SCNAME"><br> <button class="Text" type="button" name="addsc" value="addsc" title="Add shortcut with specified name" onClick="__SCRIPT__">Add Shortcut</button> <button class="Text" type="button" name="cancel" value="cancel" title="Do not add shortcut" onClick="location='__DECURL__' ;">Cancel</button> </form> ============================================================ <hr> <p class="Text"> You have the following shortcut(s) specified: __SCTS__<br> If you specify an already existing name it will be modified.
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#3 | 4152 | Fredric Fredricson | P4DB: Some more work on tha way to version 3.1.... | ||
#2 | 4048 | Fredric Fredricson |
P4DB: Updated for Explorer. * Updated Style Sheet to work for Explorer as well as Netscape * Improved alternate header * Some other small fixes.... |
||
#1 | 4046 | Fredric Fredricson |
P4DB: First submit for 3.1. * Removed frame-stuff and some related files * Added new page header * Started update of documentation * Changed a lot of CGI:s to conform to new "look and feel" Still a lot to do: - clean up stuff (especially the javascript) - Fix the file list to use new annotate-command - Clean up and document css-file - and more....... |