📄 blobworld
字号:
#!/usr/sww/bin/perl## blobworld - given a picture KWID, create blobchooser page$DEBUG = 1;$incoming = $ENV{'QUERY_STRING'}; # 107005$kwid = $incoming;# is it Corel or reg photocd?if (length($incoming) < 7) { $dir1 = "corel"; $dir2 = $kwid; substr($dir2,-3,3) = "000"; } else { # do this later: extract dir1 and dir2 from kwid}$pictureURL = "/imgs/128x192/$dir1/$dir2/$kwid.jpeg";$blobdir = "/imgs/blobs/$dir2/$kwid";$blobworldURL = "$blobdir/$kwid" . "_" . "blobworld.jpeg";print "Content-type: text/html\n\n";print "<HTML>\n";print "<HEAD>\n";print "<TITLE>Blobworld Query</TITLE>\n";print "</HEAD>\n";print "<script language=\"javascript1.2\">";print "</script>\n";## top frame#print "<frameset width=0 name=topframe rows=\"33%,60%,*\">\n";print "<frameset width=0 rows=\"40%,60%\">\n";print "<frame src=/cgi-bin/blobs/topframe?$kwid>\n";## middle frameprint "<frame name=frameB src=/photos/blobworld/instr_start.html>\n";print "</frameset>\n";print "<BODY bgcolor=#FFFFFF>\n";#print "<BODY>\n";if ($DEBUG) { print "<h1>TESTING cgi-bin/blobs/blobworld: kwid = $kwid</h1>\n"; print "pictureURL = $pictureURL<br>\n"; print "blobdir = $blobdir<br>\n"; print "blobworldURL = $blobworldURL<br>\n";}print "</BODY>\n";print "</HTML>\n";⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -